
POURVU QU'IL PLEUVE 



Admettonsqu'ilfassebeau pendant toutesles vacances: com merit allez-vous faire pour taper I esq uat re prog ram mesde votre ordinate ur, trad uire 
les au t res avec les tables de co n version et ecrire au mo i nsun prog ram me pour nous I'envoy era la rent ree?Uneseule solution :1a pluie, la grisaille et 
le mauvais temps, un temps d'informaticien ! 
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DES PROGRAMMES POUR VOTRE ORDINATEUR : APPLE II ET HE 
ATARI . CANON X-07 . CASIO FX 702-P . COMMODORE 64 ET 
VIC 20. DRAGON. HEWLETT PACKARD HP 41 . ORIC 1 ET ATMOS . 
SHARP MZ, PC 1211, PC 1500 . SINCLAIR ZX 81 ET SPECTRUM. 
TANDY . TRS 80 . TEXAS TI-99/4A . THOMSON T07 



HiPPOREBUS X'ouvnz i expression qui se cache dans la B de i hippocampe Decomposi 
(solution en paqe inleneurei 



"n IroiS syllaoes dans les Irt 



evidemmenl un rapport avec I'lntormiitiquc 




rSEQUENTENT LES 3ALLE.S DESVENTE5! 



ALIMENTS POUR GRDINATEURS 



r^m 



(N° 42.43.44.45) NUMERO QUADRUPLE 



JEREMIE LEGRIMPEUR 



taiiuiti«.isie*:»i** 



Ce programme fonctionne sur un THOMSON TO 7 
muni d'une extension 16 Koctets. 
Un gorille fou d'amour a enleve la fiancee de J6remie 
et I'a emportee au sommet d'un echafaudage, aidez le 
a retrouver sa fiancee. 

Fr6d6ric AUJAS 

Trois types d'epreuves vous attendent avani de sauver la fiancee. 

Les araignees; elles s'apprcchent de vous, sautez avant qu'elles ne 

vous piquenl. 

Le lion: precipitez-vous sous ses bonds. 

Les cordes: sautez. attrapez la longue corde, glissez. et saulez 

lorsque vous etes au niveau dune poutrelle. 

Les petites lianes: attrapez la corde. balancez-vous. sautez. recom- 

mencez avec la deuxieme corde. 

Vous manoeuvrez Jeremie avec les 4 fteches du curseur et sautez 

en appuyant sur la barre d'espace 

Attention; lorsque I "on appuie sur une louche. Jeremie avance tant 

que Ion n'appuie pas sur une autre touche. Bon courage!. 



: JEEN |,?.4iCOMS0LE 9.. 24, I 

0:LuCATE 3.24:P»:*T ■ jEOEnlE LE ^IM 

peur -ikiconsce ^.£3:mreeii 1.7IC0 

nsole e.24,i.en>TTSB :■ : 
i«e i,i«<e.32>-ti84.32..-i 

193 LINEV216, 32 1 - 328. 32>, -I 
119 LlNEv0.72> C48,72>>-l 
129 LINEd!.. ~£ ■-" 1 ?2.72>,-l 
125 LINE<232.72>-. 320-72 .-: 

139 liwE'9. 1 1 e > - ■■ 192.::; .-i 

135 LlNE<232,112>-(328. US ■ ■ -1 

M0 LINE(0.i52>-C48.l52>.-i 
145 L1NE<96. 132>-<329,132>.-l 
158 LINE<e,184 -:320.184>,-l 

:69 roe y-28 to 63 step 4 

162 LINE 



.16 

3^5 OEFtR*i4..iBeeeee89o,iBe809eee0 

•". ■ ■■.«.>"..w..u-.:'. ■'.'■'■- ■ '.'■■■- ■ .•.'.•: 

189001 1080. IB9B01008O 

33« DErcsi',5.=tE008no08,t.Beeiiiiee 

911018, tGSI 81 1090,4809010100.1808011 

ibbbiooioo.ibooi lene 

335 DErGRI<6>«*8BWlieee. (8881111 
01 1018, 1,8810 11 888,1869801 800. LB80 
L800101000,tB080eii0a 
340 DEFGR*<7i-il 

888880, tesee 

4688811863,1.680081908 

345 OEFCR* <8> =18388 11 080. 1B891 11100, 

911818, 180001 101 8. 1.80081 0000, &B8B81 

1888818188,1.880) 18880 

358 0£FCRI<9>-i88eBl 1000,180811 1108 

011010,108081 1313, iB63! 91068, IB8B 10 

tB89I99I89, 1801101 188 



164 I 



on ■■ 



166 FOR Y-108 10 148 STEP 4 

169 LINE (I2,y>-<;28.y),-5 

179 NEXT V 

172 FOR Y-149 TO 180 STEP 4 

174 LINE<38.Y)-<43,Y>,-3 

176 NEXT Y 

178 FOR Y-188 TO 143 STEP 4 

139 LINE <ie7,Y>-ai6.Y>,-5 

182 LIME <I79.Y>-U89,Y>,-5 

183 LINE <267.Y>-(278.Y>.-3 

184 NEXT Y 

199 FOR Y-20 TO 198 STEP 4 

192 LIME(236,Y>-(244,Y>,-5 

194 LlNE<299,Y>-<397,Yj,-3 

196 NEXT Y 

298 LINE(64,33>-f64,64),i 

293 LINE(96,33>-<96,64>,1 

219 LINE(288,0>-<288,I12>,1 

300 DEFGR*<8>*0.0,8, 1,3.3. 1,7 

318 DEFCRK1 >«8,8.8, 128. 192, 192, 128,224 

313 DEFGRt(2> -15,23,39, 33, 35,46, 48, 8 

329 £>EFGRt<3>«24B,232,228,I96,196, 116,28 




448 DEFGPr 27. = 1889888890,1 
3 1000806. 1BI 1088088, 1B8180BI 

■ ,lbi ieeeeee,iBiteo0099 

445 tJEFGRi(28>-l81 1080000.1 

i eeenee, 1831888188, iBeoieoi 



' ,1860600000,11 
460 DEFGR*<3!>"t808I01]8B.I 

1 0188188, 1B00811 108. 168680! : 
.1688881108.1888018188 
465 DEFGP*(32>-tB8018Bie0,l 

I 1001990. 1B898I: 



470 DEFGR* 



368 0EFGRX11 )°1BI 



■:■ i i 



te 

.ii 

365 CjEFGR* ( 12 >«IB88808006. 1606380906.1.6: 
0808080. I BOO 00 0000,: 91610868 3-IB01 10008' 
, 1603666083, t8988&0808 
370 DEFGR»(13)< 
8011000. 1B8I80 



,1806061 180, IB! 1 11 1819 

475 OEFGR»(34>-!B0001 1080,1 

8111I98,lB811IlI13,tr 

,1906180160. 1B61 101 II 

430 DEFGRK35)- " 



■■ : 



81,161 



81,1880 
991111 



383 DErGR*a6>=tB8089008O. (.398380006. 



485 DEFCR*<36>> 



1 . -Eoeoeoioo, 

588 DEFGR*<39>»fc80809969O.t,Bei 101 106. 131 

1 ! I I 1 ! 10,1811 1 1 1 118.180! : ! 1180,1609! 11000 



19198. IB1I900188 

i.lBll 119888, 1B1 



r iB108I1601. 1901100118 

■■-;< : ETL'i- : "■ ■ = ; EC-?-*: : ■:■■■::<■ ;$<:■■:■'■: :o ■>•:■• '-■■; 
8011686. hBZ* ■:■■'. I ■■>?.?■• : B.';-j 100108, &809160I98 

.'.Beeieeiee.tBegieaise" 

355 DEFGR*(18 



10311006 
1160, >B8 



518 DEFGR: 
8808080,1800806006 
,1611811 119, 1BI111 
320 DEFCR*<41)-lB0i 

otoooeo.teo: 



81118' 



I,1B1 



405 DEFGR»C28>=iB88ee0880,iB 



..5 DEFGF>*'£av=.>,BO: 030300 . ■:■ BO : ! 1 00 1 , :. &0 
18 1 1 00 1,18381 68 1 10,16060! 1608.16003! 1006 
.160681 1308,160111 1800 

420 DEFGR*(23>"1B81001080, 1801801888, 1B8 

0001808, 1B0808 1000, 1800860888, 1BO8000380 

,1800888680,1600909888 

425 DEFGR *<24, -19066 88880, 1808880600, 1B0 

8880980, 1B90030000, ',890800809, 1B0811 1 ! 89 

,1681811918,1881188110 

430 DEFGR»(25>-tB83ei 1808, IBB88I 1880, IBB 

8811888,188381 13f 



338 DEFGRX42I 
1111180,1811111188, 188: 

, IB 1 98 189 19, IB8 188 1391 

546 D£FCR*<43>«t8B911tl 

1181 111,188911111 I., 1881 

,1618818888,1689199898 

545 0£FGR*<44)=!.Blie89l 

1908000,191 1000030,181 : 

, {.880118009, 1B08O8O88O 

550 DEFGR*(45>-t 

8181899, 1B11011I 

,1881381981, 1B8I 

535 DEFGR«<46>-t_. . 

81 13000,181 1999989,181 1800800. 1B1 1080888 



301O19HB]I1)1B11.,„, 
■ ■3!38l9ei9,tBBl««i0ie 

577 ^<-GRi<52..a,«.9;94.235: 59, S 6 

not 819. ieBt99ieia.iMi9«iB)e.(BMt«:ii» 
, IBBMeMM, IBitMMW 

90103ie.lB08»lll8l,lB980ie09l,iBOT81W81 

. '.80801 9999. iBe99e»e«e 

589 t>EFGR«'35>-tB8B011108,iManill8.iM 
1 1 1 1 1 1 1 , 1891 I 1 1 1 1 1 . tB98*91ft»», IMM610M 

. IB90 10 1099, 1B9901 0990 

581 t>ErGR*(56>-tB911ieilI.l.Be911)t]8.ia« 

0011 100,189091 I 189.tB8eBlltB0,tB»10M19 

■ :&0 01 839 10, 16 99 1399 18 

393 VN»14iBN-I4iCR-38:YP>i:H.8:»c-lJNl.i: 

N2-2:S»23iG-3iGl-14:G2«23iP0«l4iPA!.39iP 

(12-38! J*-Is jj.it J2--i:r«22ifl-]j8.3:/--9: 

Y-20ILOC&TE K r Yl»RINTClt«<7>lL0CATI 

!PPINTGR*<9> 

595 LOCftTE 19, I J PR INTGRJ : ■ .,= t | 

596 LOCATE 19, 3>PRINTGRf <2>GR>0 

597 (tTTRB 0,8!LOCftTE 39, 9:PRJNTC; ( 
OCOTE 3B,9:PP1NTGRI'42,:ATTPB U I. • LOCATE 

S,13ipRINTGP«(45);:attpb e. i:PRiir'.Pi , 4 
6>tATTRB 8,0;LOCflTE BN. 8:PPINTGPf tl 
CATE VN,3lF>R!HTGRt<42> 
59B LOCATE C,KiPRHnCRt{42HLOCATf I 
PPlNTGRt<42>:L0e0TE C2, ■ :PR;MTGPt f 4 = 
399 LOCATE PA* J, 18:PRINTGRi(42>:L0CATE P 
AltJl, 18i PPINTGRC42): LOCATE PA3*J2.1S:P 
PUTGR«<42)iAT7RB 1. 1 1 BOXF : 128, 28 ' -• 143. 
26>,3:L0CATE 1 6, 1 : PPI NTGPI <- 33 ■ : LOCATE 16 
,3:PRINTCRI(34) 
603 A>-IHKEYf 

619 IF A«-CHR«<8) THEN A-liCOSUB 1503tGO 
TO 618 

629 IF Q«-CHPf'?> THEN h-2:G05UB 1808:00 
TO 619 
639 IF Af-CHP1<32' THEN GOSUB 2988:C0T0 

648 IF A>-CHRS<11) THEN C0$UB 3813:G070 

619 

639 IF A«-CHR«U9> THEN C'jSOB 3518'-C0TO 

619 ELSE ON N GOSUB 4898,4689,3999,3309, 

3788,6000tON N GOSUB 4 J 00. 4700,51 00.5600 

,5750,6999iGOTO 690 

1988 '0R0ITE*t«» «• 

1085 IF Y<3 AND XM3 AND X<21 THEN 7308 

1018 IF X>«37 THEN 1188 

1328 LOCATE X.YtpRINT" ■ 

1838 LOCATE X,Y*2:PRINT- ■ 

1848 LOCATE X* 1 , Ys PR 1NTGRI (4 > 

1358 LOCATE X*l, Y*2:PRINTGR*<6> 

I860 ON N GOSUB 4908,4600,5988,5503-^700 

,6098 

1070 LOCATE X*I,Y.2:PPINTCRt(3> 

1075 A3-P0INT<(X»I)*8,<'Y*2>»8>*8>tIF A3 

<>-8 THEN 1080 ELSE X-» 1 i GOTO 2906 

1088 ON N GOSUB 4180,4700,5189,5600- 5~5i^ 



,1600889011.1890600010 



810188 

133 OEFCRt < 26 >'l 600380888. 1BO0880888.1B8 8831183,1688888811,18898803 



579 DEFGR* (49 X1B88981 11 1.1689 118888. 1B8 
8881 180, 16808888 1 1 , 188999001 1 , 1BB8S800 1 1 
, 1B90900808, 1800909908 
5 75 DEFGP-* (59 >>lBB0eO6000. 160880! 1 10.1B0 



1 188 Af-lNKEYf 

1118 IF A«<>"THEN RETURN ELSE 1893 

1598 'GAUCHE************ 

1318 IF X<"! THEN 1698 

1528 LOCATE X.YiPRINT* ■ 

1538 LOCATE X,Y*2tpRINT" ■ 

1548 LOCATE X- I , Yi PR INTCR*(7> 

1553 LOCATE X-l, Y*2: PRINTCftKBi 

1568 OH N GOSUB 4698,4699,5999,3390.3780 

1378 LOCATE X-i, Y»2! PRINTGR*(9) 

1573 A3-POINT((X-I)*8,<(Y»2)»8)*8>:lF A3 

0-8 THEN 1388 ELSE LOCATE X-1,Y:PRINT- 
■1L0CATE X-1.Y.2 (PRINT - -(X-X-HGOTO 29 
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THOMSON T07 



LE SECRET DE LA PYRAMIDE 



Vous dies enfermd a I'interieur d'une pyramide. Pour 
en sortir, il faut trouver son code secret compose de 5 
hieroglyphes differents.Quand vous passez sur un des 
hieroglyphes il se place a droite sous les pointilles 
blancs et au bout de 5 I'ordinateur vous indique: 

- En rouge les caracteres bien places pour la ligne 
jouee. 

- En blanc (en haut) les bien places pour tous les 
coups joues. 

Quand vous avez trouve, puis 6crit le code secret, le 
tombeau laisse apparaitre une ouverture. 
Vous devez alors chercher la momie pour que la sortie 
devienne visible. A partir de cet instant chaque carac- 
tere efface donne des points supplementaires. Bien en- 
tendu, au bout d'un certain temps (selon le niveau),ap- 
paraissent les gardiens de ia pyramide (les fant6mes) 
et les murs retr^cissent. 



A.CASTINEAU 



T . I 



On se d6place a laide des touches 

5 niveaux de jeux sortt possibles. 

Quand vous avez efface 10 ou 20 hieroglyphes d'autres apparais- 

sent sur I'ecran. 

Voire position de depart est le coin superieur gauche. 

Si vous vous trouvez sur le mur infeneur quand la pyramide retrecit, 

vous retournez a la position de ddpart. 

Points: 400 points par hieroglyphes places, 3000 points pour le code 

secret. 3000 points pour la sortie. Une fois que la sortie devient 

visible, les points varient en tonction des hieroglyphes. 



'* SECPET &E LA PYRAMIDE 



I M**> 



ff 



|fl CL*i iCREEPia,e,4liCLEAR,,8U>IHD<3>tDlHC 

■ 5.'!PH-2:PV-9'.MH' 1 .-23:riY' I >»9>HH<2)"M « 

MV'2>-9tLI-0 !Ph*12(T-0:GOSUB6198(CO$UB6 
500lCOSU83980:GOiUB456l:COSUB4199:GOTOie 



30 CLS:FORI-lTO3it>'I'-0:C' I '-8: NEXT 1! PH* 
a(PV«9tMH'l,-26:MV' 1 J = ?:t1H'2> = !l:nv2i-9 
iD«0iSO"BiC-9:2"e!LI-8tGi-'-: J»-"iF-0iT 
■0iPA-12iGOSUB659A:';OSUB622e(GOSUB3ee0!C 
O3UB4561:GO5UB4130 



v/ 












'.:< 


* DEPLACEMENT DU CHI 






99 












|M 


r«T*tiAS*IMKEV* 


IFAf 


■ THEN 


ItH 


Fl 


UFA 


OSC'.AI) 










tin 


X»PH:Y»PViPM-PH 






MPv 




-! 1 


-<A-18>IYL-P0IN 


<PH*8 


3,PV*3« 


1> 




: ,-<: 


IT YL-7 THEN PH 


X!PV> 








121 


IT 3CREEN'PM,PV 


-42 THEN 139 






122 


P-P0INT'PH*8«4.PV*8*| 


(IF R-; 


OP 




OP P-l OR P— 1 THEN 


139 










124 J*-Jt*GP*(R-2>:C0L0P3, 8:L0CATE32.pa: 
PRirTJttL-LEN'JOUF L»5 THEN GOSUB 300 
123 PLAY0**P«:IF H*l THEN DCR-1 )-D(R-l >* 
!0«*R 

130 PSET(X,Y>CHRK127f,0:PSET<PH,PV>CRi< 
7),1 

131 C0LOP3,3:L0COTEl, 1 : PR! NT-CHRONOMETPE 
»*)T 

132 IF T/PE-INT(TvPE> THEN GOSUB 4600 

134 IFPH«3 AND PV*3 THEN 30-30*3800= GOTO 
6308 

135 IF PH-I3 AND PV=n THEN GOSUB 6270 
138 IF T<T£ THEN 100 

140 '• DEPLACEMENT DES NONSTRES • 

141 ■MtllMIOIIOK I 

142 IF T(TE*108 THEN I = 1 : L0CATE3, 6( PR INT 
■ -:G0T0143 

143 L0CATE1.6SPPINT- "l 1= INT(2*RN0 •' 1 
145 P-RHD:IFR>.4 THEN 108 

150 A-<PH<MH':l )>-'PH>MH(I , ) : B-( PV KV. I • • 
-(PV>MV<I>) 

151 XF-HH(I>tA:YF-ttV(I >*B 

152 IF POINT<XF*6'3,VF*0.3><>7 THEN 190 

153 IFB*0 THEN 161 

154 P-RNC(IFR>.5 THEN 161 

160 IFPOIMT f«H' I>*3*3.VF*8*3»<>7 THEN /. 
F-MH(I):G0T0198 

161 IF P0rNT<XF*e*3,«V(I>«a*3:>O7 THEN Y 
F-MV'I .:C0T0199 

162 R-PND!IFP>.5THEN 164 

163 IF P0INT(<«H(Iy-ll*8*3,l'tV(l^«8'3'<>7 
THEN XF-MH'D-lfYF-MVflJl GOT0198 

164 IF P0INT"-HH([;*1>«S*3,MVM>*9»3><>7 
THEN XF«MH< I >*HYF»MV<I j!C0TOI98 

165 R-PNDJIFP/.5 THEN 167 

166 IF P01NT<MH(I)<8*3, 'KV 1 >•! 98*3) 7 
THEN XF-MHI I ,IYF»MV< I ,*IiCOTO190 

167 IF P0lNT<rtH(I)«8*3.<HV'I >-l '•3»3 ■ " 
THEN XF-WH<I>iYF«HV'I>-i:COTO190 

163 GOTO130 

190 IFS-7 OR 3-0 OP S-I OR S — 1 THEN193 

191 r.OLOPS,0i LOCATE MH' I ) . HV I > I PRI NTGP 
1--3-2HG0T0194 

193 P3ET'MH' I),BV<1 I .r,HPi(l27>,8 

194 '>-P0INT<XF*8*4,YF*8»l) 

193 PSET(XF,YF)CPI'5^,i:iF '/F-PH AND vF- 

PV THEM 3809 

200 HM(I)-xriMVa>«YF: GOTO190 

294 ii.iHilliiil 

295 '• mFFICHAGE DU CODE • 



L0CATE31. 19IPRIN 



FOBI-1 



310 IF MIDI' Jt, i. 1 .'■tllDl'G*. J, l ■ THEN CO 
L0Pl,8iL0CATE31*I. leiPPlNTMlD*' Jl. I . 1 'iC 
'0LOP7,8lL0CATE31'I.2lPR!NTMID»- Jl. I.1>*C 
(1 '-408 
328 NEKTI 

310 IF G1«J* THEN GOSUB 389 
400 RA-PA*]iJI""'( IF RA«I4 OP Pfa-16 THEN 

GOSUB4490 
410 RETURN 

380 L0CATEI3, 1 I'PRINT- -(RETURN 
3380 PH-2iPV-9iZ-Z'l i LOCATES*' Z-l'. 41 PPI 
NT- -!LOCATEXF,YFlPRINT- • I XF»28I YF«9l M 
H'I'-XF(MV(1 '-YF 
3895 IF 1-3 THEN 6298 
3310 G0T0198 

3997 'MMMHiMMM* 

3998 •# PRESENTATION * 

3999 OM.HM.nim 
4180 F0RI-8T04 



4113 A-INT(RND*5)(A(I)-A 

4128 F0RJ-9T0 1-1 

4130 IF A(J>-A'I> THEN 4110 

4140 NEXTJ 

4138 r,i-r,,.r.n, p . : . . 

4169 NEXTI:AS-5:C0T04588 

4499 AS«=I9-RA 

4599 FORJ-9T04(F0RI-lT0AS 

4519 X1«INT(PNO*2B>>11Y1>INT<PNO*( 15-1 



4348 NEXTKNEXTJ 

4368 PSET(X,Y>CHP«(I27J.0!RETUPN 

4361 C0L0Rl,8:L0CATEl,4:PRIHTGPf<7>*- ■• 

GR*(7>»* **GR»<7) 
4578 C0L0R1.8:L0COTE1.6:PPINTGR|{5)*- *♦ 

GR*(5XRETURN 
4609 LI-LI*liLINE(l,24-LI)-<29,24-LI>- • 

4682 IF PV-23-LI THEN PV-9: PH-2: PSET'PH, 
PV)GR*(7>, HX"PM!Y«PV 

4694 IFMV(l>-23-LI THEN HV> 1 j-9t MH( 1 )-28 
:P3ETff1H(l >,MV(1)>CR*<5),1 

4683 IFNV(2>-23-Ll THEN riV<2)-9!MH(2->28 
:PSET(MH(2),IIV(2>)CRI(5),1 

4689 UNEU,23-LI>-(29,23-LI>" * 

4618 LINE(l,23-LI>-f29,23-LI )CHRi( 127), 7 

:PLAY-A0L4T3-*Ml*»n2l 

4611 IFLI-I4 THEN 6388 

4638 RETURN 

4996 '• iiniu 

4997 '• LA8YRINTHE * 

4998 i'1'iini.iiii 

5388 BOX' !,8)-(29.23'CHPI( 127 >, 7 (RESTORE 
5882 C0L0R7,6!F0R1»IT05:lijCATE31*I. 11,0: 
PPINTCHR*'45;iiL.0CATE3l •! . 3, 0: PRINTCHPf (4 

3)1NCXTI 

5093 P«-'D0D0PERE3ISISI-I0*>= , 'A0T1L4" 

5018 rORI-lT014:REACE* 

5828 F0PJ-1T027 

3838 IFfllDKE*. J, 1---1- THEN P8ET<J*1, 1« 

9.CHR1M27),7 

3848 NEXTJiPLAY-A9L5T2-*M2*:NE^Tl 

5958 OATA-08B0000808 18318008880808800-' 

5868 DATA'0101 16088818818888801889811- 

3978 CATA-08B8OBOO081 1 1 18063631 1 10800- 

5880 DAT A- 88881 1 10806066001 1 13380011 1' 

5998 DATA-1 1683888636806000800001 0366~ 

6900 DATA-8001300860010181 18010019000" 

6018 OATA-080IOI001OO1 013088911180111- 

6828 DATA*08899iee888ie0ei 10000009130' 

6030 DATA"09e0900000000088e081 I 180061 ' 

6848 OATA-0080160103til : 14t>090A0fl8tItt* 

6858 DATA- 118B1 801 6061 0*000 18A1! |H0fl0- 

6968 DATA-899910911ia08nfl*6B0.^i-'1o^O|- 

6878 OATA-81 188893880^1 J3381 198938108- 

6989 CATA-0889e9e88l 98188081 998806186" 

6083 ATTRei,liC0LOPl,8(L0CATEI3.16!PPINT 

GR«(6>iATTRB9,8 

6986 LOCATE20, HPRINT-Niv«»u-JHI 

6098 RETURN 

6190 INPUT'DEJOUER LE PSEUDO HASaRDIENTR 



EP UN NOKBRE PLUS PETIT OuE 100":O 

6199 irc>108 THEN61O0 

6110 F0RI-1T00 

6128 X-lNT(RN0*28}'l(Y-lNTiRND*15>'6 

6138 NEXT I 

6148 CLS 

6158 DEFCRKl)-8,68.9^. ••- ". ■■■■■■ ■'• 

6163 DEFGR»(8>-8,24,24,24.24,24.£4.£4 

6178 DEFGR*(2>-0, 60. 66. 96,74, 52,8, 112 

6188 DEFCR*<3>"9, 39,36, 184,8,62- 26. 34 

6183 DEFCRK4K0, 8,3,16.96,64,64,64 

6186 OEFGRK 5>-36. 124, 214, 2 14,254, 254,1 - 
8,170 

6187 DEFGR*(6)«66,66.153.189,I33.133.I29 
,253 

6188 DEFCR*<7)-56, 186, 146,254,16,124,68. 
198 

6288 CLStATTRBl, I : COL0R3. 8( L0CATE6. I 8! PC 
INT-LE SECRET DE LA ■ILCCATE9, 13l PRINT'P 
YPAMIOE* 

6219 C0L0RI.e:L0CAT£2.2:PPINTGPr ! 
5)iC0LOR2,6!L0CATE2,28:PRINTGPl- .- - 
3,fliL0CATE4,28:PRINTGPl' 1 • t C0L0R4, 01 lOC^ 
TE6.28(PRINTGP«(2> 

6213 COLOR3,8iLOCAT£8.20:PPlHir.S'i I 
OP6.0(LOCATE10,20.0'PPINT^R1'4. 
621 6 COLOR 1 , 0i LOT. hTE 7«. .-. : PP I H : i,P I ■: 
6217 LOCATE30.20'PPINTGPI' ~ »CRI - II > 

7) 

6220 ATTR80,e:Nl!"TJODOPEP£*M!FH("-,*v.>_-Q« 
LALA*3I*lM2*--SILO*S0*S0FM*FAMlPE*PEt>C'*[' 
0"(S*-'03L53AlT2"lFORU-nC'^ = fL". (l*f!2IIN 
EXTH(CLS(RETURN 

6270 ATTRB1, 1 : L0CATE13, 19IPBINT- -(=0-30 
001U-1 I ATTP88, 8l LOCATES. 8 (PRINT" ' IRETUP 



6399 FOR 1-1 T03(C«C*C' I •!&«[" I "i ■■* Tl 

ic»ctO»S0(F-c-Tiir r then f-0 

6383 IF F'PE'NI' THEN PE'NI'-F 

6319 COLOR3.B!ATTP61.O:lO':"TEU.4,0ifbinT 

■SCORE (-iFiLOCATE6-6.0:PPINT-PECOPDi-;R 

E'NIKPLAY-O1L20T36h1'»-S1SI- 

6326 ATrRB0.8tLOCATE2,23(lNPUT-VOULE: V0 

US REJOUER'IL* 

6338 IF KIDKLI. 1. 1 >«"0- THEN 58 EL3C EN 

D 

6580 CLSIL0CATE18, 181PR1NT-NI VEAU DE JEU 

6518 L0CATE13. 1 3( PRINT ■ 1 -TPES r«CILE-tL0 

CATE 1 3, 131 PRI NT -2-rHClLE'( LOCATE 13.171 PR 

INT"3-NOPMML-!LrjCHTEI3. I 91 PRIHT-4-OIrTIC 

lLE"tL0CAT£13.2HPRINT'3-TfiE3 DIFFICIlE- 

6513 L0CATE23.18IINPUTNI 

6516 IFNIOIANDNI ^..NDNl:-3 "NDNt 4»Nt> 

NIOS THEN 6515 

6328 PE--38*<NI-3)-45*<NI-4)-35*(NI.3.-6 

8*<NI-2>-78*'NI-l ■ " TE--10©*-: ni --. ■ 1901 N 

1-4 .-200*iNl-3)-23O*(NI-2,-38e*<NI-l>!CL 

SiRETURN ■ 



THOMSON T07 



SPIDERS 



Ce jeu d'action seduisant par. son graphisme evolue 
(environ 80 caracteres definis) et par ses animations, 
vous conduira sur la Lune. Grace au laser qui equipe 
votre module spatial vous devez detruire le maximum 
de vaisseaux envahisseurs en forme d'araignee qui 
vous attaquent en vous lanpant des missiles. 

Olivier FAURE 

Vous disposez mitialement de 5 vies mais lordinateur vous en 

donne une tous les 3000 points 

Vous piiotez grace au joystick et actionnez le laser avec le bouton 

'action* de ce dernier. 

Si vous ne disposez pas de joystick, remplacez la tigne 1080 par: 

1080 AS - INKEYS : X = X* (A$ = CHR$ (8) AND X >0) - (AS = 

CHRS (9) AND X< 38): IF AS = CHR$ (32) THEN GOSUB 1290. 

Dans ce cas. vous piiotez avec les fleches horizontals du clavier et 

acchonnez le laser avec la barre d'espacement. 

Ce programme dans sa version integrate necessite une extension 

memoire (il occupe 1435 octets) mais il est possible de I'utiliser 

sans cene derniere en retirant tes lignes; 30 a 370 et 840 a 890 




18 ATTR80, 01 CLEAR,, 166* JCREEIWj ■?. - I . LS 

20 LFI-CHR*' 18/:GCi$U8 30 

39 DEFCR*<6--0.0.0.e.0,0,l,3 

40 DEFGR* <1 >•*,?. 31. 63.1 2~, 235. 555.255 

so *>efgr»i 2 -•63,31 ■.:..;. a, 9.9 

it ->efgr*<3>-*253. c55, 252, 112,0, e,e,e 

'■< : [m-114 ■•Hi. ££*,***. tit. -5-. 255. £55 
.255 

!■■ : i- >* '■ -■?..;..;.-:-..;-..:<. :■:. : ?2 

>9 [■EFC.Si. 6 .-. IT.. 31.31.63.63. !2~. 12" 

199 DEFGR*' 7>*-233, L 31,9,9, 128, : £8, 123. 12 

9 

lie DEFGRf'3'-255.25S,:.4,0,t,7,15 

1 20 DEFGPS' ^'-255. 255. 255. 252.240, 192.24 

9,248 

139 DEFGR*' 10 ■ -255.255. 243. 1 15. It. 9. 9.1 

149 DEFGP*'ll *224.24.j. 248. ;52. 252. 254.2 

54.254 

159 &EFGRI- 12 --255. 253. 255, 223. 251- 255. 2 

35.24? 

169 DEFGPI' 13 ■■: 92- 192. 192, 192.225,225,2 

25.231 

\~;< 0EFG&S. 14 ..15. 3 1.252. 220. 25£.*0.255 . 

126 

188 DEFGR*' 15 '-240,249, 192,9,9,3. 3; .6 7 
198 DCFCR*' I6>«0,3, 1,8,73,203/239,223 

299 DEFCP*'!' ■-234.234.255.255,255.255.2 

55.255 

210 DEFGP*' IS "255.255.255.255.12-. I 2- . 1 

27.63 

229 &EFGR*(19)-227/2»/I92/l»2/ 192,9,0,9 

239 DEFGPI 29 -=239. 255.247. 63. 63. 63. 22 . 1 

4 

248 DEFGRf<21 ) =61 . 243. 169.0.0,9. 0, 

250 DEFGPI' 22 '=255.25. 1.1,1.1.1.3 

260 DEFGR*' 23 -233.255. 255.254.254, 254,2 

54,254 

278 DEFGR*<24 =-,3.63.31.31.31.13,7.7 

c : " C-EF- J Pl'23.-=0, 128. 24 J. 252.252. =52,252 

.254 

298 DEFGR*' 26 ■ = 15. 3: . 31 .31 . 31 , 127, 63.31 

399 DEFGR*<27>-7,31,31,31,3I., 127,63.31 

310 DEFGPI L': ^252. ^4^. £45,240.224. 224, l 

92. 128 

329 DEFGP*< 29>*3/ 1,0,9/0/0/0/0 

339 DEFGPI' 39 '=253.255,253, 127.31.7.1.9 

340 0EFGP* f 31 ,-9,9,0,9,2,6,31,127 

330 DEFGR*' 32 '-9, 0.0. 0.8. 1.99,232 

369 DEFGR*' 33,-255. £54. 232. 243, 22*. 123. 9 

,9 

379 t'EFGP!'34/*9, 9.9,0.0. 9,9,9 

390 DEF&P*' 35-1.3. 1.3. 1.3. 3. 3 

3">0 D£F&PI'36'«9. 125,9. 128.0. 123, 128/ 123 

408 DEFGP*'37'-7,39.68, 124,126,255, 179,3 

419 &EFGRI' 3S '-;?2.249,126, 124.252.254,1 
54, 152 

420 &EFGRf<39>-8/0/240,lll, 171/126/24 .1 
37 

430 DEFGR«40>-0,0/0/ 192/232/239/ 191/223 



449 DEFGR*' 41 >> 

459 0EF&PJ.42 ■■ 

07,232 

469 DEFGR»C43>i 

47 

479 ■>EFGR*-:44>: 

23,255 

499 DEFGR*<45>^ 

51,255 

490 DEFGR«<46>; 



39 

309 DEFGR*<47) 

510 D£FGP*'43.. 

7,255 

528 DEFGR*<49> 

23 

538 DEFGR*<30) 



,251 

549 DEFGR»(31) 
27,234 

550 DEFGR*'52j 
76,199 
560 &EFGR*<33) 

,243 

379 DEFGR*'54) 
580 D£FGR*<35; 
590 DEFGR*<56i 

609 CEFGP*'57.: 
619 DEFGPI'53" 
629 DEFGR*<59>' 
253 

639 DEFGPI' 69)' 
,233 

640 DEFGRK61 >■ 
6,239 

659 DEFCP*<62>: 

3.63 

->;S &EFGPf63 ■ 

7 

679 DEFGR*<64>' 

182 

639 DEFGP*<63>> 

34.127 

699 DEFGR*'66> 

43,223 

709 DEFGR«<&7> 

222 

718 DEFGR*<68) 

233 

729 DEFGR*<69) 

739 DEFGPt'79' 

748 DEFGPI' 71 . 

759 DEFGPI'72:. 

113 



253/223/3,233/249/4,111/2 

■223,255, 134,247,232,221,1 
-224,252.255,127.191,206,2 
■9, 9. 1 23,224,249, 252, 191.2 

-9,9,0.0.9.9,9,123 

-175,248,243,33,224,219,24 

-255. '.243, 222, 254, 8, 183,1 
-223,255.239,39,63,191,287 
-238, 127,239,245,223,235, 1 
■233,255,160,199,223,199.1 

-224,248.56,139.153.31.239 

-8.9,9,0,0.1.15,255 
-8,0,8.3,63.247.253,231 
-9,0. 15,246.213,126,239,22 



'251.255,29,239.23,137,222 

'191.251,192. 191.139,32,24 

'251,230,123.39.159.111.24 

.7.15.23,61.121.248.247.20 

■233.255.5.227,251.227.13. 

'103,254,247,175,251.215,2 

-251 . 233, 247, 229,232,233, 2 

'233.224,31.123.127,9.237. 

■245.31.287.292.7.219.239, 

>9, 9, 64, 64,224,64.64,8 
■8,1,1,1,1.1,1,0 
•3/7/61/287, 10.259. 130. 1*2 
■192.224. 189,243.99.93,63, 



JEREMIE LE GRIMPEUR 



Suite de la page 2 



1589 ON N GOSUB 4188.4700.3190.5680.3759 

,6800 

1398 X-X-l 

1608 At-lNKErt 

1610 IF A*', "THEN &ETUPN ELSE 1310 

2000 'SAUT************ 

2019 IF X*27 AND Y-I THEN 3899 

2928 IF X-14 AND v-6 THEN 01 "WEI "32 (CO 

TO 2409 

2030 IF A-l AND X>l THEN 2190 

2848 IF 6-2 AND :< 3? THEN 2200 ELSE RETU 

PN 

2108 LOCATE >:. WiPPINT- ' 

2110 L0C6TE X.YSPPIHT' - 

2120 LOCATE X-l,riPRIMtGR»tl3) 

2138 LOCATE X-3/Y4-J!PR:kTGR*<14>C»I I 

2140 MO-0:ON N G08UB 49(10. 469'?. 5008.5509 

.5788:n0-3:0N N r,rj;ij6 4199,4700,3189.560 

9,3759J«0-3!0N N GOS'JB 4900.4680,5908.33 

98,3798t0N N GOSUB 4 I 89. 4799, 5 198. 3690. 5 

738 

2190 LOCATE X-1,Y:PP!HT" "!/ = >.-! 

2193 LOCATE X-2. Y* ] i PRINT " 

2196 LOCATE X,YiPRWGR«<7) 

2197 LOCATE X. Y-2SPP1NTGPI. 9 ■ 

lo-a THEN ON M GOSUb 4208. 4988,5200. '. 10 
8,61ie,6129:RETURN EL'-E 2^00 
2290 LOCATE X,Y*SI PRINT* ' 
2210 LOCATE X/YIPRINT" ' 

2229 LOCATE *+\, ViPRI«TCR»<I8 

2230 LOCATE X* 1 . <- 1 ' PR 1NTGP*' I 1 

2249 MO-0ION H GOSUB 4099.4600,5009.3580 

.37e9,6989'0N H GOSUB 4188. 478A,' : 

0,3750.600e:"O-3iON N GOSUB 4988.4699.58 

08, 3308, 5798, 6900'ON N G0JU8 4199,4.08,, 

189,3600,5750.6009 

2298 LOCATE »1 ■'<■ PRINT " -fX-X*l 

2293 LOCATE X/Y*HPRINT" * 

2296 LOCATE a, V = PP I MTGP* ' 4 , 

2297 LOCATE X, V2t PP1NTGM(5> 
2293 n0-9:A3-P0INl:-»^. •• • 
JO -8 THEN ON N GOSUB 4208. 4?f-.-.' . 
0.6J10.6I29SPETUPN ELSE 2900 
2400 LOCATE X.YlPPIMT- - 

2419 LOCATE X/Y*2»PPINT* * 
2413 LOCATE X-2,V-HPPINT- ' 
2416 LOCATE X-2, Y*l t PP1NT" " 
2419 LOCATE X-2,Y»3iPRINT« * 
2429 LOCATE A-3.YiPRIHT',r.|... '>'i.- 
2438 LOCATE X-l,Y*2iPRINTGR*<29, 
2440 LINE'01.£1>-<O1.E1*32>,1 
2443 FOR T-l TO 88'NEXT T 



2452 LOCATE >:-2. Y: PP INT - ■ 
2456 LOC0TE X-2. V»2:PPJNT' - 

2453 LOCATE X-2.Y-2IPPINT- " 
2460 LOCATE X-3,YiPPlNTGR«<29> 
2470 LOCATE X-3.Y»2:PP1NTGP*(38> 
2499 FOP T-l TO 30:NEXT T 

2492 A»-INKEY*!IF A*-CH»*<32' THEN K-X-3 

[GOTO 2990 

2318 LOCATE X-3. Y-UPPINT- * 

2328 LOC0TE X-4.Y1PPINT* ' 

2539 LOCATE X-4,Y»2:PRIMT- * 

2340 LOCATE X-4,YiPPINTCP*<31 ) 

2339 LOCATE X-4. Y*2: PP1 NTGfi*' 32 > 

2333 LINE<O1.E1>-'O1-13,E1*10>. 1 

2339 L1NE'D1-13.E1»I9»-'01-19,E1*2S>,I 

2568 FOP T-l TO 98* NEXT T 

2378 A*-INKEY* 

2390 IF A*-CHP*'32> THEN 2709 

2583 LOCATE X-3, Y-llPPINT" ■ 

2399 LOCATE X-3. Y'PPIHT" * 

2593 LOCATE X-5. Y--2 : PRINT' • 

2393 LOCATE X-6, Y*4iPPlHT' 

2603 LOCATE X-3,YtPPINTGP*'2?' 

2683 LOCATE X-3,Y*2!PP1NTGRI(39> 

2618 LINE<tii,El>-<0l-t6,E!'22',l 

2620 FOR T-l TO 70* NEXT T 

2630 LOCATE X-3, V- I * PRINT' * 

2640 LOCATE X-4,YlPRINT" ■ 

2630 LOCATE X-4,Y.2!PPINT- - 

2655 LOCATE >\-l, Y: PPI NTGRI ' 26,GR» ' 27 - 

2668 LOCATE X- 1 . Y*2 : PP INTCRK28 > 

2663 LlNEf01,El*-'01,El*32>,l 

2670 LOCATE X-3/Y-1IPR1NT' * 

2673 LOCATE X-4.YIPRINT* * 

2676 LOCATE X-3, Y. 21 PRINT ' 

2688 LOCATE X-l . YiPP 1NTGP*'3I ■ 

2632 LOCATE X- 1 , Y*2* PRlNTGRt(32 > 

2633 LINE<D1.E1>-'H*I4,E1*19>,1 

268? LINE'01*14.El-18>-'r>I*12,E!*28>,l 
2698 FOP T-l TO 1901NEXT T 
2695 LOCATE X*l. Y-i IfRINT* ""IF fl-1 THEN 
LINE'96.32>-'96,64>,HG0T0 2499 ELSE CO 
TO 2498 

2798 n-M'HON « GOTO 2719,2789 
2710 8OXF(70,33>-<li6,63>,-e 
2715 LIN£'96,32>-'96,64> 
2728 Dl-64*El-32'X-X-4 
2739 GOTO 2490 
2730 B0>;F'38,33'-'*5.65',-e 
2790 X-X-3IL0CATE >.. Vi PP I NTGR*< 7 ■ 
2793 LOCATE X, Y*2> PPlNTGP*r9> 
2880 LINE«64,32>-<64,64).I 

iH5lii"K!Si?.:5!SS' ! SJ , UM.«™.. 

2908 'CHUTE* •*••• 

2910 LOCATE X,Y-nPPINT- ■ 

2928 LOCATE X, Y»2: PP1NTGP«< 32 ■ 

2925 LOCATE X, YlPRINTGP** 31 > 

2927 IF Y-3 OR Y-18 OP Y-I3 OR Y-19 THEN 



868 OEFGPI " 

916 0EFGR« f 79.-8. (9,116. 

928 ' TERRE 

838 L0CATE6.8.8' ■■:■:■•: :-: -1-LIfiil ■ 
TO MO:. .JNT RND831 - . ■ 

20*FSET ..* -.CiNEXTN 
340 LOCATf. .i 

I' 1 : :C0L0P -.4TPPINT ;n I : ,-t 

OR 4,o*PPInt -si. 4>1CR((3 i 

333 LOCATE X.YtPftlNT LFl;JfRINT ,: I 6>|l 

COLOR 4,2:PBJHT CRI ' ■ .'■ 1 . ■ Y- t - : .- 1 

IBniCOLOP 4-OiPPtxr GRI i 
368 LOCATE X/YIPRINT LFtJLFfHC 
PRINT GP*' l2>IGRfCl3>lGR«l4>;CRt<1 IGI 
*'16>i:C0L0P 4.9:PPINT Gf| ;- : 
379 LOCATE X.YiPRINT LF*(LF*;LF*J IPR1NT 
BRK19XIC0LOR 4.2:PPIn: ■.:* '. tCR* Z% 
IGR6(21>IGR>C22 M COLOR 4,9:pp;s- y. i n 

389 LOCATE X/YiPRlMT LFtlLFtJLFffJLFSftPf 

INT GR*<24.j:C0L0P 4,2;PPIWT r_si, 2 g ; -*| 
(26)ICR*<23>)GRt(e7»tC0l.0R 4.9iPPIhT GS 
*'2S)i 

399 LOCATE x,v:PRIMT LFi:lF*;lFi: lfi:lF* 
jsPRINT GR«(29)lGRf(38>;iC0L0l) 7/ 4 1 PRINT 
GPI'31 ■:CR*'32.'::C0LQP 4.9:PPIS' Y t 33 
>;GR*<34); 

999 • PARTIE OROITE DE LA LUNE 
910 ATTPB1,8:X«28»C0L:Y«22-LIC 
928 LOCATE X.YiCOLOP 3,0:PPINT ;=i 39 : : 
R*<48.';GPH41i;GR*' , 34,'::COL0P 7,e: = PINT 
GP*(34);CR*<34>) SCOLOR 3,8tPRINT S=( 34 

938 LOCATE X/YlPRIHT LF*;:PPINT GR*<42>; 
GR*(43)!GR*(44/;CR*'45':GP»' 46 :r,P* *r ■: 
GR*«34>j 

940 LOCATE X.YiPRINT Lf*>LF*l 1 PRINT Qtttt 

48)jCR*C49);GR«C3eJjCRf<3n?GR*<52 ;","* 

33>)GRt<3)j 

958 ' PARTIE GAUCHE DE La LUNE 

969 X-6*C0L:Y-22*LIG 

979 LOCATE X.YiCOLOP 3,0:PRINT GRK34 :G 

R*(34>;GR*(34))CR*<34):GP* 54)) GRI 53 I . 

R*<36); 

939 LOCATE X,Y:PPINT LF*: SPRINT GR*<34» 
GR*(37)|Cft*<58>jGRt<59>lCR*(60>;GR*<61>J 
CR*^62); 

999 LOCATE X.YiPRINT LF»; LF*: : PP INT GR*- 

9>;GR*<63>;GR*(64>;GR*^65 >;GR*'66'!GR*<6 

7>;GR*<68>> 

1990 LOCATED. 3/01RTTR81/ : : LOCATE 12, 12* PR 

INT-SPIDERS*! PLAY- t'OPENIFASOLASI-i LOCATE 

12, 12!PRINT- 

1818 PLAY-03L3DOPEnlFASOL2eLASlDO- 

1828 ' BOUCLE PPIKCIPALE 

1838 ATTRB0,0!X-19iARH-ie*APHl«39:vlE-4! 

C-lJREC-3008:NV-9.6 

1048 IF VIE<0 THEN GOTO 1660 

1050 IF SCORE=REC THEN GOSUB 1749 

1069 ATTRB9, 8* LOCATE 1.1 = PRINT-SCORE'! SCO 

R£:L0CATEI,3!PRH*T-VIE<,S*i':viE:H-3*C0S' 

ARH*19'*14!ARV-h:HX-X!PSET(X.29>GR*<33>, 

tiP$ET(X*I,20>GR*(36>/HPSEl .2] 'CRf J? 

>,4:PSET<X*1,21>GRI<38),4 

1078 H1-3*C0S'ARH1*5>-12saRV1-H1 

1030 a-STIC»iS':>: i »'h-7 mND S - «"7 AN 

D X<33)!IF STRIC(9>--1 AND A< 1 THEN COSU 

8 1290 

1998 ARH-ARH.(APH>X AND -HRH1.8ANO BND>9.4 

)-(ARH(X AND ARH<33 AND PND 0.5 

1190 ARHl-ARHl*fARHl>X AND ARH1V0AND RND 

>0.4>-fAPHi :■: AND APHK39RND PND B.3 

1119 LOCATE9.0.O!PSET«ARH.ARV>GR*<71 ',Cl 
P3ET'APh-i.apv>GR»' 78), C 

1120 PSEKRRHI/flRVl GR* '■ .CiPSETtftSHl* 
!,ARV1>GR«(72>,C 

1130 PSET<RRH/flRV>CRi 73 .CiPSEl RRH»l»* 

PV)CR*(74J,C 

1140 PSET<RRMl#ftRVl>CR»<73)/C»PSET<ARHl« 

l.ftRVl)GR*<74),C 

1150 IF SCORE>5009 THEN NV-0.3 

1169 IF SC0RE> 18080 THEN NV-6.2 

1170 IF RND>NV THEN COSUB 1470 
1180 MARH-ARHiHAPV.mPV 

1190 HAPHl-APHpHARvl-ARVl 

1289 LOCATEHAPH.HAPVIPPIMT- - 

1218 LOCATEHAPHI.HAPVI IPPINT " 

1228 PSET<HX,29>- • : PSETfHX. 1 , 28>' 'IPSE 

T<HX»2IJ" *iPSET(HX*l,21 >- - 

1239 GOTO 1849 

1249 FOR BH-ARV TO 29 

1230 PSET*ARHM,BH*1>GR*<6?>,7 

1260 HARH-ARH1H8H-BH 

1278 PSET(HARHH,HBH*1 )' "iNEXT BH 

1280 RETURN 

1299 IF A8S< ARH-X>-' ABSIARHI-Xi THEN L"« 

RV 

1389 IF ABS'ARH-XV'-ABSIARHI-X' THEN L-A 

RV1 

1310 PSET(ARH,OPV>CPI< 71 '.CiPSET' ,.kH-l ,A 

RV)GP*<72>.C-PSET< ARH1 .opvi >GRi<73).CIP8 

ET<HRHl»l,RRVI>GR#<74>,CiLlNE(8«X*7,8«e 

-1 J-(8*X*7,L*8*8),4tPLAY'L2DOriIS003D004S 






.348 PS" " 

: ■ ■ 

-. - • ; s 

1358 AT?pe».#! :;. 

\-;-*t -'. =. ■:-■.-■ - . 

■3lor3!lo:ate:mC-. ■ . 

1360 FOR T-l TO 136* HI 

*-[_:'--: 

■ 

■ ■ ■ ■ 

ATEARH.l.ABVtPPiWT- ■ I COi. D"*»t LOCATE**-— 1 
. ARV- 1 : PR I NT ' 
'01,11 

■-,'■* -* :^o:-'i----\.-- ■ •■:<*■ -t 

0L0R3-LOCATEABH.:.-; - -,::s :i-;ii 
RTEARH.ARVtPRINTGRI " :F0* P-l TO 26:**E 

XT 

-tearh/AAV'-iiprir; 

.ARV-1 "PRINT* " I LOCATEaBh. ARVI PRIH1 
1498 C>IliT<RIB>66 >*liARt*>INl RNM 

14: SCORE-SCORE -596: RETURN 

1410 ATTRB8,8iC0L0Ri:L0C--;~:-:.-- 

RINTGR»<75i!L0CATE-=hi- t.AI 

3;!C0L083!L0tATEAP-H:.I.ABvi-i:t; : 

6>iL0CATEARHl,liRvl:PfiI-iTi' ( ' 

1428 FOP T-l TO 150:*£-:: . 

PPEL2FAR102L1RENIL203RE:.. 

30IBEL2O3BES0FA- 

1439 COLOR9:L0CATEARHl,«B^l-l:=; | . 

OCATEARHl»l.ARVliPPINT- * : COLOR? *LM AT£A 

BHi.i.ARvi-iipRiNT* •:\.-:-:-' : . -■" . ■ 

INT' - 

1449 ATTRB!.1:C0L0B1-L0CaTEaRh:.-- 

PJNTGR*(73'!L0CATEAPM:-i.-Pvi:BBl»tTGR*.7 

3>:C0L0R3iL0CATEftPHl-t.APV)-i:PPIN-GRl'. ' 

6.':L0CATEARH1.ABVi:PRINTGR*'7TuF{.b p.; 

TO 20! NEXT 

1458 COLOR8IL0CATEARH1.ARV1-11PP1NT' -^ 

0CATEARH1* I. ARVI SPRINT' ' : C0L0R8* LOCATE* 

RH]*i, ARVI -l sPRINT- •iLDCATEARHl/ARVt IPR 

INT* * 

1469 C-INT(RND*6-"i:SCORE-SCORE*506:ARHl 

• INTiRtlD*3e>iARVl-14:PETURN 

1479 IF RND<8.3 THEN GOTO 1558 ELSE14S0 

1430 U-ARHl'l 

1498 A-ARVI.l 

1598 FOR R-A TO 21 

1519 PSETCU.R'GB'- -. 

1329 HM-UtHR-R 

1330 PSETtHM.HR)' * l NEXT J 1 FH-X OR - ■ 
THEN GOSUB 1610 

1540 RETURN 

1358 A-ARV*1SN"ARH«1 

1569 FOR R-A TO 21 

1570 PSET(M,R>GR*(69>,7 

1589 HM-H!MR-P 

1590 PSET<MM.HR)' -!NEXT:1F U-X OR W-S-l 
THEN GOSUB 1610 

1689 RETURN 

1610 ATTRBl.HL0CATE\-l.2i:PRIN' ■ 

CR*(76)!PLAY'01L2PEFAD002L3SIFrtS0' 

1620 ATTR8I, 1SL0CATEX-1.29SPP1NTCPI t7 I 

GRt< ;ei 

1630 FOR T-l T0200 iNEXT 

1649 attrbi.hlOCate::-i.2i:PRint* ■ 

1659 ATTPBl.ltLOCATE'-l.iOSPBlNV 
-VIE-HRETURN 

1660 ATTRBI.]!L0CATEl0.l2tPRINT-G"t1" ■£ 
P- 

1670 PLAY-T404L/-. ■■ . .-: .. . 

96REL4BDOL9600L4803LR604I ■ 

1689 flTTRee.8'L0CATE8.20iPRINT-UNE AUTRE 
i D r N>?" 

1690 A*«INKEY* 

1789 IF AI-'O- THEN GOTO 10 

1710 IF A*-'N- THEN GOTO 1730 

1720 GOTO 1690 

1730 CLSiEND 

1749 PEC-PEC-3999 

1750 VlE-VIE*liPET'JRN 



Le numero dc la re n tree 
sera en vente chez votre 
marchand habitue) le 31 
Aout, N° 46. 8 francs. 



THOMSON T07 



LOCA 



I 3386 



-1 TO 1 



LOCATE X,Y»2iPRINT- 
T -iLOCATE X-I.Y*3!PLAY-T2L]203LA*r 
H GOTO 7898 
2">38 PLAY'A1T4L403LA* 
2949 Y-Y*1*G0T0 2918 
3099 'MONTEE «*•••••••• 

3993 ir Y-16 OP Y-Il OR Y-l THEN 

3919 A4-P0INT'X*3. OY*2-*3)»4UII 

THEN GOTO 3288 ELSE 3028 

3928 LOCATE X,Y!PPIHTGRI'-16) 

3038 LOCATE X.Y*2!PPINTGPI<17> 

3949 G0SU8 3999 

3938 LOCATE X, Yt PP1NTGP*( I 8> 

3960 LOCATE /. Y-2 < PP I NTGR«< 1 9 ' 

3879 IF *t-4 THEN C03UB 3390' FOP 

StNEXT T ELSE FOP T-l TO 30'NEXT T 

3108 LOCATE X,YSPPINTGP«<28) 

3118 LOCATE X. V*2iPPINTGPI'21 > 

3 28 Y-Y-HIF N-4 THEN COSUB 560OIFOP T- 

I TO 13INEXT T ELSE FOP T-l TO 381NEXT T 

3122 A«-INKEY* 

3124 IF A*0*-THEN RETURN 

3126 IF Y-16 OR Y-ll OR Y-l THEN 3386 

3130 LOCATE X, YM t PR IHTGRI' 22 ' 

3140 LOCATE X/ Y*3iPRINTGR6(23) 

3 50 IT N-4 THEN GOSUB 5500'FOR T-l TO I 

3( NEXT T ELSE FOP T-l TO 39<NEXT T 

3168 LOCATE X.Y.31PPINT* * 

3170 LOCATE X. Y- P PP INTGPI - 1 (. - 

31B0 LOCATE X,Y*liPRINTCR*i 1 

3199 Y-Y-1'IF N-- 

3209 A*-1NK£YI 

3210 IF R«< '"THEN 
3300 A*-INKEYI 
3303 IF A*<>"AND ' 



I GOSUB 5609 
I PEIUPN ELSE 3003 

CHRP' 1 I -THE" '■ 



ETUR 



-11 OP ' 



3310 ON N GOSUB 4900.4600.3000.550* 

3313 ON N G0SU8 4189.4709,3190.5680 

3320 GOTO 3388 

3308 'DESCENTE**»*#< 

3303 IF Y-6 AND X< li 

P Y-26 THEN 3733 

3310 h4»P01NT<;<*&." .•2'*8'»12)iir A- 

THEN GOTO 3708 EL5E 3320 
3520 LOCATE X, Yi PPI NTGRI ' 16' 
3530 LOCATE X. Y'2l PPINTGPI' t 7:> 
3349 GOSUB 3938 
3343 LOCATE X.YIPPINT" " 
3530 LOCATE X, Y*2I PR1NTGRI ■■ 
3360 LOCATE X,Y*4IPRINTCRI 
1378 IF N-* THEN GOSUB 5309 ELSE POP 

TO 68tNEXI T 
3688 LOCATE X. Y»B< PPINTGRK20 > 
3619 LOCATE X, Y*4lMINTCRf <B1 



3629 IF N-4 THEN G0SU8 5608 ELSE FOP T-| 
TO 48* NEXT T 

3621 V-Y*l 

3622 Al-INKEYI 

3624 IF **0" THEN PETUPN 

3626 IF Y-6 ANO X< 16 OP Y-ll OP Y-16 OR 

Y-20 THEN 3733 

3630 LOCATE X. Y* 1 i PR INTGR*' 19 > 
3648 LOCATE X,Y*3'PPINTl.H I 

3636 IF N-4 THEN GOSUB 5300 ELSE FOR T»I 

TO 301 NEXT T 
3670 LOCATE X, Y»l iPRINTGR»( 16> 
36B0 LOCATE /; . v • 3i PR 1NTGPH I 7 > 
3690 Y-Y*HIF N«4 THEN GOSUB 368P 
3700 A*-INKEYI 

3718 IF AiO**THEN RETURN ELSE 3300 
3733 AI-INKEY* 
3748 IT A*0**AND »*'.,CMPKIO>THEN KTUR 

N 

37*5 ON N GOSUB 4089. 4690. 5«60 

3750 ON N GOSUB 4100.4789.3109 

3733 GOTO 3735 

3880 "LONCUE COPDE 

3818 LOCATE X-2, Y i PP 1NTI.PI ■ 2t ■(■>■' • 

3313 LOCATE X, Y*2l P»INTGR«<28) 

1B26 PLAVA9T4L203&ORE-IIFASOLASID004DORE 

HIREMI' 

3B23 LOCATE X-2.Y1PP1NT ' 

3836 LOCATE X,Y»2iPPlNT* " 

3333 X-X-2 

3840 LOCATE X.Y-HPP1NT- ' 

3843 LOCATE X, Y*l ■ PPINIOP t ■ .* ■ 

3830 LOCATE X, Y«3' PPINT&P t ■ ."■ ■ 

3852 LINE(289.0)-<288.112-.1 

3853 Y-Y-I 
3069 A*-INKEY( 
3663 IF AI-CMR»<32>AND K 
3967 IT A*-CHR*<32'AND ' 
3878 IF A*-CHR»*32> *** 
LSE 3849 
3B78 LOCATE X.Y1PRINT" * 

x%7pRIntgpi"».. .!«■.■»■'. o .-..■....:i. -. 

liPLAY-LAD0PEHIFftFANIRED0'iN-5lSC-SC»3'G 

OSUB 6380IPETURN 

3900 'CHOIX DU 5PBGM 

3«82 IF Y(I4 AND Y>7 AND Xv28 THEN 

3963 IF Y<14 AND \ 

3966 IF V<19 AND 1 

3967 IF Y<4 AND X< 
3919 RETURN 

Suite page 4 



THEN 3876 
7-11 THEN 3878 

THEN II IB ■ 



■ AND I I N 

> 14 THEN N-I0 
?0 'HEN N-(. 



THOMSON T07 



JEREMIE LE GRIMPEUR 



SUfe * M P«B* 3 



•Bi*riiC2«ee*F2tF"i 



^936 'CHOIX DU 5PRC - 

3932 ir YM8 AND V.U THEN LOCATE 8-1. IB 

:P»INT" *ILOC«TE S-l . 1 3i PRIMT" ■:*£ = .- 

: GOSUB 4709 

195* IF Y>I« AND Y<|3 AND *>I8 THEM N=3 

3935 IF Y>18 THEM N- I 

5966 RETURN 

-099 ' rallies 
4995 6-C*F r-- 

4010 IF G<38 THEM F-l ELSE ATTRB 0.9SLOC 

ATE B.mPRIMT' •>C»«>ftTTRB I.! 

«815 IF CU33 THEM Fi-i ELSE ATTP8 8,9iL 

Bl.KiPRIMT- -:G1=0:ATTPB 1. | 
4028 IF G2=3B THEM F2* I ELSE aTTKF ■:■ . : L 

>CATE G2.MPRINT- •:G2-0iftTTRB 1.1 

-=G AND rtO-9 OP X-CI AND no=e OP 
<*G2 A» no«e OP K*1«C and ft-l «M> «0=9 
or x*i-ci amo m-1 and no=e amo x*i«gi o 

K*l*Ce AMD KO*9 AMD A-1 THEM 7089 
^825 RETURN 

4109 *aff pallier 1 ******** 

4183 attrb 9.8;locate g.*ippimt* • 

ilie LOCATE G*r,K»PRlNTCR6<42> 

■U15 LOCATE Gl.KiPRIHT* ■ 

11S8 LOCATE GI- C WK:PPINTGRI<42> 

4123 LOCATE G2.K:PPINT " 

4138 LOCATE C2*F2.K:PR1mt:pi j; 

4135 ATTPB I, H RETURN 

4206 'SAUT PALLIEP !•••••••> 

;;?; : r >*: op k-ci or x»C2 then ?eee 

4218 ]F X-C-I OR X-Gl-1 Oft X-C2-I THEM S 
■ S r -'.:GOSUB 6580:RETURN ELSE RETURN 

4680 'PALLIER 3 «M»t«t •••* 

4610 IF S=23 THEN «■! 
4620 IF S-3 THEN NI-2 

4622 IF S-22 THEM L I RE < 298, ?0>->29S. 112) 
. 1 

4623 IF X«S AMD N2-2 THEM 7900 

4626 IF N2-2 AND X»l-S OP N2-2 AMD X-2-S 

THEN 7880 
463B IF M2-2 THEM LOCATE S.13:PRINT" " : A 
TTRB 0-1:LOC«t; S*2, :3:PPI NT" -:ATTPB 1. 
::M2-1 

4633 SA-SA-1UF SA-5 THEM SA-9:N£=2 ELSE 
K2-I 

4640 RETURN 

4780 'AFF PALLIER 3«"»«»«t»-»»»«» 
4719 OM Nl GOTO 4715. 4S89 
4715 ON N2 GOTO 4725,4759 

4723 LOCATE S,18:PRINT* ":LOCATE S-1.10. 
:PPIMTCR*(43>GR*i44> 
4739 S-S-URETURN 

4739 LOCATE 3,19:P*>INT- -:LGCATE 3-1,13 
:PftIMTGR*<:45>:ATTRB 0, I : LOCATE S-1,I3:PP 
[ MTGRX 46 >:S-S-l: ATTRB 1, 1 : PLAY "7 1L6A903 
SOLAS! ' 
4760 RETURN 

4380 OM M2 GOTO 4819.4358 
4B10 LOCATE S.10:PRINT* "^LOCATE S-1.10 
:PPIMTGR*'47)GP*<43j 
4B29 S-S*1:RETUPN 



4338 LOCATE S.I0'PRI: 
ATE S*l. 13IPRINTGR*' 
S*2,I3iPRINTCRt(5et 
SOLAS I * 

4060 RETURN 

4900 'SAUT PALLIER 3 

4918 IF X-S 

5990 'PALLI 
5BB5 PA=PA 
3006 IF no 



"lATTRB 9.UL0C 
rtTIPB 1. It LOCATE 

• 1 :PLAr-I|L6A803 



IF 

3089 IF X* 
M 7888 
3010 IF PA 



7898 ELSE RETURN 
4 *■..■»•<.... 

PA1-PAI.JHPA2-PA2*J2 
3 THEM 5010 ELSE 599~ 
A OP X-PA1 OR X-PA2 THEN 7G90 
• PA OP X-1=PA1 Oft X>1>PA£ "HE 

13 THEM J-HPLAVL6T303A8SI' 
32 THEN J*-1IPLAY"L605A1SI* 

-13 THEM J!=liPLAY-L6T303A9DQ 



5035 IF PA2-38 THEN J2=-l : PLAY -L605«I r A" 

5037 RETURN 

5103 'AFF PALLIEP 4 ********** 

5103 ATTRB 8,8:L0CATE PA,18:PRIMT" ":LOC 

ATE PA*J, I9:PRINTC-R*<42> 

3118 LOCATE PAWieiPRINT- ":LCCATE PAI*J 

1, 18:PRINTGR«42) 

5115 LOCATE PA2, 18: PR I NT" ":L0CaTE RA2-J 

2. 19:PRINTCR*<42) 

5120 ATTRB 1, UPETUPN 

5200 'SAUT PALLIER 4 ••••••••• 

5210 IF X-PA*J OR X=PA1*J1 OP X=PA£*Ji T 

5228 IF X-1-PA*J OR X-1=PA1*J1 OR X-1=PA 
2*J2 OP X*2-PA*j OR X*2=Pfll*Jl OR X*2=PA 
2*J2 THEM SC«SC*5:G0SUB 6598:PETURH ELSE 

RETURN 
5309 'PALIEP '<»•««•««•«••»»• 
3503 IF YR=18 THEM YR=! ELSE 5540 
5318 IF CR«30 THEN CR = 37 ELSE CP.=30 
3535 IF Y-I THEN PLAY-Q3A1 T2LSRET1LSHIFA 

so- 

5537 IF Y>3 AND X<32 THEM SC«3C*12:G0SUB 

6500 
5540 RETURN 
5600 'AFF PALLIER 5 *•••*•**••*» 

5610 ATTRB 0,8:LOCATE CR,VP:PRINT- " 

5628 LOCATE CR, YP*1 : PPIMTGRf(42> 

5625 YP»YR*1:ATTRS 1,1 

5638 IF CR-X AND YP=Y OR CR-X AND Yft-Y»l 
OR CR-1*X AND YR=Y OR CF-I=X AND VR"Y*1 
OR CR*1»X AND YR=Y OR CP*I = X AND Yft = m 
THEM 7003 

3t35 RETURN 

5700 'PALIEP 6 umu. 

3705 IF HO=0 THEN 5718 ELSE 5715 

5710 IF X=BM OP X+l-BN THEN 7008 

5715 BM=BM+1 

5717 IF BM>»24 THEN BN=24 

5718 IF BN*1 = X THEN SOSC+13JG08UB 6590 
3720 FOP T=l TO I5:NEX7 T 

3725 RETURN 

5750 'AFF PALIEP 6 •*«••*•••• 

5755 ATTRB B.9:L0CATE 8M-1 .3: PRINT " -;Gft 

»<42) 

5760 ATTRB 1 , 1 : FOP T=I TO 39:NEXT T 
5765 RETURN 



&B80 'PALIEP 7 ••■«!•* 

6985 IF X-VM AMD HO-B THEN 7889 
6815 IF VN(1 THEN LOCATE l,3iPPINT- 



6199 RETURN 

6110 IT X-BN THEN 7880 ELSE RETIJBN 

6129 IF X=VN THEN 7900 

6139 IF X-t-VB THEM SC=SC*30:GO: 

RETURN 

6530 'SCORE 

6518 ATTRB 0.0:CONSOL£ 23, 24. , 2l LOCATE = 

S, 24 :PRINTSC: CONSOLE 0. 24, 1 . 0! ATTPE '. ■ \i 

RETURN 

78B0 IF X<3 THEN X-3 

7062 IF XJ37 THEN X=36 

7804 LOCATE X-3,Y-l:PPINT- ":LGCaTE V. 

-3,y:PP1NT- 'JLOCBTE X-l,V*2i PRINTER 

S<48)GRK41>:F0R F«l TO 3 

7085 LOCATE 19. U PP INTGRK 'GPt< 37 . : LOCA 

TE 19,3tPRINTGft*<2'CR»'33>:PLAV-03T4L24A 

7DOT2L2A2PEMIFAS0LASirj4DOPEI1iraSQLe- 

7018 LOCATE I 9, 1 : PP 1NTGPI' 35 GPI' W! LOCA 

TE 19,3:PRIHTGPS'36<GP*'3'iPLAY-Q3T4L24A 

7!:-OT2l2A2REH1FA5OLmSI04D0PEHIFAS0LA- 

7815 HEXT F 

7820 PLAY- A8T3L404D0PD0P00PPEH: FAS 1D0PEH 

inmiHi* 

7825 PL«Y"05S1LASILAD00300RESI- 

7938 CONSOLE ..OIFOP C«6 TO 1 STEP -1 

7935 COLOR CiLOCATE 24, i : PftI KTGR*<53 -Gft* 

(54>;-S": LOCATE 25. 3: PPIHT-PEPDIT : Li NEC 1 

99, 1 ) -(178, 9 >. 3: LIME-' 199, 31,. 3: LINE- 23 

8,31>,3:PLAY'03T2L<SILAS0S0LASI31LAr'Q-:N 

EXT C 

7048 PLAY-AeT3L405:.;^--::^"i: : Et'0045ILASO 

FflnlRE0003SILJJ0F«M:tE:.fj.32;: L HS0FAf1IPEDO 

01SILAS0FAMIREPPPPPPPPPPP- 

7959 FOR T-l TO 791NEXT T:CLEAR:G0TO !0 

7590 'GAGNE ••••••!•••• 

75B1 LOCATE 19,HPRJNT- -:LOCATE 19.3:P 
PINT" •JLINE<I32,32>-M98.32>.-8:L1NE<1 
52,32)-<132,64),8 

7583 FOP r-2 TO 20JLOCATE 28, Y-l : PRIHT' 
": LOCATE 20, Y: PP INTGP1 1 -Gfit ' 1 > : LOCATE 
20,Y*2:PRINTGR*<'2>GPJ<3':PLAY-O2T4L2DO-: 
NEXT Y=PLAY-03T4L24A1RE- 
7595 PLAY'TIL4A801DOPEnlF"iCLH3 ICiSi-^ENI 

-:■■-:.-.-. -■ : - : .- h: - =. - 7- :.-::: r --" 

LASIOSDOREfllFASOLASI* 

7519 CONSOLE,. 9: ATTPB B,0:FOP C"6 TO 1 S 
TEP -1 

7520 COLOR C-liLOCATE 1 3, 2: PPINTGP*' 35 ' : 
LOCATE 19,4iPPINTGP*(39>:L0CATE 17,5:C0L 
OP C:PRINTGftt<39i:C0L0P C'ULOCATE 11.4: 
PRIMT0P*f39>: LOCATE 13, I : PRI NTGftf l 39) : LO 
GATE 21,2:PRINT GPI> 39 ■ : COLOP 6:L0tAT£ l 
5.4:PRINTGR*(39>:L0CATE I 1 , I : PR 1NTGPK 39 

7525 PLAY-05L6T2SILAS1D0SISILA-:HEXT C 
7530 FOR X-37 TO STEP -1 
7535 IF 2=51 THEN *=52:CM ELSE Z=5:=C=3 
7540 COLOR 4:ATTRB !,l:LOCATE ;:,12jPRINT 
GftS(Z)J- -;:ATTR8 e,8=C0L0P C:PPINTGR((3 
9>:PLflY"L204T3PPPP':NEXT XiCOLOR 5 
7550 ATTRB 1 , 0: PLAY" O3L4T3A0PEfl IFASOLhS! 
04D0P.ErlIFASO-:L0CATE 0.12:PRINT" VOUS "! 
"~" ATTRF 1,1!L0CAT£ 8,1£:PPINT 



VET ■i:PLAY-03PPPPPPP'^- 
B 1.HPR1NT- AV£Z ■ 

7555 ATTPB l,BiPLAVPPPPPp*:P»lN' - :o* 
E*>PLAY-PPPPPp-: L OCATE Zl,12fftT7*t I, UP 
RIMT* GAGN- • 

7569 PLAY*(,?M-^: ;:-. ■ t -. ,• ;;--;;--:—- 
: --; ;;.--■:;;..■■ 

HtEn:r&;ot'OD0D0»Li '~-: = i " " * 

7379 COTO 5 

11999 '•• AfriCHMt D'J tESSIM CnaRii M 

14900 F0R1-9TOMC-I 

14919 DEFGRrM^GP- I . I ..CP' 1,2 >.GP I. J ■. 

GR<I.4>,CRd.3>.GR' 1,6 ■.&» t.7),CK I, 

1402B ATTRB 1. i:LOC*TEPC< 1 ' •2*28. PL '1 >«2* 

4,9:C0L0RC0ULP(l'<,COULF( I-:P»IMTCPI < I >J 

14939 NEXT 

14049 80KF'9,8'-<152.299>,-1it'ESSIN'i:Ci» 

ILLE-=0:GOTOI08ie 

14999 LIGMES tE DEFGPt • 

15809 BEEP:GPlLLE»9:LL=l:CLIC«|:LIG=l::<: 

.^0:iCPEEN0.0,9:CLS:LOCATE23.e.BiATTRB1. 

8:COLOft8.l:PftINT-CPEATOP-:ATTPBB,0:BOXF< 

8,8'-'72.79..-4:COMSOLE12.24:SCREEN4.6,0 

:CLS 

15B95 C0L0R6,8:L0CATE12.3:PRINT-la PENIS 

E EN ORDRE DES CPI":lOCATE12.4:PRIMT-PRE 

MD PAPFOIS t>U TE«PS...-:L0CATE12,6!PPINT 

"SOYEZ PATIENT I" 

1599? '•*•• BOUCLE DE RECLASSEHEMT •«•• 

15018 FORI -9T09: FOR J^0TO9:rORGR'0TOMt-1 

15020 IFPL(GR>-I ANDPC<GP>-J THENC0SUB15 

15830 NEXTCR:NEXTJ:CL1G-1:NEXTI 

15839 ' • PLUS t-E DEFGRf «•••••••• 

15848 PLAY-O5LI0DOHISO':LOCATE9,24:COLO» 

1.81PRINT-APPUYEZ SUP UNE TOUCHE' I J 01- IM 

PUT*<I):C0NS0LE9,24 

15058 SCREEN0,0,B:CLS:aTTRB1, 1 

15860 FORI«0TONC-]:LOCATEPCU >»2*20. PL (I 

)«2*4,0:COLORCOULP'I>,COULF(I>iPRIMTCP»f 

IJIIKEXTI 

15870 GOTO19019 

15079 '<« INSCRIPTION LIGNE A LIGNE i» 

15030 IFCLIC-]THENLOCATE0.24:COlOPe. 1 : PP 

IHT'APPUYEZ SUP UNE TOUCHE • i : A«» IMPUTti 1 

>:3CREEM4,6:CLSELSEGOTO15095 

15098 BOXF<0. I»8>-'80.(I*1>»8-1 SOfLOCAT 

E0.11.9:COLOft6.4iPPlMTfl!DI(STPHI0«LL>,2 

)" 'LICME *flID*CSTP«( I*! ',2)" DU DESSIN 

■ :WG'lS:CLIGc0!U.*LL«-l 
15095 IFL1C-11THENLOCATE24.LIG:COLOP6.4: 
PRINT-<SUITE)-iLIG-LIC*l 

15180 LOCATE-I, 1 , 9= COLOPCOULPi CP .', COULF<G 
P):PRIMTCP*<.GP , .:COLOPe.t-:LOCATE0.LIG.9:P 
PINT HID«(STRI< I6»LL-''.2'-" DEFGP*' *1ID« 'S 
TR*(XX>,2>*)« - J 
15110 F0RK-IT03 

15128 PRIMTHID*'STPt'GP«GR,t:' ,2>: 
15130 IFK<8THENPPIMT-.-:ELSE PRINT 'itC 
0L0P6,4:PftIMT-'C0L'"nlI>*'STPI' J),2>*>"! 
15140 NEXTK 

15145 IFPOS 25THEMl:G=lIGH 
15158 XX-XX*1:LL-LL*1:l1C=LIC']:IF LIG>2 
2 THEM C0L0R8.1:L0i:ATE9.24:PPINT-APPUYEZ 
SUP UME TOUCHE-;:OI=INPUT*<1 >:LIG«1)SSC 
ftEEN4,6.B:CLS 
15168 RETURN 

13999 '*•«•••••••♦ FIN ••••• «*<• 

16998 BEEPlSCPEEH4....t:ClJtPPIHT-T0UJ0UP 
S A VOTRE SERVICE" I 



- V0US-;:ATTR| 



1,8:PLAY"05PPPP-: 



PIGEON 



Vous etes deux, un chasseur et un pigeon. Le pigeon 

tente de construire son nid en allant chercher des brin- 

dilles et de la nourriture, tandis que le chasseur le tra- 

que. 

Le mode d'emploi est dans le programme 

Thierry SCHNEIDER 



THOMSON T07 



LEAR. 



HCL! 





<NB*16,HB-10),CU:PSET(MB'20,HB-=>,CU 

FOP H=8 TO 60INEXT H 

NB'X*8:riB=l948:PSETrNB-I8.nB-3'.CU: 
<NB-8,«B-17>,CU:PSET'Net3,HB-;.3 >,CUl 
CN8*24,nB-15-.CU:PSET(MB'2B,l18-5,,CU 

FOP H*8 TO 68:HEXT H 

IF FO-1 THEN G0T03788 

PLAY-04A3TIL2D0RE5IFAO3SIFdO2SOPE-: 
:CU=4:G0T0 3620 

V I = V I - 1 !FD=0: IF V I =- 1 THEN GOTO 998 
SE GOTO 6008 

L0CATE32, 22, 0:COLOR7. 2: PPIMTVI 

0=0: J-l 

RETURN 

• • PIGEON TOUCHE 5UEL0UE LHiV.E •• 



5010 IF 0-0 AND X<6 OR 0=0 ANDX-33 THEN 

SC = SCH:SI-1!Y-V-UL0CAT£X.19:PPINT" "iC 

0=7:L0CATE12,22!C0L0P7,2:PRIMtSC:PL"V-05 

A6T8L2D0REMIPPD0PE"!-: RETURN 

5015 IF 0=9 THEN GOTO 3590 

5020 VI -VI-1 SPLAY" A6T8L203SI SON ID002S ISO 

HIDO-lIF VI— 1 THEN GOTO 9B9B ELSE GOTO 



51 10 COLOR, ■ 



3 i880 
I 17,4,9 
1*11 V-A 

'• T-::C"3 

B .. 41UY-4K \ ■■:■:■.■■ : 
l9iX*4AiY*6 
; I Kl-M 

ia for d«e ro 3*s<a -is« - 

15 DCFCR*(fl>-I29,lM,ie2,6e,24,9,9, I 

t ocfgr*' i p"9,e, i9S, W5/24,e,e,a 

17 DEFGR»' i -9^8,8,24,36. 192,193,129 

18 DErGR*(3>-e,fl»I«,233,2*,A,e,fl 
:■? DEFGRH4J-4. 32,32,34,62,52,48, 
:_i. &£TGR»<53"4,14,1J, 31, 14,4,4,4 

■ : c-EFGpi'i.-taieaiietefiBiieei t 

00009,68901 lI10Q,6Been I19B,6B91 111999.1 

301188800, 18901 19890 

}.i: uEFGP*' 7> -',91 9899 I 90, '-B1 8108111.^6190 
I 1919. '.89010101;?. -.3: [Un IB, 1690910910.1. 
919910081, 6B9ill9113 

- i-irwt<--. ■■■■■■ 



61 



II CLS 
CO-3tO-eiSl-0!N-19:X-40! 

10 LOCATE0.20:COLOPB.i:i:PPIN 



221 X-X-HIF /.'.& THEN Z-9 
229 RETUPM 

999 ■ •■(.••.•••*.•(•«■••■••••• 
•• BOUCLE PRIMC1PALE »» 

1090 OM STICK<B> G0SU8 119.110.190.110,1 
18,119,120,110 

1290 OH 8T1CK<1) GOSUB 130,160,179,189.1 

98,299.219.229 

1299 0-POIMT" y.*d ■•■>.■■ Vf&:-*4> 

1308 IF u- ..n: -■ THEN C0SU8 5939 

1393 IF »X1 AND V»0 AND C0-7THEN GOSUB 



1310 IF H<6 THEN M-6 ELiE IF 



>33 



Ull, I 



III, 



:■:.:. 



■ 



i53.255 

14 DCFGR>(9>-8,9,e,e,6B90ie8191,6l 

91.255,235 

23 DEFCI»«<19)-0.8,0,e,tB 

-381,233.235 

:i :-EFGP*' l: =■:■ . 

: i8899,tBii ia090it.'.E::: :i990. tBi :i :a«e0. 

=33.23-. 

97 iOSUB 6996 

96 GOTO 1008 

•9 '• • KPLACtHEMI »«••••■ 

:80 L0CATEf1.M.9:f-i 

HEM lt-49 

1 19 PETUPM 

129 LOCATED, M,9!PPIWT- ■ 

EH H-9 

;39 RETURN 

:30 LOCATEX,Y,0:PP1MT" ' 

ZH "0 

139 PETUPN 

160 LOCATEX, Y.0JPPINT- ' 

EN Y-8 

:6i x-xmiJF •/;,*% then ; 

169 PETMPN 

;7a locate;-:. y.oippiht- ■ 

HEN X«49 



m-w.niF ( 



,-;:;;■ . :>. 



1359 P-P.l! IF P-4 THEN P-0 

BTEX,1',0fCOLORCO.4lPRlNTC««fF I' 

PIGEON 

1398 LOCATEM,H,9iC0LOR2.4ipRINTCR< 4 !') 

HA68. 

1318 EI=E:£-H 

1313 IF 0-0 THEN GOTO I6B0 

1339 \- 0-1 THEM l-SCPEEll L.-:: : 

THEN GOSUi ■ 

1350 IF 0-1 THEM LQCATEEi.P.;.': : 

tTRIC<8Jlir 2—1 THEN PLAY-05A9L2 
T2t.A8Il.ArAW I GOSUB 3899 
1658 IF 0-: THEAL8CATCE.R.9IC0L0R8 
;,?>■ S)IR"R- Ulf • ■? [HER 0»8i :: ■ 
.9.0-.PPIHT- • 
1999 GOTOI089 
399B '••*••••••.•• 

■■• TIP ..I. 
■•••ft*****'* 

3001 CU-CO 

3188 0-IU-8iP-19tE«l 

• 32 THEM GOS'JB 3588 

3138 LOCATEE.P.0ICOLORB:PP|NTGR 

3298 PETUPN 



CREENC£,fi > ■ IF i 



3308 '•••! 

• t I 

(001 



..li. ............ ., 

I FLEGHE TOUCHE LE PIGEON i 



HEN : 



•40 



181 Y-l 

189 PETUPM 

196 LOCATE*. Y.9!PP1H1" 

199 PETUPM 

296 L0CATEX,Y,8iPPINT- 

■■ B THEM X-8 

S89 PETUPN 

210 LOCATEX,V,0lPPINT- 



3510 IF E',X OP R«V THEM 0-9: LOCATEE I . R 

•l,0tPPIMT- -tPETUPN 

3608 L0CATEEl.P»-l,8!PPINT" * 

3683 IF Y>9 THEN GOTO 3610 

3686 LOCATE/. Y,8iPPIMT- "JY»I 

3618 FOP U-Y-I TO i8iLOCATEX,U,0:PP!MT- 

"tLOCATEX,U*1.0!CQLOPCCi:PPINTGPl'P.;PLAY 

"A9L2T20300PE' , 1MEXT U 

3620 M8-X»BlMe-19«3:PSEr(NB-7,NB-2-,CUlP 
SET'MB,HB-5),CU:PSEr<HBt4,f)B-3),CUlPSET< 
NB»3,HB-5>.CU!PSET'MB'14,HB>,CU 

3621 FOP H-8 TO 69INEXT H 

3639 NB-X»aiHB-19«8lPSETrNB-14,MB-4),CUl 
PSET(NB-4,HB-lB>,CUlP3ETfMB*4,KB-l9>,CUl 



6110 FOR U-13 TO 19SCOLOP5,5!LOCAU4,;.,H 
: PRINT '.,*!L0CATE34.U,8:PP INT",. ":M£:t U 
6120 FOP U-0 TO 13:LOCATE9,U.0:PRINT-... 
...TNEXT U 
6130 FOP U-2 TO 13tLOCATE34.U,0iPRINT".. 

-tMEXT U 

6140 LOCATE34,1.0:PPIMT-..- 

6142 IF T=l THEN L0CATE4. I 4, 3: C0L0P5 . 5 : P 
RIMT"..- 

6143 L0CATE6,4:pRIHT-,,-iL0CATE6.ll:PPIN 
T-." 

6144 L0CATE32,7:PPINT".,-:L0CATE33.ietPP 

INT"." 

6145 BOXF<.0,168'-'319.1?"- .2 

6150 \.QC*TZ$,ZZ.eiZQLOP7.2:PJ>\tn~irovtf 

iSCf ' VIE'S1=-;VI 

6280 IF HX>0 THEN FOR U=0 TOHX- I : LOCkTEU 

, 19,B:COLOR0.4:PRIMTCPI*6'!NEXT U 

6250 IF HY>0 THEN FOP U = 36 TO 33*MYJL,0CA 

TEU. 19,8iC0LOR9.4iPPIMTGP*'7>:HEXT U 

6388 IF S<5>-8 THEN L0CATE36. 1 1 COLOR?: pp 

ItfTGRiMl>jGP*a9:-!GPI<9.') tCOLORMPRlNTC 

Rf ■" H ' : RETURN 

6310 IF S<6>-0 THEN L0CATE36, 1 : C0L0P7: PP 

IMTGft»(ll);Gft*'ie)MCOLOPi:PPIHTr,pi"-- ;r. 

R6<8>tRETURM 

6328 IFS'7>-0 THEN L0CATE36, 1 : COL0P7: PRI 

NTGR((I l>n COLOR I'PPINTGPK 1B)JGR*' "•■ i GR 

X8XRETURN 

6338 IFS(8)-0 THEN L0CATE36, I «COLORHPRI 

NTGR*<iI 'IGP4' 16)1 GPC 9;>GR*<8>tR£TUPN 
6340 If 5<4>-8 THCN L0CATE36.HC0L0R-1PP 
INTGR*(ll<;GRi' 18>lGR»t9>jCR*<8>t RETURN 
6358 IF S(3>-6THEN L0CATE37. i: r n i 
NTCRI' I9'!CRii?)IORI'e ■ J RETURN 
6368 IF S<2>-8 THEN LOCATE38. I iC0L0P7iPP 
INTCRf<9>IGPI<8>!RETUPN 

6378 IF 3<l)«8 THEN L0CATE39, t t COLOP"! P 
PlNTCPt<8)lPCTURN 
6499 COLOR, 4 
6388 RETURN 

3988 '•*••••*•••■•*•*•*••••• 
MM PRESENTATION ••■• 



S860 PRINTsPPINTLE PIGEON DOIT ' 
RE SON NIO EM ALLANT CHERCHc:- DAN< 

La GPOTTE OUVERTE LEi BR1NDILLES F 

PUIS DANS- 
8870 PRIMT-L'AUTRE GROTTE LA WOURRITURE. 

0075 PPINT-IL DOIT PPEMC'PE UNi i-. 

ET LA PAMENEP a SON NID. PUIS "LL£P 

CHEPCHEP LA SUIVAHTE.ETC. . " 
8080 PPINT:PRINT'LE CHASSEUR DOM A6ATTR 
E LE PIGEON JUSOU'A CE OUE CE^UI-C1 

N'AIT PLUS DE VIES. - 
0090 PPINT-LE CHASSEUR PEUT *!P£c bijThNT 

DE TOIS OU" IL LE DESIRE. " 
3995 PRINT:PPINT-SI L£ PIGEON i'ECRASC i 
UR LES PAPOIS DES (-'>■ HE R :■ . ! L PEfl- -HE. 

VIE" 
8100 PPIMT:PRINT"P&UR f.ONlIMUER APPUYE2 
SUP UNE T0UCHE-:t,O!MNPi|Tr' ! ■ : '. I : ; 
PC < 1 8 ) : ATTRB 1 . : PR I NT " W 11 1 ' : h 1 1 -■;■ , ■ . , ■ 
8185 PRINTiPRIMT- l£ CHASSEUF 
IGER SON TIR GRACE « Sa nANETTE' 

8110 PPINT:PRINT" LE PIGEON GAGNE L* i 
ARTIE SI IL ARRIVE k RANENEf R i 

MID LE COMTEMU DES GPOTTEi- ,HA] 

N'A PLUS DE VIES.C'EST LE CHASSEUt 

0U1 GAGNE ' 

312fi F'PlNT:F J V!n: :F-]/K iff- ; 'I : ''■■ 

CEP APPUYEZ SUP UNE T0UCHE'lAO«"lNPI ■ ( ■ : 
.MCLStRETUPN 

9608 '••••••* ******* * 

• PLUS &E PIGEONS » 



9108 CLS:SCPEEH7 

9209 PPIMT-LE CHASSEUR A CACHE. TQU= I 

PIGEONS SON! HOPTS. LES PIGEONS N 

OBTENU OUE -iSCl" POINTS" 
9388 LOCATE0. 10,0:PRINT-POUR CHASSER 
OUVEAU APPUYEZ SUP UNE TOUCHE •'■■• 

NPUTKDtGOTO 7 

10000 •*» ♦•»*.*•♦.. t 

• PIGEON EST DE RETOUfi • 



+ 1 IS" 



-I 



10016 IF T-2 THEN GOTO 10390 
10108 LOCATE* [, l,8tC0L0R7,41 if 
N PPIttTCR|fi3' ELSE IF ::i-38 THEN 
l<9> ELSE IF Xl-37 THEN PP1MTGPI 
E IF Xl-36 THEN PRINTGPt'll* 

10119 CO.31SI-0SSC-SC 19= ■/.:<:} -I 
3 THEN Kl-39 

10120 IF Xi-3? THEN ICATI 4. 
4.4IPR1NT- "IX1-39 

19228 RE7UPN 

19360 ' 

10310 «X-HX-]iL0CATE4.14tC0LOR4. 



I |N 



••••< 



**** 



9939 RPINTiPPIMT-CE JEU SE JOUE m DEL'-:' 1 

3949 PRINTSPC'3>1-LE 1 JOUEUP DIPIGE LE 

PIGEON- 

8838 PPINTSPC(3>I-LE 2 JOUEUP DIRIGE LE 



19328 L0CATEX1, 1,01001 ORI .41 If IH1 

n ppintgriU> ELSE ir ;:: 

1(9) ELSE IF Xl-37 THEM PRIHTGRJ. ■ 

E IF Xl-36 THEN RftlNTGRti i I ■ 

19330 CO-3iSI-O'Sr-,i;.i0:,:i= l-[: IF Kl-3 

5 THEN COTO 11000 

18408 PETUPN 

11000 •*••********** 

* LE NID EST TEPniNE • 

11901 P-0 

1 1910 CLStSCREEN7,0.4 

11189 LOCATEO,0.0:PR[nt-lE CHh-.-.E'IP - PT 
RDU , PETIT A PETIT LE PIGEON « F»II 
SON HID I' 
11290 LOCATED. 121PPINT"P0UP PEJOUER -FPU 
YEZ SUP IP* COHNEl- 

1I210 A*-IMKEYI:IF Af*P' THEN MTTP6O.01 
GOTO 7 

I1220 ATrPBI,0!L0CATE37. U . 01 PR I NTGPt ■ P ' 
iP.p'lMf P-4 THEN P-0 
11225 FOP Y-9 TO 20INE^T 
11230 GOTO 11210 | 



THOMSON T07 



CORSAIRES 



ORIC 1 ET ATMOS 



Voici un jeu en trois tableaux en langage machine. 
Dans le premier, ii faut passer au iravers de douze pi- 
rogues, eviter des recifs, arriver devant la porte du fori 
lorsqu'elte est ouverte et eviter le navire gardien qui fait 
la navette devant le fort, ce jeu est limtte dans le 
temps, le chrono etant affiche. 

Dans la deuxieme partie. il faut eviter les boulets 
lances par le fort. 

Enfin dans la troisieme partie, vous etes a pied a linte- 
rieur du chateau. Vous devez arriver jusqu'au coftre. 
Pour cela, il faut passer au travers de boulets lances 
par le service de s6curite et ne pas marcher sur une 
case de meme couleur que la tete de mort. 



Michel PIPON 




ADAPTATION ATMQS: 



Supprimer la ligne 5610. et remplacer la ligne 5600 
par: 

5600 PRINT 14,25/VOTRE NOM" 
Remplacer la ligne 6440 par: 
6440 CURSET X,Y,0:FILL 8,1,C:CURMOV 0.- 8,3. 
Bien entendu, ajouter 1 a I'axe des X dans les instruc- 
tions PLOT et SCRN. Comme cela semble vous poser 
des problemes, deux exemples: 

Si vous rencontrez I'instruction PLOT 3.4.5". inscrivez 
"PLOT 4,4,5". Si vous avez "PLOT X.Y.5", inscrivez 
"PLOTX+ I.Y.S". Voila! 

Surtout, attention aux datas! La moindre erreur peut 
etre fatale!. 



: 
. - .. * -■ ■ 



119 REM MUSIOUE 

120 REM 

130 0ATR3.8,2.4.I.4,4.3,1>3,8. 1,4/3,1 
,4,5.2.4.5.2.4.5,2,4,3.1.4,6.1,4.1.1,4 

5.3 

149 08784,3.1.4,1,3.4.3,1,4.5.1.4,5,1 
,4, 3. 1-4. 1-2- 4, 3- 1-4. 5. 1-4. 3. 2. 4, 3. 1.4 
.5.1 

159 08784, 5. 2.4, 1,1,4.3.1.4,3.4,3.3,2 
.4.1,4.4,3,1,3.3.1.4,3.1.4,5.2.4,5.2-4 
-5-2 

16© 08784.5.1.4,6.1.4,1,1,4,5.3:4.3 1 
-4 . 1-3.4,3.1.4,5.1.4,5. 1,4.3,1,4.1.3,4 

.3-1 

170 DR7R4.5. 1.4,5,2,4,3. 1,4.5. 1.4,5.2 
.4.3.1-4.5.2.4,3.1.4.1,4,4,1,1,3,8.1.4 

,1,1 

188 08784.3.2.3.8,1.3,3,4,4.1,1,3.8.1 
.4.1.1.4.3.2.3.8.1.3.8.4,4,1,1,3.3.1.4 
,1.1 
19© 08784.3,2.4,8.2.4,3,3,4,3,2,4,3.3 

: 3.8.3 
208 08783.1.2,3,6.3,3.1,1.2,10,1,3.1. 
1.3,6,1.3,18.1,4.1,2,3.18.3 
219 REM 

229 S£M C8PRC7.CL.2 

238 PEM 

249 08788.9.9.3.3.7.3.3 

259 08780,0,0,48.56.68.36,56 

269 08783. 1,7,7.7.7.7,7 

278 087862 63,63.63.63.63.63.63 

Z88 08789. 8. 8,32. 32. 43, 3*. 56 

299 WTR7.7.6. 14. 12,29,25,13 

599 087863-63.8.39,63,63.63,63 

319 087824.24.23, 12, 12.36.44,62 

329 087851.55.55.13,13,7,7,3 

33© DOTR63.63. 39.7. 7.7.7.39 

349 DR7A23.e. 12.6.3. 1.8,8 
358 0R7R3.3.1. 1,9,9. 1,3 
369 087855,59,59.59,58.59,58.2 
378 MTH31, 51, 55,7.7,7, 7.7 
388 08787,7,7,7.7,7,14,28 
399 08787.2,2,2.2.2,2,2 
488 087863.63.39,7,7.7,7,7 
418 08788.9.0.3.7.13.7,7 
429 08780.9.9.43,43.58.48,48 
438 08788.8.9.1.1.3.7,7 
448 MTR31, 63,63/63/63,63/63/63 
A'J) 087843.32,56.56,36,56.56,56 
469 08786,6.14,12,12,9.13,31 
479 087863, 63-0- 57,63.63.63.63 
488 087856.56.24,28.12,46.38,50 
499 087814. 4. 12.24,48.32,9,8 

588 087863. 63. 57-56. 56. 56. 56. 57 
518 087851.53,59. 60, 68. 56. 36.48 
328 087R39, 13. 13, 19-19,19. 19, 16 
338 DfiTH43,43.32,32.8.8.32.48 
549 087863.63.57-56-56.56,56,56 
358 OTTflSt, 39. 39,36,36, 36,36, 48 
569 087856-16. 16. 16-16-16. 16-16 
579 OR7R56.56.36,56.56.56,56.60 

589 WTfll. 3. 15.31,63.63.62.68 
599 D87832.S2.63. 63.63,33, 1.1 

688 Wffi] .31 .63,63,63,48,32/32 
619 087856. 60. 62. 63. 83. 31. 31. 15 
628 OB7R68-60.39. 15,3. 1.9-9 
639 08783.7. 63,63- 63/ 63, 63. 63 
649 087848-36. 62, 63-63. 63, 63, 83 
659 087A7. 7. 30-69,56. 32. 0.9 
668 087863.63.51.51,8.0,0.0 
678 087863. 63. 3:. 31. 0.0, 9. 9 

689 087815.31. 63,63,63,39,0,8 
698 D87W. 32-32, 62, 63. 15,1.0 
799 MTR8, 0.8,8, 48, 62,63, 31 
71<J r-firfiR. 9.9. 9, 8. 15.63.63 
729 08780,8,3.15.63.62.48,0 
739 087869-62.62,63.63.31.12,9 
748 00788,9,56.69.63.63.31,13 
759 t*nft9.8,31,63,68,48.32,0 
768 08787.31.63.36.9.9.9.9 
778 087836.63.63.15.1.9.9,9 
739 MTA9.48,60,63, 63-7,1,0 
7 ?q t*T«».9.:-4.62,63,63,«3,62 
888 WTR8. 18.8.3-8,36.8.9 

819 00788.63.0,8,9.0,9.9 

820 0878'2, 31, 12.9.9,9,9,8 
839 087012, 62. 12.0,0,8,8,0 
349 0878963.3. I, 1-7, 13.31 

358 08789.63.48.32.32.56,60.62 
360 DRTB6 >.63,63,! 
370 OA7R6?, 63. 62-69. 56, 48- 32,0 
888 08789, 12. 38.63.63,38, 12.0 
398 08788-9. 1.3-7, 15,31 .63 

ntB8,8 63,63,63/63.63,63 
319 I'ftrflO. 9. 32.43,56-68,62,63 
928 OA7ft48.60,62.63-62.68,48.43 
939 REM 
949 REM CFiPBCT.rL. 1 

-.,!■ 08780,3. ?,3,0,O,7,7 

970 DHT832,56,56.36,32,32,60/60 

?39 08787.7,8.9,31.13.7.1 
998 087868,69.32,32.63.62.68.48 
1888 08787 13. 31. 63, 62, 42 42,0 
1010 0RTR56 68-62- 63. 59, 41, 41, 32 
1028 00780,9,0,8,0.7,31 63 
1939 DAT032, 32, 32. 32,32.36,62,63 
■■■-;. 15 M .63,63 63.63.13 

1859 CRTR36 62 . 63 ',': .63-62. 58. 36 

1860 087063,63. 63, 63,< 

1078 DRTR12, 12.8, 14, 10,63,31,8 
1038 08TR6 6,4.7 .5 63.62.8 
1090 007812,12,4.28,20,63.31.4 



1108 087RI2, 12-4. 2=3. 29.63.62. ^ 

1119 08781. 7, 15. 31. 31 .63.63.63 

1120 MTR32, 56. 66, 62, 62/ 63, 63.63 
1130 [>9TR28-42.42.42.62.42,42,62 
1148 0RTR9. 12-38.63,63.38. 12-8 

1159 08787.7.7-7,7.4,4,4 

1160 D0TB62.46 S,46 62. 0-8.0 
1179 REM 

1189 REM CQOE MACHINE 

1199 REM 

1209 ORTR»8?,«20,489,«00,»91 .4 35. ■80, 

01,ffSl,835< *fl8,428-«?l H35.IR0.W29.*? 



1210 DnTM35,t68.tR2.#84/#fl9.t2e/*9D/ 

4C3 . 480, #CA , 409 , »FR . 468 

1220 DRTMfl2 . 404 , *R9, 413. 490, 4C3, 4BO, 
4C8,M>8,«Ffi 460 

1230 08784A5 •02.»3O.»9O.«84,#60 

1240 0A7A«fi9, 498. «R9, 420, §01 , 435- 4F0. 
•83 • »20 . 42A - 485 . 489. 461 . 491 , «35 

1250 ['RTR#R0 . «01 . «A9. •20. 4D1 . 435. »F0. 
■ 03 . "20 ■ »2R . •35. »R3 , «62. 491 . 435. 488, «2 
9 

1269 087A4A3, »20, 401 . 433. 4F0, 403,420, 
•2fi. 485, 4fl9. 463, 491 . 435. 4R8.429, 4R9 

1270 Ofi7R420.4Ol.«35.4F3,493.»29.«2fi. 
•35.4R9. 464 , 491 , i35, 460 

1280 0fi7fi4R9.429.48D,«Cfi.48E.»8C>.4CB, 
•BE 

::.--'3 r.pTft*8L>.»FF.«80-»?0.»F£,480,48D. 
■26 ■ «BE ■ 480 , »2R . #BE , *80 . *9F , 48E 

1380 0878480 . 49E . «BE , «E6 . 437, 4R9, 409, 
•91 , §37 . 4R9, 46C , 480, 491 - 491 . 037 , #80, »9 
2 

1318 O87R4R9,429,»O1.«37,«F0.»03.»20. 
•28, #35. «8?. #60, 431 , •37-«R9, 428 

1320 087A«E6.»39.«ft9,»89, 43 1.439, 489. 
•6C ■ 488 . #0 1 , 491 , #39 . 488, 402 

1338 0HTR4R9, 420, 4D1, 439. 4F0, •93.420. 
•2R . »35 , •A? . "50 . •? 1 - «39 ■ «R9 , 429 

1340 t>B7fl»E6.»4i.»R0,«00,491 .MI.IB9. 
*6C . "R0 ■ 491 . 491 . 44 1 , 480, 402 

1359 DR7ft»89- 429, «01-«41,»F9. •93.429. 
•28 . 495. 4R3. »6C' , 431 . 44 1 

1360 Pft7fl«R?,»29.«fl0.«i0,«91 .437. •89, 
•6C • 4R9 , 4R1 - 491 , 437 , *P& . 4R2 

1 379 OR7R4R9. »20 -•01, »37, »F0, #83 . «20 , 
•Zf\ ■ «35 . «R9 • «60. «9l , «37- 4R9 . »20 

1 380 [>H7R«R0. 4R8, 491 , 439, »R9- "6C, 4R0, 
•fll.«91,439.«R0,4R2 

1398 C'87R»R9.420,4Dl-«39.tF0,403.«20. 
•2fi . «35 ■ 189 . »60. •?!.•??. %9i3 . 428 

1400 t'R7R4R9,«R9.»?l . »4I , «R9, *6C , 4R0. 
•Rl . 431. «41, 488,482 

1410 087R4R9, 420 •01.«41,«F0, •03,428. 
•2fl,»R5-»R?,«60,491 .«41 

1420 [■ft7RiC6.«43.*R9.«90.4R3,420,«Ol. 
•43,»F8.«03.«29,«2fl,«35,»R9,46E-491,44 
3 

1430 0R7R*ft9. «01 , •R?, «6F . «91 ■ §43. «R0. 
•02.4R9-»29.»31-443 

1449 [■R7R«C6,»45.»«8-»90,4R9.420,4D1- 
•4^ . «F8, »93 , «28. 42R , 483 , »89 ■ «6E , »9I , 44 
3 

1450 C'flTR4R9,»91 ,4R9,«6F.491,443p4m8- 
•02. 1109,428, 491. «45 

1469 DR7R4C6-447.4fle,488,4fi9.428.401, 
•47, 4F8. "83. 429, »2fi , 485 , »R9 , 46E . «3 1 • «4 

' 1470 OR7fl4ft9.491.4R9.46F.491.447.4fi0, 
•82- 489, •20.491, 447 

1489 0flTP.»R9,»Fl9,»fi?.428,M>1.443.»F9. 
493 . 429 ■ 42fi - 483, 4R9, 46E , "91 , 443 . «R0 - »fi 
1 

1498 Dfl7R4R9.46F.491.«43,4R0,4R2,4R9, 
429,491.443 

1388 0fiTR«RO . »R0. •fi?. »20, »01 - ^45, 4F8, 
•03.420,42fi,»35.«ft9,46E.491,443.«R8.«fi 
I 

1519 PR7fl489.46F,»91.445.«fl9.4ft2.4R9, 
•20. •91,443 

1320 0A7fi4fi8. «R0 . 489 . «29. «01 - M7. 4F0. 
•03. 428. «2fl. •83- «fl9, »6E. 491 , 447 . •80, »fl 
1 

1530 087R489, 46F- 491, 447, 480, «82.4fi9. 
•20.491.447 

1548 0R7R489.4FC-IC3.437.4B9,494.»89. 
•OR. •35.437 

1538 0878489, 4FC , 4C3- «39. 460. 484, 489, 
408, •35. 439 

1369 DBTftWO ■ »FC, »C3, 441 ,4B8.»84, »89, 
•08.483,441 

1370 OR7R48?.«2fi,«C5,443.4?0,»94.4fl9. 
■4C/M5/ff43 

1588 0flTR»R9»2R,«C5. •45.490. "04. »89- 
•4C,485.»45 

1 598 0878489, 42fi , 4C3, 447 . 499 . »04 . M9 . 
MC. 405**47 

1698 0ft7ft*fi5 ■ If B .tC9. W9,tB0,te3 • i20. 
•lF.»35.«C9.474,t90,493,420,»14,«95 

1610 087fi»CE. 401 ,484, »F8,401 , H68.489. 
•03. •80.«91. •04.480, 483, •O4,»F0,»14.4R 



J640 0M7R4C6,«eO,44C.46C,487 

1 650 0fl7fi«89 , 428 ■ «m8 . »09 - •? 1 ■ »O0 . »89 , 
■ei •■■! •r'l.i.tr.fi. •.:?.•?! -•00.488,425.49 
1 

1660 ORTft»00.46O 

1678 PflTflt*»,M0,tn9-#26 •( i ■•99.4F0. 
«,•■ ■ ■;- 428 §85, 489 ■■." i - •?! , »00 

; t --<- f.ftT8»O0,«0! ">"■■ "29. "01 .•00»FO. 
■ ■2fl.485.4fl5.»62,«91,4OO.»R0-«2 
8 

ATflffAS ■:::'.'«!■! »00-«FO.«83. «20- 
•2R,*e9.W9,»63,t9I,*90ffn«.*29,tfl9 

I 700 O87R420 . 401 . 400, 4F0, (0? . »20. 428. 
•83.489.464. 491 , »90 »60 



1710 0R7R»R[' »n-:.«nj ttgn t-:z •fC »='C' 

*?■:'. »5C »80 •B5-S5C «SD ■•[>['. •8C.48D 

'.720 [RIR»05.«BO.4?t'.*?F. •(*'■•:' 
•BO- 460 

,--,> f.8T^»P[,.»o?-«92.iC? «; ,; »- ; * *■■: 

4C9,4Be,4F8,497,4C9,*9F,4F0,tlfl.t4C,8F 

F 

1740 0878487. 420. 401. 485. •f'-S ■•:-■=■ «P C 
•':=; . «E3 - »23 *:5 ■•35. »R5 •36 ■ •£? ■ «08 

17T0 [-H T Fi«?*-. .*36 •20 •:0.«?5.»4C-4FF. 
•57 .420 ■•01 *?5.4]3,403,*R5,#3S,*69.#2 
8 

1769 0R7R435, 435, 4A5, 136-469. 408- »85- 
•36. 429. •30,485 

1770 t'P7R»*0. «8P.tR9, •22,485, 490. fR9, 
4BC.433.491.482.414.4fl?.t29.ll?l,*00 "1 
8 

1789 Dfl7fi«D3 . »R5 ■ 400 . •€•? ■ •"? ■ •-"" »■-" 
«R5 ■ Wl ■ 469 ■ "00 .t85,m, 4Cfl.4O0.4EB 

1 798 DHTRiOS . 437 . •88. 490 ■ "A3 , 429. 401 . 
#37,4F0,«03.»20.»2R-»85.«R9.f73.«91 ■•? 



1810 0fl7R*73.»91 ■ 437. •C3-«8?-»20.«? 



IS49 0878473, 491, 439. 4C8, 489. 428. «9 I. 
439 

1858 DB7R«fl9.478.«ft?.*20.»O!.»39.«F0. 
•03-«20.»2A.»85489 

1868 087A«73 . «9 1 . «39 ■ K8 . »R9 . «20. »91 . 
•39 

1370 08784C6. 44 1 . 488. 408. •fi?. 428, 401 - 
44i,iFO.»83.420.42fl.483,489.473.»91.»4 
1 



) 0fi7R*73,4?l .#41,tC8.W19'( 



1929 0878473, 491- 443. 4C8,«R9, "20. 1 



" 1950 0fi7A473.«?l . M5. ■C3.4R9. 428,491 . 
445 

1 960 0A7A4C6 . »47 . 480 . 498. 4A? ,•20. •[> 1 . 
•47,4F0.»O3-«20.42A,4?.5,»R;' 473,191 " ! 



l?80 087fl«73. •?! - M7,iC8,fft9 128,491 



20C0 0878429. 491, 447 

2818 08784A9.44A.4C5. •>'•-" W4,ifl9 
»>:F.«35.«37 

2020 0P7fi"R?,"?R»r5 *3?. •^0-404,48?. 
IFc n -:*i , 439 

2030 DflTBJW/tW. tCS .#41 , 190 ■ •''■' KB 
HV.ISS, 441 

2040 0878489.428, 4C3. 443, 190, 404, 489 

•4B.463.443 

2030 OA7fl«fl9."22.4C5.M5.»?0.«<>! •A 1 ' 

443.485.445 

2060 087fl«A9-«e2:«C5.447.«98.484-4ft9- 
•03 , us; - 447 . iCE ■ 405 . »04 . 4F0 , 491 , 460 

2970 0A7R4R9 , 403. 430 . 105 . 404 . 4CE ■ 402 . 

404 . 460 

2930 0A7R«fi0. "83. tBF, «80 ■ ICO ■ 4BF . HflO 

•ft4,»BF,»8O.«CC.«BF.4R0.485,«er.»&0«C 

2090 0A7A»BF,»8O,«A2,4eF.»SO.«':8,«eF, 



2310 DRTR*29 491 ■-'■' ■€« 

^-<29 C-fl7R4ftO ■ «03 ■ »04 . »F0 . • 14 •^ 1 • 33 
■C9,tOF,t98 «■- " 489 MO I 48 ■■'" ■ 



'-Tri»C:-r.«?l •35.««9.»20 
2360 08784R8,»28.t91 •-"5 ■if 191 133 

#68. •88. »00 . ■ft? . §50 191 . 435 
2-~n 0P7Rtra.#R? 43E.49I •35-«*0-»2?. 

•R9,»5F,491,435.4C8,«fl9,*5F.t91, 438 ■■ 



2390 OA7A#O8.»B8.48O«02.«6C. •80-428. 
•BC,*80.*52.4BC 

2488 O87A»8O.»O5.«04.»FO »0-l • ' ' 
•0-J . «60 , #00 ■ «06 ■ 404 . 4F0 . 41 B, #8? . «89 • 



2430 0A7A480 - «06 - "04 , «8? . «0ft , 48D . 407 . 



2519 Oft7R»3O.4O8.494,«R?.«0A.«eO,»OC. 



-■■■<7842ft. «85 ■ »CE. 40F , »R4 . 4F0. #88 
■n9,*61,t91.»3B.tfl5,40C " r ■ IOft,*R9-W 

2570 D8Tf«00,40e.484.»H9,iOft,MI WF 
•04 . «60 
2588 0878428 IB) »89/02e.4C"C,*« "' ■ 

•rR.44C-«fiE-43C.»20.4Bt.#39,42fl.«.- ■ 



100 IF0.«9E •ft?.«I6.»E- 

•E8. 189, fee IFO 103 "20 •2fi,485 
| RTfl«60 
530 REM 

■ ■ REM 717PE 

. .. 

■■■^3. 20-27 
2670 O878O4440484( . 

■ 

■-.- -. i r .-■•... 

3700 MTftS, J2-7 

RTA22I 9668668989899866 
2720 00702222121111988989898444412 
27 fi oftTfl 

£6222211 111999 

2750 t'87A??9??866 

2760 087822221111 199999 

OflTl ' | 1211118668668989 

.......... 

' >.n. , : ... i.- j i : ■■■■■■ - -i-M-i! 

■ II U 

..■..— .; ;.., 

2820 DRT« 

.< i mm .i iiiiiipiiiiiiimiii>» 

2940 REM 

2330 REM C0P3RIRE3 

2860 PEM fllCHEL f 1 !' ' : 

■ ■■■ i i .i 

■ ■•-'-""PO'rniiniMiml 

■.. ■ i ■ 
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SOLITRIANGLE 



Voici un solitaire peu banal: il est triangulaire, les pions 

ne sont pas tous de la meme couleur, et le tirage du 

pion manquant est afeatoire! Un casse-tete digne d'etre 

chinois! 

Totalement compatible ORIC 1 et ATMOS. 

Jacques GRANJON 




19 ; IHP> 13 ' 

■ 
.•5 T»«"i. > i:-:'?:-?33-»44J4'' 

.,■ we 
n 

-■ lEWU H JEU 



■ ■ 

- : ■ i rw 

* I * l >*3 

i-noi*t 

. ■ 

■ eisoo 

EXTH.l 
ISO MfliTlOO 
'. 92 

195 REM C^oi- '-"j ler Hon enleve 


. ;■■■ RMX 1 >*15+l ■ 
.:].> :ij*[nT' RvM.-.-lyn;- 

.j r-ieexxe 

SCfiJKXO, r9>-17THEH20e 
>.Y8 46 
242 MP* 1 4 
■ 

■ ■ ENTREE W COUP JOUE 


230 PLOT 3 

JW PL0T4 36 "T«P«i !.• lettre du i 

: > :er " 
393 GEIL* 
310 iFL*«CHR»<27>THEH33efl 



CORSAIRES 
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NC8S K88) 

■ ■ ■ EM 

2939 ;. Er t PRESENTATION 

S94S REM 

3550 TEXT-PflPERB INK6 
2966 HIRES POKE* 18- 10 INK9 
2379 PPINTCHPS'4 > PRIIITSPC'?:.rHP*'2?' 
-JVEUILLE2 PfiTIEHTeR";CHRK4?j 
2930 F0RI-1T089 R£HMKI>.Mcn.KI>'NE 
Tl 

"-" =:=1 T C552 ^F.RDR POKE4013?*! ,fl 
NEXT! 

■ PI=9T0167 PEAC'P P0KE39688>] R 
ME n 

FORI-1TO29I0 REflDfl P0KE34943+ I , B 
NEXT 

WM'CDEF" X=120 V=30 G03MB6339 

- ■■'.hi "■ ■,-=2R G03ue6339 
.;_,. ..,,.. : . := j 26 y^ GOSUB6339 

■ ■■;.-i--.i;rp?P" ,:=ii4 7=54 co'-ue^;:- 
e 

JTUVHX" V-62 G0SUB6339 

4 PLflfi I .0-0.0 
'=s=4l90TO5990STEP3 30LINC-1.I.13 
HEXT1 
3189 I ■ ■ ■ ■ 

3110 CUR5ET6 | , f. f , rep r - j -ns FnPI = !TCl 

." FILL1 .1,1 HEJ n HE !T 

3120 P-<=73 P7=149 

■ PEPt'RS IFfi*="3-THEN3i49EL3£317e 

REflOVV X»PX*XX Y»PY-YY>CU 

_. . . 

WT=HT+i rF'MT-.7?TMEhtHT-l 

3169 MTT03139 

vire nt-mt*i TPtiT . 7?thehi(T=i 
3188 IFft*="F"THEH1 
3198 FOPIelTQLEWM ■ 

B«VfiL'"i"*MIM<R* I- : 

■..-- ,;,-■ H ■• ■ POWWOW 

3320 me-'m-i' ■ 4 

^-.;.'i-p._. ne-i.j 
■ i.-. mexti 

3259 SOTT ■ 

MH»»*PflP M.PIPOM" X-159 i , -198C- 
I GOSUffi ■ 

FORWT-1T073 PLfiYl,9r«.40 MU9ICI . 
in ■ ■'■ MT 12 MR1T13WNT ' 
■ ■■' HEXTHT 
PINT print PRINT3pr/3>' , ftPP>JYEP 
SUR UME r . 
3390 'i 

■ ■ ■ r-HT*l [FMT>79THENNT-1 
3320 PLflYl.0 5-48 MUSIC I .OX NT >.n' MT >. 
13 M«IT13ttXNT> PL*Y9,0,9.0 
3-339 INKINT'PM - .' 1 itfi -1 
■■-.in [FKEV»-"'THEW3319 
.. ■.. 

3369 REM [MITlflLISRTlON 

3370 PEM 

3388 Wt»l«'PU*7 

3399 F0PI*9T0? 8CSX I '""888188" MS' I '■ 
"'NEXT 

3400 OEM 

3410 P£H MENU 

3428 PEM 

3430 TEXT CL3P0KE6I3, 10 'INKS PHPERO 

3440 F0PI*9TQ3 PLOT0,I,28 HEX7 

3458 PLOTiO.i 10 PL0T19.2 19 

34S0 X-14 Y-l C=e MT»«"C0PSfiIBE3" Q05 

U66928 
3478 Y=2 C"3 COS 
3468 K"3 Y>7 C=2 MT«="CI3 tUSTPiJCTlOM 

J" C0SUB6S28 
34?0 ■!'••? MT«="C3J tOOPE" C0SU6632S 
3500 '.'-11 MT*-"CM3 nr/ERiJ 'LOH<]PE" COS 

UB6928 
3510 V«13 MT»-"C.i3 JEU- >',O' ; U8«20 
3520 PWT2.2Q."0EPLflCEnEIIT3 " 
3530 X-l? Y=17 C"5>MT»--2 > CfliJCWE" C 

08086528 
3540 Y-l? NT««"X • ORQITE" G08U86528 
3558 Y-21 ■MT«»"' > HflijT" ^ C0StJB6528 
3560 Y»23 -MTt--/- .• 9flS" ■ WiiJB652e 



315 IFftSC LS i- 57 OP HiC'LS . Ill THEHS 
MT0383 

320 [€="■-.:■ l* >-?■; 
n D"Int<p- dc wiee ■ 
348 vo-pcde -ieei>;& 
350 ifscpu' >:t'.vc' '=4bTHEtrjHi:.oi ^010305 
360 PLOT!?- 26." c* u c*»t trfivM " 
365 CETL* 

378 IFIXHRft 27 ITHEM5388 
375 IFL««"0"THEH388 

330 IFm5C'L*-."?7 OP fil.C'. L* ' 1 1 1 THEIIS 
HOOT G0T0365 
383 HR-flSO L* i-96 
198 ■ ft»IHT' P> fiP »-10O.' 

400 VH=Pfftp>-ioo*yfi 

405 
. 4i0 REM best* de viliditc 
420 PEM 

449 IFSCPH' ffl,Yfi>v -46THEH690 

459 IP[.€ = lh!J,-P=! 3iHEN6ee 

460 DX-flBSXXlVXfiJ 
470 [■Y=flB'i'.YD-YFu 

488 IF0X>12 OR V.-.- 6 OP DX=9 rHEH688 

4?0 if- t-:-:= 1 ^ FWD br. ,- OR CDX-6 flNt 
DYO10) THEH609 

500 IFI'ZFH'. < y.h'/.b >■£ ■ : YPl+YC ^ '2 >=46THE 
11600 

590 GOTO610 

6O0 SHOOT 'C0T0368 

618 

620 PEH d?;;.n-i d'j co»jP joije 

630 PEM 

635 M-SCRH<XO,YD) 

649 PLOTX0-YO.46 

6-50 PLOTXfi.Yft.M 



3570 PLOTO, 26.20 NV=0 

3590 VIE=? SC=0 

3539 CETPS 

3695 IFR*=T'THEi":0TL l ?^?4r- r.r lT r)3419 

36!9 IFP*= ,, S"THEHf:0SUB53e9 G0T03419 

3629 IFP«="M , 'THENGOS'JB5709 G0T03419 
3639 [FRS> B J"THEHG08US36£8 G0T33419 
3649 C0T03530 

3659 PEM 

3660 PEM JEU1 

3679 PEM 

3630 GO^L'B6170 

3699 CL'i PAPEP4 IMK9 

3700 F0=T-0TCr3 P0KE48936*! . 32 HEXT 
3719 P0KE4g533.29 

3723 POKE43940.22 PO?'E4?03O,22 
3730 PQKE43120,22 POyE43160.22 

3749 FOPI-eT039<POKE4Sflee+I,17»NEXT 

3750 P0KE49848,17'P0KE49e88*17 
3768 PL0T4.2, ,, «f" 

3779 PL0T4,3,"gh" 

2790 C=5 

3739 MT*="k k k"'X"»19'Y»l>GO8UB63Z0 

3399 HT«-"kkkltk" Y-2 C0SIJ86529 

3319 MT*=' , li fe kkkklt i< k H X-15Y-3 G03 

UB6520 
3329 KT8""t«"tC«>0'X<O Y-2 ■ C08UB6528 
3939 FOPI=1T05 PL0T15.3*! .21 PL0T2S,3 

•1.29 HEXT 
3849 PL0T14.9.16 PL0T23,3,29 
3350 MT*="PH " ■ C"6 X=20 Y = 7 C03'JE6529 
3860 MT»""kklt" ■ i'=3 G0SUB6928 
3379 PL0TI.]3."kkVkkkkfckkk>rkkkkkk 
3939 PL0T24.13."kH kkkkkkktrkk" 
3339 PL0T5.1?."i J" PL0T35. 13. " 1 1" 
'909 PL0T29,17.-'1j" PL0T32.15."1J" 
3319 IF\'IE=>3THENprjKE«35.4?979 CRLLH35 

39 D0KE#35, 49973 <CRLt#8938 

3329 [FV I E"2THENMKE«35 . 43073 ■■ i".RLL"35 
39 

3339 P0^E4?063.3 POVE43103,8 
3349 P0KE43967.9 P0KE43197-9 
3958 POKE48222,I14iP0KE48298,n4 POkE 
19396. 114 
3369 PL0T9.13.5 
3378 P0kE43431,2 P0kE43521.2 

3330 Hfi»48435*IHT'PMt" 1 '*3n> 
3330 DOKEt35-HRCPLL13530 
■1909 D0KEM7.48S98 r'9"E«09.HH 
4019 D0^Et43. 43717 ['0KE»43, 48708 
4920 D0KE»35. 43349 D0''E«37. 43692 
4039 D0KE#39*48S12 C>QkE»4i ,43623 
4949 CRLL»3538 

4059 P0*-Eit499.9 PDKE«40i .3 F0C£»492. 1 

4969 PLQTl,25. p, TfteLERU 1" 

4979 PL0T1,26,-SC0RE " 

4999 PL0T15.25.19 PL0T15-26.I9 

4930 C299 

4190 C=C-1 IFC'0THEH5299 

4119 M*PEEK<-«293> 

4129 IFti-56TMEHUPiITl C0T041S8 

4138 SOSC-18«H-107) 

4140 e = -'»-176>*'M-170 .*40trM-137i-49 

*'M"15?> 
4159 CflLL)»3501 
4169 D0KEt33,DEEK(t35)»B 
4179 CRLLH8539 
4199 CflLL<*956D 
4 1 « IFfiEEk' *tz X 48463THEN4230 

4299 IFPEE^'t499>2THEU5209 
4219 PWE«405. li'T'C'tr' 1 ■ ■ 

4229 Pl.OrU.'^.'jTP^'C.''-" - <".," | . : r 

4230 PL0T7.2S*8TRK«C - 
4249 C0T94190 

4259 PEM GflGNE 

4269 »EM 

4270 PL0T14.24.7 
4239 Pl.orv. 14 

4298 PLOT2t,24,STB«VI£*290 ■ 

4300 PEPERT 

4310 PL0T17.23.STRKC >■** * 
4329 PL0T17.26.3TP*'C ..'• " 
4339 PUJT7,26,?TRKS( 
4348 PtflVl 0.3 '■'■' 
4350 M'JjIC1.3.4,PU 

4369 PLflY0.0.0.9 

4370 C-C-l 8C-8C+1 
4380 'JHTILC-9 

4399 8C-8C*VIE*299 SC-INT<SC 19M10 
4499 PL0T7-26-8TRK8C ) 



.-.,.. PLOT' 8*XD) 

■■:■.■■■ 

S78 N=:||C-1 
-■■'. 
.:,. JtOf 

•-=■: 

1898 PEM ol ch I ■ coul*ur 

1991 pem 

1005 c-int' rhd- i 'hew 1* ■ -1 

1910 2*=ni[* M.C I 

1928 Tl-LEFT* T».C I i*PIGMT* T«.L£HtT 
t ■-, . 
1839 plotx.y.vrl' ^« "16 
1038 PETURH 
1495 
1590 REM ReP«i l9e J-:i 15 PloiU 

1510 PEM 

1520 3=3*1 F' S I-188M - 1 
1339 PLOTX.Y*! ■ i*36 
1540 PETIJPH 



■ ■ ■ 



P91H 



4015 PR1MTCHR* 17J 

4029 TEXT-CLS PRPER9'1NK3 

4025 E*=CHRS-:27/ 

J030 PR1HTCHR*<4J PRINT PRINT 

4049 PPUITE*" J"SPC* 12/E»"R30LrTPIPtrlGL 

€'■ 
4959 PRIHTCHR9<4) PRINT PRINT 
4060 PRIHT=PRIKTSPC<4>'Ce j«u eit ur, 

»olit«ir« kmu foriw trtjin9«l*ire. " 
4065 PRINT PPIHT3PC'4) H Cin * iu depart 
15 Piofis ' 1 rcj9«. 4 vtrts- 5 bU'JS- 

5 launei >■ 
4079 PRIHT'PRlHT8PK4>"Le but t rtUi 

ndre est de t*isser le ninimjM rJe "■ 
49S9 PRIHT'Piora i-ir le tri*n9le." 
4959 PRIHT=PRlNTSPC<4)"0n ellHine '-"i 

Pi^n en le Pren»nt" 
4095 PRlHT"co«n« din= un je-j de d4»ea 



5909 PRINT PPIHT PRINT PRINT PRINT" 
fiPEZ SUP iJNE TOUCHE POUR CONTIHUER"> 
5005 PL0T1-23, 12 GETHS-CL3 
5010 PRIHT- PRINT'S i voos Uissez 
RIHT'PRINT 
5915 PRINTSPCO)"- 2 Pions de 1* Ml 
co'jieu!-. c'est <i"->t bier.." PRINT 

5029 PRINTSPC<3>"- 1 seul Pion, c'e: 
tre& bier.." ^PRINT 

5030 PR1NTSPC(3>"- le Pion ro«9« »ni- 
uenentj c'e&t" 

5035 PRINT' , F,.rt sit-PRINT 

5049 PRINTSPC<3>-- le Pion rouse seu 
, 3 un enoVoit choisi "- 

5050 ppint"* I'wance, vous etea »en: 
»l !!"■ PRINT 

5060 PRINT PRINT -PRINT" -> Po-jr mm, 
ler I'entree d-j Pion 1" 



St. 



fin ■» u *,".,* 

■■ ■ 

■ ■ ■ " ■ 
f€ T0»."CHE PO-J" COftCHCEf 

5990 PLOTI -23. 12 QETH» 
5895 PETIJPH 

■ 
5590 PEM FIN D€ Pf^TJE 

■ 

5510 HUSICI -2.19.9 -W 1*1 

T40 

5529 WJSIC1-3-7.9-PLS/I.9.1.3809 M=rIT 
49 

5530 MUSIC ■' 1.4080 
55-40 [FNP<2THeNGOS<je6880 

3699 IFNP=lTHEIJGOSije6590 
5610 IFnP-2THEMG0SJ.e6890 
6900 IFflF*lTHEM 
6010 CLS 

6020 PRINT PRIHTSPC<8>.-UHE " . ■■ ■ 
TIE »• 
■ ■ ■ . ■ ■ 
6949 GETPS 
6938 iFR»«"o"TMEN2a 
6069 IFR9-' ■■ THENCLi Pf I 

: . 

60^0 OOT06949 

6399 H-0 GOSU67999 

6510 CLS RF-I 

6520 PPIMT3PC< 12>'PflRFRIT '" ; - 

6569 tFZ«17THENPRINT I Im Cftit 
PPEVUE- FELICITRTIONS- RETURN 

6570 PftIHT"UN SEUL PIOH 

TRES BIEN" FFIHT PPIHT'JOUE ...* 

PRINT W1T10O PRIN1 :- : 
6399 PRINT"... NRIS C'E?T MIE'.C fUJWK- 

6595 PRINI PRIHT-CE PIOH ESI ROUGE ' - 

6600 PR1N1 FP 1NTSPC' l3>"ESSftV1 

6619 PETiJRII 

6390 11=0 G0SUB7808 

6310 Zl-Z GOSUB7908 

• ■' LS mF=i 

6828 IFZ1»Z2THEI«HHT"2 PIONS t€ Lft it 
EHE CO'JLE'JP ' BRfiVO >." RETURN 

6330 PRINT-2 PION 

B1EH ...'■ 

6849 PRINT UtilTlOO 

6350 PRINT"., . MHIS - R 1 I 

EiJR C'EST" 

'yi-iO PRINT PRIHT-HIEU " 

6878 RETURN 

-,-...;, BEPEfl) \M*+\ 

7018 ->INT. pi u . 109 . 

7828 Y«Pi U ■ 1091 

7839 2-SCRN- X.Y> 

7940 UNTIL2046 RETURN ■ 



ORIC 1 ET ATMOS 



4410 URIT509 
4429 PEM 

4439 PEM JEU2 

4449 REM 

4459 C93IJB6170 

4469 CLS^PflPER4: INK3 

4470 FOPI=9T03 Prn-F.48936*!.. 32 NEXT 
4439 P0k-'E43949 1 22 FOKE43080- 22 
4490 P0KE4S129.22 PL0T33.2-22 
4599 F0RI*9T039'P0KE498994-I«17 NEXT 
4519 PC^E4?949,17 P9^'E4?939.17 

4529 PL0T3.I ."ef" PLOT2.1.0 

4530 PL0T3-2."9r," PLOT2.2.0 

4540 F0RI-2TD22<PL0T36,I.21 MEXTI 

4539 PL0T35.23.16 

4569 IFVIE»3THEH00KEt39> 49979 'CW.L#89 
38'&0KE«35. 49973 CRLL«8539 

4579 IFVIE«2THEN0OKE#35- 49973 CFiLL»95 
39 

4589 P0KE43963.3 R0^E4?193.3 

4590 P0KE43967-9 P0KE49187.8 

4699 MTS-'-ij" X=3 Y=23 C=0 T.9SUB6528 
4610 PLOTI. 23- "TRBLEFiiJ 2" PL0T9-25-9 
4629 PL0T1.26."3C0PE'" PL9T9.26.9 
4639 PLOT7.26.STPS";crPUOT15-25.10P 

L0T15.26.1O 
4649 D0KE»35-48563 CRL1.»3539 
4659 D0K£i37. 43230 (■0"'E»33. 48309 

4669 C0KE«41. 43547 C.0KE«43.4e699 

4670 D0KE»45. 43179 0OK£t47, 48575 
46S9 P0^E«408.1 ■POKE»482.I09 POKE«405 

-3 
4698 PEM 

4700 CfllLt37C2 

4719 UHIT109 

4720 CfiLL"07C2 

4739 PLOT17.25.3TPS'PEE'''«402i>* 

CHU.I898F 
4749 IFPEEf 4402 ' = 8THEH4760 

4759 1FPEEK' H400 >-2THEN5209EL3E4729 

4760 8C-SC+VIE«599 

4770 PLOT? . 26 . 3TR«' 3C ' PL0T15 - 24 . "BON 
U5-"+3TR»'VIE*390> 
4730 URIT599 
4799 PEM 

4399 PEM JEU3 

4310 REM 

4929 G03U86179 

4333 Ct.c PRPEPO INK6 

4949 FQPI-9T03? Pn^E49989+l 17 mf::t 

4350 POKE49840I 17 P0KE49989i 17 POW ■ ■ 

963 8 P0KE49198.8 P0KE49067.O P0KE49I9 

7.8 
4969 PLOTI. 25. "TfieLEfliJ 3" PL0T0.25.0 
4370 PLOT I . 26 . "SCORE " ' PLOT" 26-9 
4399 PLOT15.25.10 PL0T15. :^. 1 n_nT-->i 

-20.21 PL0T9-6. 21 
489 g PORI-1T03 PU0TI.29.21 NEXT 
4999 F0RI-6T029 HB"RND< I »S*1 7 PLOTI. 

29.HR NEXT 
4310 P0RI-1T06 PL0T2 L3+I."e" NEXTI 
4920 PL0T33/ 18. "bed" PL0T35. 19.CHP«'3 

3 HCNRK 93 >*Cmps- 55 ■ 

4930 F9PI=7T013 PLOTI ,1,9'NEXT! FOPJ 
■39T033 PLOTi ,20, :■ MEi ' 

4949 IFVIE-3THEND0KEira3. 49970 CRLL«83 
39 P0KEH35. 49973 CRLLH3339 
4??0 IFVIE»2THEM!"itF •''".. J---H.' ' Ml I n: \ 

39 

4969 P0^E48326.91 P0KE43353.92 F0RI=9 
T025 P0KE4932?*! 90 HEXTI 

4970 MT«-"COEF" X-17 C-9 r=5 C0SUB652 

9 

4989 MT9-"CHIJ" V«l G08UB6H8 
4939 MT««"KL" Y"2 X*18 C0 C ' W2ft 
5099 MH-'-HdOPfP" --16 Y-3G03IJB652O 
5019 MT*-' , 3TUVUX" Y-4 G0SU86529 
5029 C-0 PL0T7 . 26 . 3TP«f 3C > ■ P0KE4490. 1 
POKE «4 09, 4 

5938 POr-E«405.2'P9kE4486.1 P0KE44fi7.[ 
9 ■ P0kE«40fl. 17 - POf E»49e. 1 ■ P0KEt49C . 10 

5040 POKEf40f>j6 P0V'F»49E. 1 F0K , E#49F. 1 

3059 D0K6t99»49643 09KE»35. 43349 POKE 
*40?. 1 rRLL«99['C 

5069 Q'C.*\ 

3979 H-IHT'PNt>' 1 »t5»l >'POtf£«410.H*''H- 
5) CRLL»9B64 

5939 c .ri^r;-rPEEt.rtj09>-176)*10 

3990 IFPEEK' 11293 -17STMEMCflLLt8C98'PL 



RV6. i 1 ■■"■n 

5190 IFPEEK't2O3>=l70THENrFiCL»8CR3 PL 
RY6- t .1.50 

5110 CfiLL»3B0n 

5129 PL0T17,25-STR9<CH" "•€« L8898F 

5130 PL9Tr.2«?TPS'3C» 
5140 CRLLISB90 

5159 IFPEEK<I499 «2THENC«.LW9a>'HRIT 
59 C9LL433B 1 G0T053 1 9 

5169 lFt'EEF'»l00^43'3rfiTHEN6539 

5179 PLfiYO. 0,0.0 COT03969 

5189 ENf 

31» rem 

3299 PFM FCHEr 

5219 PEM 

3220 M=38 PL8Y6.1.1.8 

5230 SOiJNT>2.500.PiJ IJ9IT5 30UHP2. 100. F 
U N8IT5 

5249 S0UN02.1999.PU WRITS SOUHO2^9*0i 
■;m.iNr'4.9.PU 

5239 FORI=IT030 

5260 30UNTi4.INTrpm,. I ,$Z *1 i.PII SlK.INt- 
2 .IJ.FU 11-11*1 

5270 Hfl-lflTrpNO' 1 l»4+| '■ pn^F«49£. 16*H 
R 

5239 IFMV"2THEHPRPERKfl Grimsaoo 

5290 PRPEPHft rfiLL«37R9 

5300 NEXTI 

5310 PflPEPO SOUNO2.0-1 SOUND4,30,0 PL 
RYS.i.i ,7899 

3329 VIE"VIE-I 

5339 1FV'IE=0TNEN5389 

5 340 niiitVGrjT03690. 4460, 4830 

5369 PEM 

5379 REM 

5339 PEM ^rriPF 

5390 PEM 

5400 CLS PftPERO INK? 

5419 rfTs-"C0ftSflIRE9"'X"15 Y=l r>4 G08 
UB6528 

5420 r=-i ',-? G05IJB6320 

5439 P0VE4&160.20 P0KE49949.29 

5440 X'2 Pl.nno. Lin n nrio.2.10 

5459 PI.0T2.?."3UJ-. :■" 

5460 PL0T13. -: ■'N9M3" 
5470 FORK"0TQ9 

5490 in .'^TMFiir-i »i 

5498 IFK>5THENC"I -"■ 

5506 ,■--.! ..: 

5510 MTt*9C»<K '*rHP«' 32J+CHRK32 i+H* 
t ■ COSUB6520 

'-■.. Z NEXTI 

■ ■ 'i ■ ., . . -. j .,.„ ,,. . , ., 

3540 1—1 PEPEAT I>I*1 UNTILSOVMLtSC 
•' I '1 

5558 F'3PJ-9TCil*l < ;TFF-i 11*. I>«t4fi 1 1 1 

5Ctl I --r,, p., •, (IF: ., 

■=, c ,^0 SC»"STR8(SC ) 

3378 IFPEEK' dFFFE >-40TH6N SCM1ID9CSI 
1. 2 1 

■.■ 99 IF1 Mr ' ' t ■ ■ THEN 1 * •0"*W » '."in 

; 1 il '.it -.I-*. 1 ■■■ 1 1 
■v POKE6I1 13 PRINT 
■ ■ '■ 'i'F6i: 14 PRUIT-'VOTPE HON" j 
■ 1 CETR8 1NPUTN0 
5630 IT! FN' M* >i>0THENH«*i HR* 
■■ i0 [fi ni. -it ■ ■vntnr!iM*-=i..[-p-Tvti«. ,;■(>■ 
■-..'-.0 pi«' 1 .-.(1 K"0 r,oTfi54on 
-..-.-.-1 C"6 ' ■■ " 3 HT« -"i.MM.f r .■ ■ t-- hi 

'■ NE" C0SUeS329 

5670 CETR* '.!'"» 

5. .■ tn ruRH 

.-. PI >■ 

' ■■ KJ PEN NIV.MUS. 

'■/H' rem 

'i CLS PfiPI R8 Un POl i 61 L 19 
5730'pPlHT PRIHTSPC' 1 ? KHP«r 4 ' . CHP»( 2 

I !■" HI H" ' iil-l'l .. 

■ '40 M? .'-15 C-4 MTS-^'PEGLRGES 9VEC 
■■ rjOSUJ 6328 

1 " ■ "I*- 'i p, rOUCHES FLECHE 

E8 LRTEPflLES" GOSU86320 

5769 X-ll 'Y-29'C-2'MTS-"PPPiJYER ENSUI 
TE ,, 'G0SUe6329 

3770 X-7'Y"22'MT«-"SiJP Lfl RHPPE D'ESP 
RCEMENT" G0SLIE6329 

3780 PLOTO.5.19PLOT0.10.19 
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Ce jeu connu consiste a manger des oeufs a I'aide 
d'un serpent que Ton deplace dans un labyrinthe. Mais 
!e corps du serpent s'allonge, et il ne doit pas se Vou- 
cher lui-meme! Un veritable jeu de strategie, quand on 
est au niveau "fou". 

Sylvain GRIMAL 

ADAPTATION ATMOS: 

Comme dhabitude, ajoutez 1 a I'axe des X des instruc- 
tions PLOT et SCRN, et remplacer le CALL# FB10 de 
la ligne 30150 par CALL# FB14. 




29 GOSUB 2008 

25 GOSUB 40009 GOSUB 23000 

38 CQSU8 4080 GOSue 3000 

40 CLS PAPER3 INX9 

45 AS»-:~>x" FQR1-1T04 A-ASC(MIDt<A«, 
I.l>)*128PL0T7*I.25,fl PLQT12*I,23.A'N 
EXT 

50 FORI-18T021 A*ftSC<MID»<Rl,I-17, 1>) 
•128 PLOT 1, 25. A NEXTPLOT 3.23.-V1E" 

55 PLOT 7+WX3,25." 
ON T GOSUB 5000,5500 -'■000.6500.7000 

60 PAPER3 INX0 PL<)ri,8. "SCORE' 
H.SC' BONUS - PLOT0.3.6 PLOT13.0 

6 

-,5 POKE 522.127 POKE 48040, 16' PL0TP3. 
0.6PLOT 19,9,STRXKSC<1)> 

70 PLOT 17,23, -kiliii- 

75 FORI-3T03 FQRR£-!T012NUSIC1,I,RE, 
V'MfllTl NEXTRE-PMUSICl,!,!,! 

80 IFC* > -lTHENP0KE43993.22S'F0RI-48982 
T043978ST EP- 1 ■ UA I T 13 ' POKE 1 . 227 NEXT i CO 
T098 

85 P0KE48SS3-248 F0RI-4TQ1STEP-1 'POKE 

48378*1. E< I )HflIT15 MEXT POKE48978.25 
2 

90 DOKE 630, 20000. B-1270-1 POKE 522, 
P 

92 IF QP-1 THEM 300 

95 ' 

96 REM liimntnin 

97 REM t JEU NORMAL X 

93 REM XXXXXXXXXXXXXX 
39 

190 FOR 1-1 TO 3 

110 N-N-l IF R0 THEN 138 
120 IFPEEK<322X>RTHeNnUSICI,4,8,V:ttU 
SIC1,3,4,V MUSIC1, 4.8. V MUSIC1, 1,1,1 
130 A-PEEK<322> AB-8 

149 tf-DEEKC»276> IF K<20000 THEN PLOT 
32,0.STR*<fO*" - ELSE 1000 

150 IF 9-223 THEN D— 1 'C<N>243 
160 IFA-191THENO-40 C<N>-246 
170 IFA-2477HEN0— 40'C<N>-247 

180 IF A-12? THEN D-l ■ CX N >-248 ELSE I 
F R-254 THEN 120 
190 W-PEEK<X*0)'IF U032 THEN 590 

299 POKE RXI>. 8 POKE AT 1*1>,0POKE FK 
1*2>,0 X-X*D 

210 L-L*DO-'5P"INKN*L> 

220 POKE V.'P*\ >, 32 POKE yp).CTP-l )*4 

239 XXHJ-X POKE X,C<M) 

249 POKE X<N+1),E'I ■> 

259 B-A C-D 

260 NEXT GOTO 100 
293 

296 REM XXXXXXXXXXXXXX 

297 REN » -JEU PAPIDE * 

298 PEN furiiidiirn 
299 

300 N-N-l IF R6 THEM 329 

310 IFPEEK'322^'>PTNENHiJSICl,4.8,V!NU 
SICI,3,4,y MUSIC 1-4,8. V MUSIC1. 1-1,1 

329 A-P£EJ«522>'Ae-8 

3-38 K-DEEI"' R276 > IF K<20000 THEN PLOT 

32,0.STRtX»O»" " ELSE 1999 

349 IF A-223 THEN 0—1 ELSEIFA-191THE 
NO-49 

359 IFA-247TH£H0=— 49EL3EIF A-127 THEN 

0*1 ELSE IF A-234 THEN 310 

369 U-PEEI": X*D > IF H032 THEN 499 

363 X-X*D 

379 L-L*00^5 1 P-N+L 'X< N >-X POKEX"! P >, 32 

POKEX-226 P0KEK'IU1>,227 

339 8-A C-D G0T0388 

393 

396 REN *«****X»»XXXX-» 

397 PEN * IMPACT QP 2 * 
393 REM *flfi»*it*»»'«» 
399 

499 IFH-227 AMD X*0< /Xni*2 / THEN 1999 

495 IF W-116THEN 420 

419 IF CD THEN A-8 AB— 1 GOT0339 EL 
3E N-M-l GOT 0399 

429 MUSIC1.2.8.V MUSICl,2,4.V:MUS!C1. 
2.8.V MU3IC1, 1,1.1 Y-Y*l L-L*DO 

425 -SC-SCM9 PL0T7,9,STR*'SCV 1FY'73T 
HEN365 

430 Y-fl POKEXH' 226 POi'EX'H*! j.227 
449 GOSUB 690 GOS'JB 799 GOSUB 909 CCS 

IJS ?99 GOSUB 3009GOTO40 
493 

496 PEN ** rt iiminnr 

497 REM * IMPACT OP 1 t 

498 REM -tixx-xxxtxtxt* 

499 ' 

500 IFW>248 AND X*0OX'N*2) THEN 1999 
505 IF W-116THEU 329 

510 IF COO THEN A-B AB— 1 CQT0139 EL 
3E N-N+l C0TQ259 

520 MUSIC 1.2.8. V MUSIC 1.2.4, V MU3IC1- 
2.8,V MUSICl.1,1,1 Y-Y*l L-L*t»D 

325 SC-SC*18 PLQT7,8.STRtKSC> IfY<7ST 
HEN299 

538 Y»0'POKEX*O,C:n> POKEXOI+1 ).E' I .' 

349 GOSUB 690 GOSUB 799 GOSUB 880X03 
UB 399 GOSUB 3999 G0T040 

393 

396 REM xxxxxxxiXXiXttx 

597 REM » FIN TRBLEfliJ * 

598 REM xXXXXXXXXttXHX 
399 - 

600 FOR 1-2 TO 6 

619 FOR PE-1 TO 12 

620 MtJSIC 1, 1- RE, V' WAIT 2 
630 NEXT RE.l 

640 MUSIC 1. 1. 1.1 

650 RETURN 

695 

696 REM I ******** 

697 REM » BONUS * 

698 PEN XXIXXXXXX 

699 - 

799 UAIT3 

710 FOR I-K TO 8 5TEP -66 



740 NEXT 'PLOT 33.0. "0 » 
750 SC-SC»INT'<K-I V30) 
769 WRIT 130 
779 RETURN 
793 i 

796 REM XXXXXXXXXXXXXX 

797 REM t M- TflBLEftU * 

793 REM Mli'iiuiirii 

799 ' 

800 CLSPRPERB'INKl 

819 PLOT 9,11, 18, PLOT 0,15.18 
829 T"T+1<ST-ST*MF T«6 THEN T-l 
839 PL0T11,13."?TRCE N" - 
349 PLOT 19,13,STR»<8T> 
359 RETURN 

895 ' 

896 REM XX»*»»*«T*.»»«»««« 

897 REM * CHRNGEMENT T8BLERU * 

898 REM »*»**«««***»»«**«-* 

899 ' 

900 DO-DO*. 35' IF DO>.8RN00P-8 THENOO- 
.8 

903 MUSIC 1.3,12.0:PLRY 1 ,8. 1 , 608' MAI 
T5 

919 MUSIC 1,3,12.3'RLRY 1,0,1, 60e^WfiI 
T5 

920 MUSIC 1.3, 12,8^PLRY 1,0.1.690 WRI 
T3 

930 MUSIC 1,3.10.0-PLRY 1 ,0. 1 ,600 HRI 
T3 

940 MUSIC 1.4,2,0'PLRY 1 ,0, I ,908' WRIT 

19 

938 MUSIC 1,4,2,0'PLRY 1.0, 1 .600URIT 

3 

968 MUSIC 1.4.2,8'PLRY 1 ,9, 1 , 690 WRIT 

3 

979 MUSIC 1,3,10.9'PLRY 1.9.1,2090 WR 
IT 3 

973 MUSIC 1.3. 12-0PLRY 1.9.1.2990 WR 
IT 3 

930 MUSIC 1.3.3.9'PLRY 1 -9. I -2909 Ufll 
T 28 

990 MUSIC 1,1,1,1 URIT299 

991 CLSPRPER3-INK0 

992 RETURN 

993 ■ 

996 REM nriuiiiiif.i 

997 REM t VIE PERDUE f 
593 PEM 'inmrritm 
999 ' 

1080 FOR 1-5 TO 3 STEP -1 

1919 FOP PE-12 TO 1 STEP -1 

1029 MUSIC 1. I.PE.VUfllT I 

1930 NEXT RE.l 

1940 MUSIC 1,1,1,1 

1350 FOR I*P-1 TO N*l STEP -1 

1060 IF QPOl THEN POKE X< T ).C( I-I >*4 

1963 POKE XC 1 + 1 ),32 

1870 HRIT2 

1009 MEXT'POKE XU*1),32 



|« 



AIT3 



"""""i 



V-W-l iPL0T7*W»3.23," "'IF 

VV>-0THENGOSUB3000 ' C0T063 

1119 HAIT 200 

1120 GOSue 9889' IF SC>SC<B) THEN 3888 
8EL3E 38388 

1993 • 

1996 REM xtattatt 

1997 REM * IHIT » 

1998 REM i»">!' 
1999 

2908 DIM X< 10I0>,CU019),Y< iee>'W-3' 
T-l 'ST*1 A-0'DO-.l.v-8 

2903 FOR 1-1 TO 8SC( I )-208NO>1*< I>»" 
■•■ NEXT 

2019 FOR N-47084 TO 47100 STEP 8 A-R* 
1 ■ R< A >-H ' W A+3 J-N . NEXT 

2028 RETURN 

2993 ' 

2996 REM nimti 

2997 REM « INIT t 

2998 REM X»I»*I 

2999 « 

3098 FOR N-1090 TO 1086'X'N)-49983-N' 
C'N>-248 NEXT 
3010 X-49933 
3920 FOR 1-1 
= 03(5 FOP 1-4 
3949 L-6 N-K 
3030 RETURN 
3993 

3996 REM - 

3997 REM f GEN CRRRCT • 
3999 REM *tl***t«*(f>*f 
3999 

4099 RESTORE 

4919 FOR N-46964 TO 47915REA0 fl.POKE 
N,fl NEXT 

4920 FOR N-47916 TO 47193REAO APOKE 
N.63-A NEXT'PETURN 

4924 DATA 31.33.18.0,0.18,45.51 
4926 DATA 51.33,8,0,9,0,33.51 
4930 DATA 9.9.63.63.63,63,0.0 
4949 DATR 9.0.36.69.60,36,0,0 
4939 DATA 0,9,7.13.15.7,8,0 
4060 OATH 9.0.63.63,63,63.30.30 
4979 DATA 30.39.63.63.63.63,9,0 
4909 DATA 63,83.63,83,63,95,63,8 
4999 DATA 9,9.12.30,38,39,30.38 
4109 DATA 31.95.31,85-31,95.31.8 
4119 DATA 30.30.30,39.39.12,0,0 
4128 DATA 30.39.31.31,7,3,0.0 
4130 DATR 0,0,3.7.31.31,30,38 
4149 CATA 39, 30. 62. 62. 69. 36. 9.0 
4139 DATA 0.9.36.68,62,62.30.38 
4160 DATA 30.30,30,30.38.30,38.38 

4179 DATA 38,38.31.31.31,31.39.39 

4180 DATR 39,39.62.62.62.62,39.38 

4199 DATA 98. 12,30,30,12,0.0 

4200 DATA 3.12.31.63.63.31,12.3 
4210 OATA 63.43,45,38,30,30,12,12 
4228 DATA 12.12.30,39,39,43.45,63 
4230 DATR 49, 12. 62, 63, 63, 62. 12.48 
4240 DATA 0,43,60,63,63,60.48-9 



ORIC 1 ET ATMOS 



4270 
423" 
4290 
4399 
4993 
4996 
4997 
4993 
499? 

3008 
5910 
3020 
5830 
5840 
5059 
5069 
3979 
5089 
5890 
5180 
5119 
5128 
3138 
5148 
3150 
3160 
3179 
5189 
3199 
5280 
3210 
3220 
3239 
3493 
3496 
3497 
3498 
3499 
3388 
3310 
3320 
5538 
3348 
5358 
3360 
3378 
3588 
3398 
5688 
3610 
3628 
3638 
3640 
3630 
3668 
3670 
3688 
3698 
3700 
5719 
3728 
3738 
3993 
3996 
5997 
3990 
3999 
6988 
6810 
6828 
6938 
6848 



6108 
6119 
6128 
6130 
6140 
6138 
6168 
6170 
6188 
6198 
6288 
6219 
6228 
6238 
6493 
6496 
6497 
6498 
6499 
6588 
6319 
6328 
6339 
6348 
6558 
6568 
6579 
6398 
6390 
6698 
6619 
6628 
6639 
6649 
6650 
6668 
6670 
6639 
6690 
6799 
6719 
6720 
6730 
6993 
6996 
6997 
6998 
6999 



7028 
7930 
7049 
7030 
7969 
7079 
7088 
7890 
7189 
7118 
7128 
7138 
7148 
7139 
7168 
7178 
7189 
7198 
7200 
7210 
TJEM 
7239 



DATA 12,12.38.38.63.63.63.63 
DATA 63.63.63,63.38,30.12.12 
DATA 0.3.13.63.63.15.3.8 
DATA 30. 63. 63. 63 63.63.63-30 
fATR ;9 63, 63, 63, 63, 63, 63, 38 
OATA 30.63.63.63.63-63.63,30 

?em iiniitmiii 

REM * TABLEAU 1 T 

"EM ttlUItlltllT 



PLOT 2.2." 

PLOT 2,3." 
PLOT 2,4," 
PLOT 2,5," 
PLOT 2.6." 
PLOT 2,7, " 
PLOT 2,8." 
PLOT 2.9." 
PLOT2.10. * 
PL0T2,11," 
PL0T2, 12." 
PLOT2, 13, ■ 
PL0T2.I4," 
PL0T2.13-" 
PL0T2, 16, ' 
PL0T2.17," 
PL0T2.18,- 
PL0T2,19," 
PLOT2,20," 
PL0T2.21," 
PL0T2,22," 
PL0T2.23," 
PL0T2.24," 
RETIJRN 



REM iiiiiiiintn 
REM X TABLEAU 2 « 

REM f«X«XM«It 



PLOT 2.2, 
PLOT 2,3, 
PLOT 2,4, 
PLOT 2,3, 
PLOT 2,6, 
PLOT 2,7, 
PLOT 2,8, 
PLOT 2,9, 
PLOT2.10, 
PL0T2.11, 
PL0T2,12, 
PL0T2,13. 
PL0T2.14, 
PL0T2.13. 
PL0T2.16. 
RL0T2.17. 
PL0T2,18. 
PL0T2.19- 
PLOT2,20, 
PL0T2,2I, 
PL0T2.22, 
PL0T2.23, 
PL0T2.24, 
RETURN 



l rvJP i nd« fdP TUt r*3* f* J nd» 4* 
It* *t9 4t t4 t 4t t4 4t4 4t4* 

I ndo 4t1 I > 1 i i 4 j t qt4 »dO 4" 
I t 4 4 4 4 4t4 qi-,4 4 4 4 9 » 4' 
I TdddO 1 4*.4 1111 ;-.: 1 -~-^> 4- 
t t 4 4t t4 9 t 4* 



fd« i>* f<» . 



t4 



«*d«J* 1 ' 



t9 

1 fdddo . 

t 4t*4t4 t 

J ftW* 1 fd» ■*> fdf 1 M**» . 

It4 t 4t t t t4 t « 

; 1 fd» bkJP rwWd* fcHd* ndo f(f» I 



4t4" 



4 9 9 4t4 4t4 9 9 4 4 t * 
M 1 \ 4 I 1 9 1 1 9t4 ft* < 
4t t.4 t 9t t4 4t4 9t< 

«d« fdo fd* »d« fdo 1 wJo < 



'9 fdP fdP j Tdd* tw**J«> J n&* ne*» 9- 

4 4 4t4 t 4 4 t 4t4 4 4" 

4 i 1 Jtl t*d*J4- 9t4 fdddo ItJ 4 j 4- 
4 4t4 4 t 4 4 t 4 4t9 4" 

4t4 I ndddP nd» I 1 f* nttaoo \ 4t4" 

4 4 t 4t4 t 4t4 t 4 4" 

4 1 fdP i \ ItJ J ) Jtl I J nd« I 9- 
9 t 4t4t 9t9 4t4 t4t4 t 4* 

4 ndR 1 Ml* fdo 4 4 *td4> Tdo I r>dP 4- 

'4t4 4 t t t 4t4 t t t 4 4t4" 

4 ftdO J n* f# 1 9 nd» f# J Ktol* 

4 t 4t4t 4t4 4t« t4t4 t 4" 
4 j f*> I J Jtl I HtM 1 «* J 4" 

'4 4 t 4t4 t 4t4 t 4 9- 

"4t4 J TKfcfcJO Mj« J J fdo "idddP J 4t4" 

4t4 4 t 4 4 t 4 4t4 4" 

1 4 ItJ r<ddd4> 4t4 fdddP Jtl 9 \ 9" 



4t4 



4t4 



i fdo fdo 1 fdddo -dcW* 1 «.d* »d* ■ 



4 s fdadddc rxJ« for fdddP r>d# 4- 
44t4t44tt4t 94t4" 
4trd4 4 J 1 4 fd» 4 fdP 4t4 fd»" 
"4 4t44t4t44t444t4" 



REM XXXXtXtXXIX'f 

REM I TABLEAU 3 X 
REM tiiiiimiMi 



PLOT 3.2, 
PLOT 3,3, 
PLOT 3,4, 
PLOT 3,5, 
PLOT 3,6, 
PLOT 3,7, 
PLOT 3.8. 
PLOT 3,9. 
PL0T3, 10, 
PLOTS, 11, 
PLOTS, 12. 
PL0T3.13, 
PL0T3.14. 
PLOTS, 13, 
PL0T3.16. 
PL0T3.17. 
PLOTS, It, 
PL0T3.19. 
PL0T3.28, 
PL0T3.2I, 
PL0T3.22, 
PL0T3.23. 
RL0T3.24, 
RETURN 



4t9t4t4 4t4t 
4 4 14 4 1. 
4t9 t 4t4 



■i rtfddq rdtftfMMt rcto 1 



X l rddddd* . 

It t t 4 

fddctc fddd9dhd» fd»- 



t 4 



t 4 



i 



t 4- 



»4t44t4t44t444t4" 
llro> 4 1 J 4 fdO 4 fdO 4t4 fd»* 
»4t4t44tt4t 44t4" 

I 1 fdhdddo *d4> fdo fdddo "d» 4* 
It t t t t t 4' 



REM XttXtXXXtttX 

REM .TABLEAU 4 X 
REM XXXXXXXXXXXX 



lt4t 



4 j ) fdddf J 

4t4t4t t4t4 

4 1 mddd* 1 1 



PLOT 2,2, 
PLOT 2,3, 
PLOT 2.4, 
PLOT 2,3, 
PLOT 2,6. 
PLOT 2.7, 
PLOT 2.8, 
PLOT 2,9, 
PL0T2.18. 
PL0T2, 1 1 . 
PL0T2, 12, 
PL0T2.13, 
PL0T2.14. 
PL0T2.13, 
PL0T2.16. 
PL0T2.17. 
PL0T2.18. 
PL0T2-I9. 
PL0T2.29. 
PL0T2.21 ■ 
PL0T2.22 
PL0T2.23 
PL0T2.24 
RETIJRN 



REM tttwiiiitiii 
REM * TABLEAU 3 I 
REM tXt»»XXH««*t 



r^WrWdddoVlo^dddddddddddddddddddddo* ' 
4t t t ttt t t t4" 
4 nd« fo> fd» fdP nd* fo> fdt fdP 4" 

4t4t t 4 4 t t4t4" 

1 I J W J J Jtl ttJ i i nd« ) 1 4- 
4 4 t 4t4 4t4 4»,4 4t4 t 4 4* 

4 «d# fdo 4 t I fdo . 



t4 



4t 



t4t' 



"4 ndddt fdddo nd» fdP mddd* fdddo 4" 

t4 t t 4" 

ndR I ) nddd« j J 4" 

4 4 4t,4t *.4*,4f.4- 

«do I 1 1 fdddo 1 4" 

t 4t t4 ». 4" 

nddd* fdddP «d» fdo nddd» fddd^ 4" 

'4t4t t4 4t t4t4" 

"4 1 nd« J I 4 nd» fd» « i j f# I 4" 

"4 4 t 4t4 4t4 4t4 4t4 t 4 4" 

-4 i 1 fdo 1 1 It • 't4 M «« 1 ■ 4" 

"9t9t t 9 4 t t4t4" 

-4 *d# fd* fd* fdo «dt> fd# fd* fdo 4" 

"4 t t t t t t 1" 

"nddddddddddd'Jd'Jddddd'Iddddddddddddd,:." 



PLOT 2.2 
PLOT 2.3 
PLOT 2.4 
PLOT 2.3 
PLOT 2,6 
PLOT 2,7 
PLOT 2,9 
PLOT 2,9 
PL0T2. 18. 
PL0T2.U, 
RL0T2,I2, 
PL0T2.I3, 
PL0T2.14, 
PL0T2.13. 
PL0T2.16, 
RL0T2.17, 
PL0T2,18, 
PL0T2.19, 
PL0T2.28. 
PL0T2.2I. 
RL0T2.22, 
PL0T2.23, 
PL0T2.24, 



ndddddddddddddddddddddddddddddddddP" 



riddd» nddd» 



fd« 



t4 



fddd* fdddP 4" 



ndP 4t4" 



4t4 nd«> 4 fd* nd» fdo r.d« < 

4 4t4 4t4 t4 t 4t 1M 4t.1 1*' 

4 1 cdO md4 4 J fd» J 4 rdo xdo I 4" 

4 t 4t4t t4t4 t 4- 

4 nd» J fd»» 1 rd» fdx 1 nd* J fd» 4" 

'4 4 t4 t 4 1t t4 4 t 4t 4 4" 

"4 4tJ Md« I J I 1 J I J t fdO Jt4 4" 

4t1 4 t4t 4t4 t4t 4 9t4" 

' IM t* J 1 J M J I" J f# 4tl 4" 

4 4t4 t 4 4t t4 4 t 4t4 4" 

4 fdo I ■ .■(.-... .-(. fdx J -1' 1 nd* 4- 

4 t 4t4t I4t4 t 4" 

4 J ndP nd* 4 1 fd* 1 4 fd* «dP J 4" 

4 9t4 4t4 t4 t 4t 4t4 9t4 9 " 

4t4 ndo 4 fdo rtd* fdP nd* 4 ndo 4t4" 
4 4 t 4 t 4t t4t4t44" 

4 mddd* nddd* I fd* I fdddo fdddo 4" 

'4 t t t t 4" 

"mdddddddddddddddddddddddddddddddddo- 



8993 

4996 a £* I'nm 

8997 REM f FIN I 

8998 rem unig 

9098 IF v<2 T>cn errWM 

9188 MUSIC 1.2.8V T-70-QOSU8 92W 

9118 MUSIC 12,8.V T-7» G0S>.43 3289 

9128 MUSIC L2-8.V T-38 COSU8 9288 

9138 MUSIC 1-2-8-V T««e C0SU8 ?28t 

9148 M»JSIC 1.2-ll.V T-38'COSUe 9288 

9130 MUSIC 1-2. IB. V T-33 GOSL8 9288 

?:-;* MUSK : 2 . :■? i -•■} :.: : i >:^v 

9178 MUSIC 1.2 9.V T-33 C0S1.43 9288 

9188 MUSIC 128 V T-?f) GOSUB 9288 

9199 MiJSIC 12-7.VT-49 G0SU8 9289 

9193 MUSIC 1.2S.V T-78 

9289 MAITT MUSIC1- 1-1.1 t«4IT 3 -RETURN 

9995 

•»?96 REM ttmimmiii 

9997 REM * INSTRUCTION t 

9996 »£M iniiiiiiiMin 

9999 

I08M O.S -C-E?^ 

leeie do-.i 

19840 PRINTCH»tX4> 

19830 PRIHTC**MK27)"J x x X H I 8 
8 L E R X x x- 

18868 FOR M-34 TO 4 STEP -2 

18070 C-C-l IF C-8 THEN C-l 

18898 PLOT M.I.C PLOT M.2.C 

18898 NEXT. PRINT PRINT PRINT PRINTCHJR 
K4>IMK2 

19108 A«-- VOUS DEVE2 AIDER LE SE 

RRENT- GOSU8 19388 

19119 A8-- A AVALER TOUS LES OCU 
FS" GOSUB 18388 

18128 A8-- MAIS ATTENTION A ME PAS 

VOUS" COSUB 19388 

19138 A*-- MANGER VOUS HEME'.. 

- GOSUB 18588 

18140 R*«- - GOSUB 10390 At-* VOU 

S POUVE2 VOUS ARRETER- GOSUB 18388 

18138 A»-" A TOUT MOMENT EN APfU>-«N 
T SUR "GOSUB 19300 

10160 A8-" LA BARRE D-£SPACEHCN 

T- GOSUB 10388 

10178 At--- MAIS ATTENTION LE TEMPS DI 
MINUE"GOSue 18589 

18188 PRlHT.CHRtK128>CHRt"C 145^*ARPUYE 
R SUR UNE TOLCHE ■ 

18430 At-KEYt'GET At, RETURN 

18493 

19496 REM imuitmii 

19497 REM X AFFICHAGE X 
10498 REM IXXl»t»I«»«t 

18388 FOR N-l TO LEWA8> 

10319 RRINTMIDtXAX.N, 1 >l WAIT 3 

10320 IF PEEK<328>132 THEN POPCLSM 
AIT 58 RETURN 

18530 NEXT 

10340 PRINT PRINT C-C»l ■ IF C>7 THEN C 
■1 
10338 PRINTCMRt.<C*1281. -RETURN 
14993 

14996 REN iitiitnimmit 

14997 REN t REGLAGE FORCE X 

14998 REM 11111111111111111 

14999 ■ 

13088 CLS L0RES0IMK2 PRINT-PRINT 

15820 AR-- LA FORCE DETERMINE L'ALO 
MCEMENT- 'GOSUB 18308 

13038 PRINT" -j<A*J»- IMlTIA 
L">GOSUe 10300 

13940 At-- DUAMD VOUS AURE2 REGLE VOT 
'E FORCE-GOSU0 18580 

15838 A*--" APPUIE2 SUR LA BARRE D'ES 
PACEMENT" GOSUB 10399 

13070 PLOT 4, 14. -I 2 3 4 5 6 7 

8 9 18- 

15088 PLOT 4, 16. "DEBUTANT 
FOU" 

15883 IF D0>-.8 THEN DP-. 6 

l-ww rnu »fl to rp*3? PLOT X.13.17'N 
EXTX-PD139-1 

13108 REPEAT 

13128 A-PEEK(328> 

13139 IF A-172 THEM X-X-IELSEIF A-188 

THEN X-X*l 

13149 IF X<3 THEN X-3 ELSE IF X>31 TH 
EM X-31 

15139 OO-X'39 

13169 PLOT X»l. 15.17PLOT X*2. 15. 16 

15170 UNTIL A-132 

15180 MIJSIC 1.4,4,9MIJSIC 1.4.8.9MUS 
IC 1,4.4.9 MUSIC1-4,8,9'MUSIC 1,1,1,1 

13190 A-O 

13208 RFTiiFN 

16993 ' 

16996 REM tt*ti*tt*t>X*x**>* 

16997 REM t REGLAGE VOLUME * 

16998 PEN r tittt***ttt*t1ttt 

16999 ■ 

17089 CLS L0RES9 INK? PRINT PRINT PRI 
NT 

17028 AX-" QUAHO VOUS AUREZ REGLE L 
E VOLUME " GOSUB 18380 

17049 A*-" APPUIE.T SLIP LA BARRF [>*8B 
PACFMENT-r.OSUB 10380 

17070 PLOT 4,14,-1 2 3 4 3 6 7 

$ 9 in" 

17089 PLOT 4,16.' , FAIPLE MOYEN 

FORT" 

17099 FHP X-4 TO VII. 8*4. PLOT X, 13,17 

NEXT X-V»1.8»3 

17198 REPEAT 

17119 MUSIC I ,2,4,V 

17128 A»PEEK(320> 

17130 IF A-172 THEN X-X-l ELSEIM-IM 

THEN X-X*l 

17140 IF X<3 THEM X-3 ELSE IF X>3I TH 
Ell V-31 

17158 V-INTCX-3>^1.8) 

17169 PLOT X*l. 13.17 PLOT X+2,13,16 

17179 UNTIL A-132 

17180 MUSIC 1.4.4,9 MUSIC 1,4.8.9 MUS 
IC 1.4.4.9 W JSIC 1.4, 8, 9 MIJSIC 1.1,1.1 

m?o Fi-n 

17290 RETIJRN 

19995 

19996 REM xttxtttfttt* 

f"»97 REM * Mii^IOUE * 
■ i > ti ititit irtttt 
1 9993 1 

28888 FOR M-t TO ?40<PEApA NEXT 
20018 PLAY 1.0.0.0 
20020 FOR 1-1 TO 32 
,:00?9 Frf1DP.Al.A2 
70049 MUSIC l.A! ,A2.V 

.-.i.i-o |p fi ( y - ■[, ■-; -..- fm f ( rui'-.l' 1 . 1 
.1.1 WAIT 30 RETURN 
.■'0060 MAITR'MEXT 
28879 MLIS If 1 . 1 . 1 . IRET'JRN 
.^MOO OATA20,3.8,28.3.8.28.3.7.20.3.3 
2(1] in r-nrH7(i, 3. 7.20.3. 3.40,3,8,29,3,6 
29129 PATA20,3.6-29,3,3.29.3,1.40.3.3 
191 h r(irn4n,2.9,20,3,e.20.3.A.20.3,7 

;'m.in i.fii n ■ ■•' ■ 

30190 IOTAIO.3.9. 19.3.0, 20 - ? ■ * . 20. 3.6 

Suite pago 9 



EXPERT 



ORICUBES 



Ce jeu consiste en un alignement de 4 cubes dont les 
faces sont colorees. Le but est de placer ces cubes de 
sorte qu'il y ait chacune des 4 couleurs sur chaque 
face de I'alignement. La difficulte vient du fait qu'une 
des faces est cachee. 

Lorsque I'alignement est correct, J'ordinateur le signale 
musicalement et donne le nombre de coups joues. 
Bien sur, II s'agit d'un casse-tete et il est peu probable 
de gagner en jouant au hasard. II faut observer, refle- 
chir, etre patient... 
Compatible ORIC 1/ATMOS. 



Jacques CASENOVE 




30 TEXT CLS PftlNTCHR* 17. PPIHTCHR»< 6 
f-p&ERO 
ens© 

FMTONQER LES OUR 

■ : - P€ tiANIEPE QU ■ WCLI* C0ULEU 



70 PP1NTTE 4 FRCES t€ c 

■ 

E UNO PLfiM.UN MIP 
: r-iOtiTRE L'ALtGNEMENT VU D£ D€R 
■ 

» PRINT'. 3EULES LEt. FRCES PE PESS0U3 
SOHT t<n«- CRCHEES" 
100 PRINT PRINT PRINT PRINT 
110 PRINT PPINTrn?*<i48>"R='PUYEZ SUR 
HH6 TOUCHE PCJR CONTIWJEP" GET K» CLS 
PRINT 

-tn! &osueii2e 

150 PRINT-PCJR LR ROTATION DES CUBES. 

UTJLISEZ LES FLECNES " 

140 PRINT PRINT 

IW PRIHT--FLECHE ' 
r | un ft E 

1«» PRINT 

1?0 P»INT--FLECHE 'DR01TE' POT. AUT0U 
HQRIZ.AVAN 
T-RPP. - 

130 PRINT 

190 PRINT--FLECHE -H«JT' ROT. RUTOU 
P mjN RXE HORIZ.GRUC 

HE-W>." 

200 PRINT PRINT PPINT*IJN C0NSEIL, Ffll 
TES LE COMPTE DES FRCESCC CHROLC COULE 
ljp - 

210 ' 

220 REM HOOIF.CAPRCTERES 

230 F0PI-1T096 PEROR P0KE46975*I.fl NE 
::t! 
>4«j REM 



'»--n PPIHT'IHP*'- 14? -"RFPUYE2 vi.iR I'ME TO 

iJCME POUR COMMENCER" GET KtCLS 
270 
230 REN TABLE COULEURS 

290 POP C*1T04 

300 FORJ-1T06 

310 PERPCKK-Ji 

320 MEXTJ'MEXTK 

?70 

340 REM MELANGE COULEURS 

3S8 PLOT3.13.CHRV20H" IJH INSTANT, 
JE MELANGE LES CU8ES" 
360 FORI"lT0INTfPHD<l >*20) 
370 N-INT<RN0':i>#4>+l 
388 H-INTCRMX 1 >*3H1 
390 ON H GOSUB 1170.1200.1230 
400 NEXT I 



420 REM— 



TPflCE PES CUBES 



430 HIRES PRIMTCHR*<17> 

440 CJRSET13. 125.0 DRRH22S . -20. 1 ^ORflW 
0.-7O. 1 DRfti4-22S.-30,l DPAwe.120,1 

450 FOPX=13T020O3TEP34 

460 C'JPSETX, 151.0 

470 [pRAH0.40,l WWH34,e,l DPRHO.-40.1 

DPRU20 .-20.1 PPRHO ,40.1 

430 PPflU-20.20. I C>RAUO.-40. 1DRRU-34, 
0.1 DPRW20.-20.1 L.PRH34.0, 1 

490 NEXTX 

500 FOPX=17TO20O5TEP54 

510 CURSETX.30.0 

520 DPRUO.34,1 CRRW2O.20.1 DPRU0.-34, 
1 WAlJ-20,-20, I ■C'PflM34,0, 1 

5-30 ORAH2O.20. 1 :.PRW-34,0,1 Dpqno.34, 
1 DRAW34.0.rDPflnO,-34,l 

540 NEXTX 

550 Ff>PI = lTQ4 CUP3£TI*34+2, 185.8 CHRP 
1*43.0.1 HEXT1 

555 OS="ORICUBES" FORI-0TO7 P0KE41220 
+1*40, INTfRMtK 1 >*6*1 J 

560 CUPSET172+I*6,7,0:CHRRflSC<MIC>a<O« 



ORIC 1 ET ATMOS 



l, 1 NEXT! 

SUPPORTS C0ULCUR8- 



500 FOPX-25TU20OSTEP54 

590 CURSETX. 160.0 CHRR112.0, 1 I 
•6.160.O CHRP113.0-1 

600 CUPSETX. 163.0 CHflPl 14.0.1 ^CURSETX 
+6.163.8'CHflRlI3.0. 1 

610 CUR3ETX+30. 132.0 CHRP1 16,8. 1 CUPS 
ETX+30. 160.0 CHAR1 17, 0,1 

620 CUPSETX+12- 136.0 CHAP1 13,0.1 CUR; 
ETX+18. 136-0 CHRR119. O.I 

630 CHPSETX.70,0 CHRR120.0. 1 C'JPSETX, 
7S.0 CHRR121-0. 1 

640 CUPSETX+12,56,0 CHRR122.0,! CURSE 
TX*18,56,0 CMRP123.0.I 

650 CUR3ETX+24,73,O^CHAPn2-0.I CURSE 
TX+30.78.0 CHRR113.0.1 

660 CUPSETX*24,86.0CHAP1 14,0. ECLIPSE 
TX+30.36.0 CHRP115.0.1 

670 HEXTX 

680 GOT0700 

630 • 

700 PEM COULEURS 

7I0 FOPX*1T04 

720 A=<X-I>*54 

730 CURSET18+R. 160.0 FJLL16, 1 .C1(X.2> 
,C'JRSET36*fl. 160.0 FILL16.1 ■? 

740 CUP3ET48+A. 152,9 FILL16, 1 .CKX.S> 

CURSET60*ft. 152-0 FILLI6. 1,7 

750 CUPSET30+R, 137.0; FILLS. 1-CKX, I > 
i:'JPSET40+fi, 137.0FILL6.1.7 

760 CURSET13*R-72.0 FILL12. 1 -CI' X.5> 
CUPSET30+R.72.0 FILL12-1.7 

770 CURSET31*fl,56.0FILL7.1,CKX.l> C 
UPSET49*fl . 56 . F ILL7 . 1 . 7 

780 CUPSET43+R, 78,0 'FILL16, l.CKX. 4 V 
CUPSET61»A. 78.0 FILL 16 .1.7 

790 NEXTX 



310 PEM VEPIF. SI GRGHE 

820 C=C+1 

030 S1=C1M.I>+C1<2,1 HCK3.1 )+CI(4,l 

840 32=CK1,2>+CK2.2>+CK3.2>*CI(4,2 

850 S3=CK1,3>+CK2,3>+CK3,3>*CK4,3 

860 S4=C1U.4»CK2.4HCK3.4>*C1<4,4 



890 PEM COMMRNDE ROTRTION CUBES 

900 PPINT^PPINT-QUEL CUBE V0ULE2-V0US 

TOURNER'" i 

910 GET N»:IF RSC(N»X49 OR ftSC(Nt)>5 
2 THEN910 

920 H=VAL<M»> 

930 PRINTN 

940 PPINT-&RNS CJ..IEL iENS' 'Fl*ch*-> 

950 GET*-* IF OSC'KtXS OR RSC!Kt»ll 
THEN 950 

960 K=RSCXV*W IF K-3 THEN990 

975 IF lf-4 THEN K-3 



990 ON K G0S»J9 1170.12W. 123« 

990 PPINT PRINT PRINT 

1000 WTO 700 

1010 

1020 PEM GRONE 

lege pRiNTCHPf i2?x:hp»' kbi* vc»/s 

RVEZ CflCHE E" "jC-1;-C0UPS' 

1940 C-0 
105O GOS'jeiSOO 
1060 MRIT500 

lfi7.f pciNT PRINT- VQULEZ-VQU5 PE K> 

IJER 7 ^O'N.- GET v% TEXT 
1080 IF KS--0-THEN 340 
1090 IF Y%- --II-THEN1O70 
1100 PPINTCHR«'6 ■ E'T. 
1110 



1120 REM— J S.PP.TITPE 

1130 PPMiTrHC»-4 . PPINTTfie<25 ■ PRINT 
CHR»'27 -"F-rutrf 27>"J QRICUeES" 
1140 PRII(TCHP«<4> PRINT PRINT RETURN 



Hi 



> PEM S.PR.ROT.C€S OjetS' 



1170 C2'N,2»C1'N.6 - CKH.5XKH.2) 
C2<n.4>*C1'N,5) C2XN.SXKH.4 ■ 

1180 C2'N.l -Cl'N.I )'CKN,3KI'H.?> 

1190 G0T01250 

1200 C2'N.6'«C1'N. 1 ' C2<N.5>^;i<N.3> 
C2-"N.l )»CKN.5>C2<N,3>^:i<M.6> 

1210 C2'N.2i=CKN,2) C2'N.4 ■=■ : 

1220 G0T0125O 

1230 C2'H.4>-CK". 1 J C2' N. 1 «C1''N.2> 
C2(H,2>>Cl<H.3>iC2CN 3 -'■' H ' 

1240 C2XM.3XKN.3) CI-N.6 

1250 FOR.i'lTGf CKH ' 

1260 C2'H. J>=0 HEXTJ 

1270 RETURN 

1280 ' 

1290 PEM— S. PP. MUSI WE 



1300 PLRVI .0.3.0 

1310 F0RX82T012 

1320 MIJSIC1-3.X.0 

1330 WRIT 20 NEXTX 

1340 MtJSICl.3.2,0 MRIT^O 

1?50 FLRVn.n.o.o PETi'PN 

1360 

I370 REM DATA Mnf.IF.CAPRCT. 

1380 DATRO. 0.3. 13. 15. 31. 31. 31. 0-0.48, 
60. 60. 62. 62. 62. 31. 31. 31, 13. 13- 3. 0.0 

1390 0RTA62. 62- 62, 60. 60. 48- 0-0. 0,0- 12 
,30, 30. 62, 62. 62. 62, 62. 62, 60- 60. 24. n,'"> 

1400 DATAO- 3. 13. 31. 31- 31. 15. 0-0. 60. 62 
.62-62.60.48.0 

1410 PflTAO. 0-24. 60. 60. 62. 62 -62. 62. 62- 
62,30.30.12.0,0 

1420 PflTftO, 15, 31. 71. 31. 15. 3. 0.0-48. 60 
.62.62.62,60.0 

1430 i 

1440 REM DATA COULEUPS FftCES 

5 1 . 
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,stes_ esscsa^cas ;:::;;:; 
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CORSAIRES 



SUto dta h cwpa B 



3790 Pl.OTC.«.l7 PtOTO-7. 1? 
5800 PLOTO 9.17 PLOTO.9.17 
5810 «•*■>»•• 17 '*CHR«< I6> 

-B ? « F0PI-1T04 

3830 RLOTNH 3*I-ft» NEXT 

5040 punvi.e.e.e 

5R56 SOUNOl 300. INT'HM 4>.", 

5960 m-pfr «,'■ 

■ H-1S8) 

'.-^rTMENHM»37 
->fi"fl IFm!'2THENNf1-2 

5900 IFM-132TMEN3910EL3E3820 

-.*tNT'MM'4> 
5920 PLP.Y6.0. 60 RETURN 

MW PEM 

5?49 PEM INSTRUCTIONS 

59*0 CLS 1*2 

5979 XM4 Y*i T a 2'HT*»* INSTRUCTIONS' 

3980 Y-2 C-? G0SUBS3W 

<S9$q PLOTIB. 1 I" PL0TIC2, 10 

6060 C-3 X-13 Y-4 HT«-"TfleLEH>.' 

■ 

eeie rloti.6,-vous i>eve2 rrriver juso 

*020 PLOT1 ;-."fu EVITfiNT LES B fl 
IONS IMPir.FHF^- 

IEH ET LE 
S PEC IPS" 

■ -in MT*="TfteLEfiU 2* GO 
SUB6320 

'ITER LES 
BOiAETS QUE " 

oeo Pv.on.n ■ u -opt" 

•*13 nTs='TB8LEflU 9" GO 
3UB6320 

«eee pujti.i?. fwriver 

■ JFFRE" 

ati.u 

LE SOt 

■ : 
6119 P 
MORTELLE" 
■ 
E«E DE SEC'JPITE- 

6130 C»* »3 Y*a HW-'flPPUYER 8UR UN 
E TOt.tCME" G0SUB6S2Q 
■ IETW 
$196 Rl 

siee pfm 

SJ79 PEM NIVEAU 

si»e rem 

6198 CLS PmREPO INV? nv»hv*1 o 

K"E4648e. 17 P0rE48S80.17 
<5219 MTt>"NIVEW+STRKHV? K-16 Y-13 
C-14 GDSUB6320 
$229 y-14G0SUBfiS2a 

■ [•88T068 
«24P RLRY3 0-7.59 
£230 HUSIC1 ■ « I '.» I ' P" 

: :C2,W i -i .iy i i 

4279 URIT15ICX ! > 
6289 PLRYO-0.0.9 
S290 NEXT I 

."1T199 
6319 RETURN 
6329 PEM 

<s??9 REM AFP. HIRES CL2 

6340 "EM 

6759 DJRSETX,Y.6 

■53<S0 FOPft=lTOLEH'MH»> 

6378 CHAPRSrv M J M' MM« , P . !. >). 

6388 C'.'PM0V6.9.9 
5390 mEVTh 
6499 RET'JPN 



6416 


REM 






. I2Q 


REM 


■ RFF. 


HIRES 


..:■■■:■ r- 


CFH 






...! |Q 


CUPSETM 


. , .i? 


F1LL9.1.6 


. tSQ 


i i :.,, |TOtl H 


F1H1 ' 


.' l.i- 


■ ■ ■ 


.9.6 




■ i; p 


. Hffmi 


MlPt' MHl 


. .i n 


HEX! 






.■.,■.:- 


CURSET> 


.Y.0 


Fiue. i.c 




RETURN 






■■■11' 


PEM 






6320 


REM 


.f.FF. 


Te::t 




PEM 






( MQ 


PLOTtf-l 


.V c 




6350 


PLOTX.Y 


illl 




i - n 


RETURN 






4579 


PEM 






esse 




. GP.GME 


6390 


F0RI-1I 


?79 PLRYl.6,6,40 


.-..,• 


M'JSICl, 


V I )j 


■ H< ! ).PU'MhIT13iD' 1 


6616 


PLRY0.9 


.9.0 


IIEXTI 


6C29 


00-2009 


-C I FBO' 9 THE "80-9 


6630 


PL0T13,. 


34. "BONUS , '*STR«'8G> 


j649 


SC-SC+BO ■ PLOT? , 26 , STRtK BC > 


6656 


FORI-30TO33 


PLOT!, 29. 21 ■ NEXT I 


f*M) 


MOIT300 


'NV-9'GOT03668 



NIBBLER 



•l ft IL FFflJT QUE 



-ET flUX BOULETS CMJ SYST 




Suite de la page 7 



29169 DflTfllO-3,5.19.3.7, 19.3.8. 19.?. 1 
■■ ■- 1,3,3.3-40,2,8 

■ - 

■ - - -- REM ?»*».triT 

24997 REM t MENU * 

24998 REM tt**t*r» 
24999 

23606 CLS UORES0 INKS 

^5910 PRINT PPINTCHP«'4i.CHR«i'27>" I 

H I B 6 L E P" 
.^929 ppihti-hp«'4. plot 9.1.2 PLOT 9. 
2-3 * 

25939 PPINT PPINT" "CHP*' 143)"T0UCH 
F KOMCTIOH " 

25040 PR KIT PPINTCHPf I23>" CUPSEUR 

DEPLHCEMEKT"'PRIKT 
.75959 PPINTCHRt' 130)- 1 

JEM HORMflL" PRINT 
759?0 PRIHTCMPSf 131>" 2 

JEIJ PflPIPE" PPKIT 
23970 PPJNTCHR*' 133)" ESC 

MENtJ" PRINT 
25980 PPINTCHPS< 534)" P 

FORCE" 'PRINT 
25990 PRIHTCHPX: 135)" V 

VOLlJME"-PRIHT 
25100 PPINTCHRt<129)" I 

INSTRUCT I ON" 'PPIHT 
25110 PRINT" GRIMRL SYLVP.IN COPYRI 
GHT 1984" PRINT 

25129 PPINT" COPIE INTERDITE" " 'P 
PINT 

25129 PRINT PPKITCHP*U23>CHR»CI45) M fl 
PPUYER SUP LR TOUCHE DESIREE " 

25149 R*»KEYt>GET fi* 

25150 IF fl»-"l" THEN OP-9 PESTQPE COS 
UB20099 RETURN 

25160 IF fl»»"2" THEN QP> I RESTORE 'COS 
ue29000 RETURN 

25179 IF R*«"F" THE" GOSUB 15000 COTO 
25900 

25130 IF fl«»"I" THEN GOSiJB 10090GOTO 
25090 

25199 IF R»-"V" THEN GCSUB 17009 GOTO 
25099 

25200 COTO 23149 
29995 ' 

29596 REM ttt**trf*T**l**t*t«j: 
29997 PEM * flFFICHfiGE OU NOM * 
29993 PEM titHHtiutt ttttxxtttt 



29999 

39600 CLS L0PES9 INK6 

39019 PR KIT PPINTCMR»'4>.CMPt'27i"j 

NIBBLE P" 
39620 RPINTCHPV4) PLOT 9.1-2 PLOT 0. 
2.5 G0SU6 3W90 
30039 PPINT PRINT" "CMP»' I48)-SC0PE 
NOM " C-RIIO' 1>I6*I 
36049 FOR 1 = 1 TO 3 PRINT C-CM IF f:>7 

THEN C"l 

30959 PPINTCHPt'C»12e)SPC'5)SC I >SPC 
6-LEIK STP«' SC. I > > i )IIO«*'! I > MEXT 

30069 PRINT PPIHT PPINTCHP* 29 > 

30070 PPKIT-RBCC'EFGHI JKLMNOPOPST'/rtWY 
7*'. RUB END", 

10030 PPINTCHP«f 29 > PLOT 14.26"TPt'S 
C) X-49039 B»63 
30099 REPEP.T 
39109 ft-PEEK'320' IF ft-56 THEN 39149 

39119 POKE X.B 

39120 IF R-172 THEN X-X-l ELSE IF P.-1 
83 THEN X-X»l 

39125 IF X)49939 THEN X-49039 ELSE IF 

X< 49999 THEN X-49909 

39139 B-PEEI"X) 

39149 POKE X.B+128 

30150 IF R-132PNO X' 49936 THEN CP.LL • 
FB19G0T039179 

39155 IF PEEK'"529)»fl THEM WRIT3 

39169 UNTIL R-132 BNC' KM9036'GOTO303 
09 

301713 IF LEHCHOMfCKJXl R"P X>49932 T 
HEN 30299 

39189 IFX>49032THEMHOH#<K -=LEFTtrnont 
(K i,L£H<HOHt<K>)-| ),GOTO30209 

30195 IF LEM'MOHt'K 'VM? THEN NOK*J< K ) 
=LEFT*' NOMt-: K ). 13) 

39199 HOM»'K j=N0I1«<k >*CHRt(B) 

30209 PLOT 29.26,N0M*'K)t" " 
39295 IF PEEKC528>=132 THEN 39295 

30210 GOTO30100 
30493 ' 

36496 REH **t*****t**t»****T* 

39497 REM t flFFICHRGE SCORE T 

38498 PEH t'tttJimi'tifiittt 

30499 

30309 CLS LOREB0 IN"? 

305 19 PR I NT PP I NTCHP V 4 > . CHR»^ 27 )" J 

39320 PRINTCHP»C4> PLOT 0.1.2PLOT 0, 
2.3 

30530 PPINTPPINT" "CHRfl49)"SC0R£ 
NOM "'C'RMCXl )»6H 

30340 FOP 1=1 TO 8 C>C*1 IF C>7 THEN 
C»l 

30545 PRIMT 

30339 PRINTCHP*'C*128)SPCf 5 )SC 1 >SPC< 
6~LENf STPt' SC I > i ) )NOMS' I > ' NEXT 

30560 PPIHT PPINTPPINT 

30370 PPINTCHRt' 128 ->CHP«' 145>"ESPRCE 
POUR -JOUEP.ESC POUR LE MENU " 

39530 R«=KEY* - GET fl»'SC«9'Y«0' W»3iT» 
l.ST-1 R-0 

39599 IF fl*»CHP»'27> THEM G03U8 23690 

36699 IF R*»" " THEN GOS'je 3090 G0T04 



30610 GOTO 
34393 

34396 
34997 
34993 



I REM i 



IMlItlllllM 

PEM * D.RSSEMEHT * 

REM »>»tiiiiiin 

FOP 1-1 TO 6 
35910 IF 8O80CI) THEN 35030 
35020 NEXT 

35030 ^-1 'FOR II-l TO 6 
35950 HOM»' I )"N0M«'1*11 8C< I >-SC 1*1 > 
35060 NEXT 

35070 SC<K>■SC'NOM•<K)- ,, " 
35980 RETURN 
39993 i 
39996 PEM »»*******f !»**»* 



39997 PEM i PRESENTATION r 
39999 PEM iiifiiiitttiiin 
39999 

49900 CLS PRPEP0 K*"3 P»INT PRJWT PRJ 
NT 

49929 RRIHTCMPf 134)' SfLVAIM G»IW1 
vrjtJS PRESE'lTE -CHR»(131) 

49923 X' 1 /-33 f I >-3 

40930 M--922233334444444444444444444 

44444444444433333334J 141 141 14-133337- L 

-23 

40940 y-? /«?? 

49930 GOS'^ 40399 

49969 Rf--9222??":?4444444444444444444 
44444444443333377* L-7 
40970 Y-3 /-73 
49999 GOS'JS 49390 

40990 ft«- "022233334444444444444444444 
44444444333733322212141442212141444- L 
•26 

49100 Y-3 »33 

40119 GOS'je 49399 

40120 R«- "922233334444444444444444444 

44333333322212141442212141444- L-26 

40130 VI )-3 X' l)-33 .': 

40140 GOSiJB 40509 

40130 R»=" 922233334444444444444443333 
3332222" L-M 

40160 Y-3 »33 

40170 GOS'je 49390 

40180 fl*="022233333444444444?33?22444 

??32222" L-21 
40190 Y-3 X-33 

40200 GOS'JB 40590 

40210 R«=">>22222:';i:-3333333414I41422) 
2141444333333" 

40220 X-33 Y-3 L-23 

40230 GOSUB 40580 

40240 PRINT PPINT PPINT PRINT PRINT P 
PINT 'PRINT PPIHT PPINT PRINT-PRINT PR[ 
NT 

40239 PRINT PRINT PPINT PPJNT PPJ'JTC" 
P*'l?4>" COPYRIGHT 1984" 

40260 PPINT PRINTCHPff 120>" "CHP* 

(143)" flPPUYER SUP. iftiE TOUCHE "CHP* i 

44) 
46270 R«»KEY* GET Rf Y-0 
49490 PET'JRN 
40493 

46496 REM nimiMiiiiiMiim 
40497 PEM t RFFICHRGE HieeLEP I 
7739 PEM inuititmmiiiitt 
49499 

49309 FOP N-2 TO LEtffl*> 
40393 1-1*1 IF I>3 THEN I"l 
40510 B*-HIM<fl»-H. 1 ■ 

40320 IF P.»«"r THEN Y-Y-l C''N-II? 

49539 IF B*»"2" THEN X-X*l CN >-120 

49549 IF B«-"3" THEN Y-Y'l C<t))-llP 

40330 IF B*-"4- THEN X-X- 1 C N>-1 17 

40555 POKE R<I>,53 POKE A'I*1 
E R([*2).63 

49360 IF L<M THEN PLOT X<H-L • Y'N-I >, 
32 PLOT X'H-L*1 ).Y(H-L*1 ).CM-L*2>*4 

40370 X(N>«X'Y(M)-YPLOT X.Y,C(H).PLO 
T X(N-1 >.Y'N-1>.E' I > 

46573 IF PEEK<320)-132 THEN Y>0> POP 
RETURN 

4038O NEXT 

40599 RETURN 

44993 

44996 REM MiiiiiiniM 

44997 PEM e [NIT PPES * 

44998 PEM tiiuimirn 
44999 

45998 FOP N-! TO 1 52 ' REflPR NEXT 
45010 FOR N-47016 TO 47103'RERt) fl POf 
fii.fi HEX! 
45020 FOP 1-1 TO 3 E' I )-124*I NEXT 
45030 FOP 1-4 TO 6 E'I>-121*I NEXT 
43049 RETURN _ 



ORIC 1 ET ATMOS 



ILE 



HP41 + XFUNCTION + TIME 

Partez a la chasse au tresor avec voire navire, guide 
par les vents. Mais attention, un galion ennemi et arme 
est aussi a sa recherche. Depechez-vous! 



Didier VALLET 



Jeu sur tableau 10 x 10 (gradue de a 9). 
Mode d'emploi: 
Faire XEQ'ILE - 

II apparait "NIVEAU?", introduce la difticulte choisie: 1 .2.3 ou 4. 
Au top sonore, apparaissent les coordonnees de rile au tresor sous 
la forme *yx": y ordonnee, x abscisse. Notez bien S3 position car 
vous ne la reverrez pas 

Au bip sur/ant, voire chere HP vous donne les coordonnees des 
gallons (qui se deplacent aieatoirement). 

It enfin. surgissent les coordonnees de voire vaisseau. suivies de 
t :xjocx ou xx mdiquant les ditf&rentes directions de vent qui peu- 
vent vous aider. 

ex' vaisseau en 43;chotx du vent 9 -. deplacement du vaisseau en 
54. 

Retour e retape prficedente: 

A vous darriver le premier sur I'ile. Cas particuhers: le gallon prend 
le tresor. il apparait TRESOR PRIS" puis "ARME EN:" 
Pour gagner. II vous taut alors vous emparer de I'arme puis rattraper 
le Gallon pour le cooler, dans un temps infeneur a 4 minutes. 
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SOUS-MARIN 




HEWLETT HP 41 



Ce programme entre dans la categorie des jeux de 
note. Vous vous mettez dans la peau dun commandant 
de sous-marin auquel on a confie la mission suivante: 
detruire cinq objectifs ennemis places aleatoirement 
sur une grille de 100 cases sur 100. Naturellement, ces 
objectifs sont bien defendus et vous pourrez combattre 
contre des destroyers, des pieuvres. ou meme votre 
propre objectif, si jamais vous le ratez, ou faire face a 
certains dangers tels que des avions, des mines, du 
corail, des epaves piegees 

Au depart, vous etes dans la case de coordonnees 
(0,0) et en surface. Votre radar vous indiquera la dis- 
tance entre votre sous-marin et le 1er objectif. Lorsque 
vous aurez detruit votre 1er objectif alors seulement 
votre radar vous indiquera la distance entre votre sous- 
marin et te deuxieme objectif et ainsi de suite, jusqu'au 
cinquieme. ou vous aurez gagne. Votre sous-marin a au 
depart une certaine force qui constitue en quelque 
sorte son esperance de vie. En effet, chaque fois que 
vous detruirez un objectif ou un destroyer, vous gagne- 
rez des points. En revanche, chaque fois qu'ils riposte- 
ront ou que vous n'eviterez pas un piege. vous perdrez 
des points. Si vous avez une force negative, vous 
auvez perdu. Sachez qu'il est impossible de tricher. 

Bruno FOURTOUT 



Vow maintenant les fonctioris des touches en mode user: 
A: Afficnage de la position du sous-marin el des points de force. 
8: plongee Z redurt de 10 unites a chaque fois. 
C: Radar, distance (cibie SM) tir possible ou pas. 
D: Tit d'une torpitte sur r objectif (ptongee ou surface). 
E: Engage le combat avec un destroyer. 

J: Surface . Z augmente de 10 a chaque fois, si Z = on ne peut 
faire surface afficnage de impossible" et retour a 'actions? - . 
H: Engage le combat contre la pieuvre. 
Void les pieges et teurs antidotes. 

En surface vous pouvez rencontrer des mines, des avions. des des- 
troyers. En ptongee vous pouvez rencontrer des pieuvres geantes. 
du corail et des epaves piegees. 



A I'afftchage des messages, il faudra appuyer sur la bonne louche. 
Vous avez juste le temps dune pause (1s.). 

Destroyer: Plongee ou attaque. a tout moment vous pouvez cesser 
le combat en plongeant. Touche 8 a laffichage "Des- 
troyer*. 
Avions: Ptongez! Reagissez vite. car ils vous ont deja mitraille et 

enleve 5 points de force- 
Mine: Appuyer sur touche de deplacement (1, 2. 3. 4. 6. 7. 8, 9) au 

choix. 
Corail: Surface. 
Pieuvre: Engager le combat touche H pour la faire fuir. Attention elte 

peul revenir a lassaut 
II n'y a que lepave piegee contre laquelle vous ne pouvez nen. De 
plus, comme la pieuvre. elle deplacera voire sous-marin de a 4 
cases dans le sens Nord-Est aleatoirement (grace a la cote). 
Sachez aussi que lorsque vous piongez ou que vous faites surface 
vous vous deplacez dans la direction du damier deplacement: Tou- 
che 8: nord. Touche 8: plongee vers le nord. 

Les bords symbolisent la cote qu'il faudra imperativemeni eviter 
sinon N vous en coutera 30 points de force. 

Voici comment votre sous-marin se deplace. Apres avoir assigne les 
labels de deplacement au pave numerique (chaque label de depla- 
cement porte le numero de la touche a laquelle I faudra lassigner) 
on aura: 

En surface: 1 : X reduit de 5. y reduit de 5. 
2: Y reduit del 0. 

3: X augmente de 5. Y reduit de 5. 
4: X reduit de to. 
6: X augmente de 1 0. 
7: X reduit de 5, Y augmente de 5. 
8: Y augmente de 10. 
9: X augmente de 5. Y augmente de 5. 
Remarquez que chaque touche deplace le sous-marin dans les 8 
directions possibles queues symbolisent, la touche 5 etant prise 
comme centre. 

Si vous etes en plongee: Z negatif, la direction ne change pas. mais 
la vitesse est divisee par 5. 

ex: 6; X augmente de 2. 9: X augmente de 1, Y augmente de 1. 
Les deplacement en surface est tres raplde et Ton peut ainsi reperer 
assez faciiement lendroit de ['objectif. Mais pour bien s'approcher 
de ceiui-ci pour avoir de bonnes chances de le detnjire, i! faudra 
certaine ment plonger. 
Gains de points: 
Une cible: 25 pts et 1 torpiite. 
Un destroyer: 35 points. 
Pertes de points: 

Avions: 5 puis 1 si vous ne reagissez pas. 
Destroyer: 20 points a chaque fois qu'il artaque. 
Mines: 15 points a chaque fois quelle exptose. 



Pieuvres: 2 points. 

Corail: 25 points si vous ne faites pas surface a temps 
Epaw : r;ee B pfl MS 
Cole toucnee: 30 points. 

Si les obtes riposteni (lorsque vous les ratez) tout depend de I'ava- 
he queltes vous causeront. Un dem-er mot au sujet du programme. 
II y a a certaines iignes des TONES syrtheftques. obtenus a : aide 
du cnc. Voici comment les creer: 

II faut ass>gner le One a la touche E+ . Pour ceta. il taut disposer 
du HP 41 avec une memoire vide Si vous rentrez le programme 
avant de creer le One vous ne pourrez pas creer ces tones syntheV 
ques. 

Remarques: Effacer tome la memoire de la HP 41. kBtnjcfcons: 
Eteindre la HP. La raHumer en garuant presse la touche — . Am- 
chage: Memory Lost- 
Remarque: Faire deux assignabons. Instrucfions: ASN BEEP E+ . 
ASN PACK E- . 

Remarques: Faire Cat 1 RS tout de suite apres. instructions: mode 
programme. Affichage OO Reg 45.lnstruct)on: ENTER Amchage 
ENTER * . Instructions: GTO. affichage OO Reg 45 Instructions: 
Cat 1 et R S, affichage END. Instructions: mode alpha. 
A chaque 8ST Attendre laffichage. Instructions — , affichage : 4094 
ENTER I . instruction: BST. affichage 4093 EMTER ; . Instruc- 
tions: BST. affichage: 0. Instructions: BST, affichage 4091 LBL 
00. Instructions BST, affchage: 4090 Beep. Instructions: — , affi- 
chage: 4089 LBL 03. Instructions: — . affichage: 4068 LBL 08. 
Vous etes en mode . instructions C. affichage: 4089 tC. Instructons: 
mode caJcul. Cat t et RS. 
Le cnc est assigne. instructions: Xeq "Clp". 
Creation d'un tone synthetique. 

Mode programme: 1. RCL ind 16. RCL ind 31. fonctton suffixe. 
Faire BST deux fois pour posttionner le pointeur sur RCC ind 16. 
Mode calcul. mode user E + affichage de XROM 05.03. Mode cat 
cul, mode programme *- . SST. — . *- puis SST. respecter scrupu- 
leusement ces instructions. 
Tone: Tone M. fonction suffixe: RDN. 
Tone Y, fonction suffixe: PI les autres tones sont normaux 
Tone ou label 55, fonction suffixe COS. 
Tone 9 au label N. fonction suffixe: SfN. 
Tone au label H. fonction suffixe: Ox. 

Tone 9 au label 00 (fin du programme SM). fonction suffixe: SIN 
Tone 7 dans le programme X au label P. fonction suffixe: "v. CH. 
Un dernier mot, ce jeu comprend deux programmes. Le premier SM. 
le second d analyse X. Apres avoir rentrer ces deux programmes en 
size OOO, faire size 019. ll reste juste deux octets, stocker un nom- 
bre entre et 1 dans la memoire 00 et (aire Xeq SM puis attendre 
le message Action?. La. passez en mode user et jouez. pour (aire 
une aute partie (aire "CLRG" puis restocker un nombre dans la me- 
moire 00 puis Xeq SM. 
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CADRPL-ADRFL 



Cr&er et g6rer vos fichiers: rien de plus simple avec cet 
ensemble de deux programmes (super) utilitaires. 

Vincent HERLICQ 

Configuration: HP 41 C - module X FUNCTION + Module memoire. 
HP 41CV + X Function- Facuttatif; t ou 2 X memory. 
Impnmante pour option H et I. 
CAORFL : cree ou complete un fichier d'adresse. 
S' voos voulez creer un nouveau fichier oui(o) a la question NV FL? 
Puis donner la faille desiree (Taiile FL?) -FL NM? demande le nom 
du fichier de travail. 

Ensuite. il suffit de rentier vos reponses aux questions: NOM? 
DATE? ADR? TEL' AUTRE -5 Rentrer les renseignements par 
groupe de 24 caracteres (taiile de 1'afficheur de la 41) Si vous ne 
voulez pas femptir une des rubriques (aire R-S sans taper de lettre. 
Si vous avez On de remplir une rubnque, taites de meme a la ques- 
tion + CHRS? Pour creer un autre enregistrement taper (0) a la 
question Autre record? Sinon taper (N). 
AORFL: Utilisation du fichier d'adresse. 

ADRFL permet d'utiliser le fichier d'adresse. Apres avoir donne le 
nom du fichier et que PRET se soil affiche, diverses options sont 
possibles: 



A: Choix dun enregistrement a laide des premiers caracteres de 

Tune des njbhques (Tel. nom, adr. date, autres). 
B NOM. 
C: DATE. 
D; ADRESSE 

E: TELEPHONE. 

F: RENSE1GNEMENTS COMPLEMENTAIRES 

G: Impnme ou affiche les rubriques. 

1: Fin du programme, supprime les assignations (A a J). 

H: Imprime ou affiche tout le fichier. 

J: Aide, affiche chaque louche et sa fontion . 

Pour ("utilisation de ce programme un overlay avec les fonciions de 

chaque louche est tres utile. 

REWARQUES: 

CADRFL: St vous imprimez le fichier adresse par LBL 00 GETREC 
PRA GTO aa chaque rubrique est separee de la suivante par un 
caractere different. Ce sont des bornes qui permertent au pro- 
gramme de selectionner les differentes rubriques. Un enregistrement 
complet se presente sous la forme: 



NOM' * * DATE* * * ADR' 



•TEL" 



■ AUTRE 



■ ■ ' 254 253' ' • 252" ' * 251 



Pour evrter tout octet inutile, la borne nest pas inseree si ta rubnque 

est v>de 

ADRFL: Si vous ut*sez un overlay vous pouv« sens&ement rac- 
couror le programme en supprimant le sous-progr a mme AiD€ des 
Ignee 146 a 176 N'ouWiez pas de supprrmer tes fcgrws 42.43.44 et 
296 297 et de remplacer le GTO 10 de la igne 50 par un QTO 05 
Le registre 00 sen de pointeur. il indque le numero de I'enregetre- 
ment en cours. II est modrfie par les options A et I. 
Pour une rajson de rapitfte j utilise des tabete giobaux (A a J). Pour 
les programmer it taut disposer de lafTectaSon code deomat 
1205.00 qui apparait sous la forme XROM 52.00. II suffit akxs de 
fa-re XEO IB en mode calcul puis de passer en mode programme et 
de faire XROM 52.00 pour obtenir LBL tB et ainsi de smte. S< vous 
n'avez pas cette assignation vous pouvez changer le nom des 
labels ators n'oubhez pas de changer les bgnes 15 a 42 en conse- 
quence. 

Si vous avez la chance de posseder une impnmante vous pouvez 
remplacer les AVIEW par des PRA, lexecufcon du programme en 
sera plus rapide. Pour ta presentation vous pouvez mserer un ADV 
apres la ligne 234. 



Q> 



14:59 21.81 


41 XOY 


»1*LBL -CPWFL- 


42 BPPCI* 


82 CF 68 


43 GTO 82 


83 -HV FL' - 


44«LBL 12 


84 RVIEU 


45 XEO 11 


85 42 


46 GTO 87 


86 GETKEY 


4?»LBL 11 


87 X«Y* 


48 RCLPT 


88 GTO 88 


49 1 E-3 


89 SF 88 


58 - 


18 -Tl FL'" 


51 SEEKPT 


11 PROUPT 


52 RCL 2 


12»LBL 88 


S3 1 


13 -fl m r 


54 1ELCHR 


14 BOH 


55 RTH 


15 PROUPT 


56»LBL 87 


16 80FF 


57 XOY 


17 FS' 88 


58 cm 


18 CRFLBS 


59 XTOfi 


19 . 


68 RPPCNR 


28 SEEKPTO 


61 RTH 


21 GTO 88 


62»LBL 88 


22»LBL 81 


63 -NON'- 


23 BVIEU 


64 XEO 81 


24 CLB 


65 X=8' 


25 HON 


66 GTO 89 


28 STOP 


67 OPPREC 


27 B9FF 


68 254 


28 8LEHC 


69 XEO 92 


29 RTH 


78 TJQTE'- 


38»L8L 83 


71 253 


31 XEO 81 


72 XEO 83 


32 X=6' 


73 -8DP7- 


33 GTO 12 


74 252 


34 XOY 


75 XES 83 


35 BPPCHP 


76 "TEL'- 


36»LBL 82 


77 251 


37 -*CHRS'- 


78 XEO 83 


38 XEO 81 


79 -AUTRE' 


39 X=8> 


88 258 


48 GTO 87 


81 XEO 93 



82 XEO 11 


26 POSH 


674L8L -8- 


188 BTOX 


149 SVIEM 


n Ac , 


*^\ V^PJ 


"■u 


83 -OUTRE REC7- 


27 -E- 


68»LBL 81 


199 1 


158 GETKEY 


u/A^ 


r^ivv \^J^ 




84 RVIEU 

85 41 


28 15 

29 POSN 


69 RCL 88 
78 STO 61 


118 - 
111 XTOO 


151 -B=HO«- 

152 OYIEH 


(1 A/ / 


:feo£_i2^c o ' 










86 GETKEY 


38 -F- 


71 CLO 


112 251 


153 GETKEY 


198 X=«? 


227 ■lHCOHWI 


264 SF 25 


87 X»Y' 


31 21 


72 255 


113 X>Y? 


154 -C=1«TE- 


191 RTN 


228 FC 61 


265 SEEKPT 


88 GTO 98 


32 POSN 


73 XTOO 


114 CTO 69 


155 flVlEH 


1924L8L 29 


229 TONE 1 


266 FC?C 25 


89 BOfF 


33 -G- 


74 GTO 86 


115 RCL 88 


156 GETKEY 


193 6 


239 FC? 81 


267 RTN 


98 CLB 


34 22 


75«L8L -C- 


116 SEEKPT 


157 -8=M«- 


194 XOY 


231 GTO 85 


268 STO 66 


91 CLX 


35 POSN 


76«LBL 14 


117 POSFL 


158 OVIEK 


195 X<Y? 


232 RTN 


269 XEO 12 


92 END 


36 -H- 


77 254 


118 X<8? 


159 GETKEY 


1% GTO 21 


233HBL -C- 


276 SF 25 




37 23 


78 GTO 87 


119 GTO 66 


168 -E=TEL- 


197 - 


2344L8L 12 


271 RCL 66 




38 POSH 


?9»LBL •!- 


128 INT 


161 OVIEW 


198 CHS 


235 SF 81 


272 GTO 16 




39 •!■ 


88«L8L 11 


121 RCL 96 


162 GETKEY 


199 BSHF 


236 CLB 


2734LBL T 




49 24 


81 253 


122 X«Y? 


163 "F=DIVERS- 


288 GTO 26 


237 XEO 81 


274 CF 27 


15:81 21.81 


41 POSH 


82 GTO 87 


123 GTO 66 


164 I1V1EU 


281»LBL 21 


238 FCC 68 


275 -BO REVOIR 


8HL8L "flJRFL- 


42 "J- 


83»LBL -E- 


124 LOSTX 


165 GETKEY 


282 OTOX 


239 RVIEU 


276 BVIEU 


82 . 


43 25 


84»LBL 83 


125 STO 92 


166 -G=P.ENR- 


283 RON 


249 CLB 


277 CLB 


93 XOF 


44 POSH 


85 252 


126 RCL 61 


167 RVIEU 


284 JSE X 


241 XEO 14 


278 11 


84 SF 27 


45 -PRET- 


86 GTO 87 


127 SEEKPT 


168 GETKEY 


295 GTO 21 


242 FCC 68 


279 PBSN 


85 SIZE' 


46»LBL 85 


87»LBL -F- 


128 - 


169 -H=P.FL- 


286 FC 61 


243 BVIEU 


288 12 


86 3 


47 8 


88»LBL 84 


129 1 E3 


179 OVIEW 


287 GTO 85 


244 CLB 


281 PBSH 


87 X>Y? 


48 XOF 


89 251 


136 • 


171 GETKEY 


268 RTN 


245 XEO 11 


282 13 


88 PSIZE 


49 PROUPT 


98<L8L 87 


131»LBL 18 


172 "I=FIH- 


269»LBL 69 


246 FCC 98 


283 POSH 


89 "BIIRFL NH?" 


58 GTO 18 


91 RCL 88 


132 25 


173 BVIEH 


218 RCL 81 


247 BVIEU 


284 14 


19 RON 


5ULBL -a- 


92 SEEKPT 


133 X>Y? 


174 GETKEY 


211 SEEKPT 


248 CLB 


285 PBSH 


11 PROBPT 


52«L8L 89 


93 XOY 


134 GTO 19 


175 -J=OIBE- 


212'LBL 17 


249 XEO 93 


286 15 


12 BOFF 


53 -CURS'- 


94 CLO 


135 XOY 


176 GTO 95 


213 GETREC 


258 FCC 86 


287 PBSH 


13 . 


54 nm 


95 XTOO 


136 24 


177«LBL 98 


214 FS? 17 


251 BVIEU 


288 21 


14 SEEKPTO 


55 PROUPT 


96 POSFL 


137 - 


178 SF 88 


215 GTO 22 


252 CLB 


289 PBSH 


15 -B- 


56 OOFF 


97 X<9' 


138 GETREC 


179 FS? 81 


216 FC? 61 


253 XEO 94 


298 22 


16 11 


57 8 


98 GTO 88 


139 SF 94 


188 RTN 


21? GTO 85 


254 FCC 88 


291 POSN 


17 PBSN 


58 SEEKPT 


99 INT 


148 FS' 61 


181 CF 88 


218 RTH 


255 RVIEU 


292 23 


18 -8" 


59 POSFL 


188 RCL 88 


141 RVIEH 


182 CTO 15 


219»LBL 22 


256 CF 81 


293 PBSN 


19 12 


68 X<8' 


181 X»Y? 


142 FC? 61 


183«LBL 19 


228 FS' 91 


257 CF 25 


294 24 


28 POSH 


61 GTO 15 


192 GTO 88 


143 PROUPT 


184 GETREC 


221 RVIEU 


258 RTN 


295 PBSH 


21 -C- 


62 RCIPT 


183 LBSTX 


144 CF 64 


185 XOY 


222 FC? 61 


259»LBL -H- 


296 25 


22 13 


63 INT 


194 1 E-3 


145 CTO 18 


186 BLEHG 


223 PROMPT 


266 -1 


297 PRSN 


23 POSN 


64 STO 89 


185 ♦ 


I46»LBL -J- 


187 - 


224 GTO 1? 


26KL8L 16 


298 EHD 


24 -1- 


65 •'• 


186 STO 91 


1474LBL 16 


188 BROT 


2254LBL 15 


262 1 




25 14 


66 CTO 85 


187»LBL 86 


148 -H=CHO!X- 


189 CHS 


226 SF 88 


263 ♦ 


■ 
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st===r ^r*; 
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524 5 


547 PSE 


579 TOHE 8 


593 -29 


616 ■JECRWGE ElECTR- 


639 XVf' 


662 FS' 95 




:■' ST- 17 


548 CF 86 


571 XEO 63 


594 X>Y' 


617 -t-iOUE- 


646 GTO 31 


JO 51 


583>LBL *L' 


526 V IS 


549»LBL 55 


572 -RIE rOUCHE' 


595 GTO 31 


618 OVIEU 


641 CTO 52 


864 FS' 15 


584 SF ! 1 


ONE 9 


558 25 


573 OVIEU 


596 GTO -S- 


819 TOHE 1 


842<L9L 63 


665 CIO 54 


Wi CF 19 


»E 9 


551 ST- 17 


574 TOHE 8 


597«L6L 31 


829 2 


:-:o 99 


666 FS' 96 


596 - UH If 


529 TONE 9 


552 -CO0HF OUVEKTE- 


575 RCL 17 


598 "TU : 


621 ST- 17 


644 5 


667 GTO 5S 


587 3V1EW 


538 -DES 6VI0HS- 


553 RVIEU 


576 X<8' 


599 OVIEU 


622 XEO 99 


645 • 


668 FS' 89 


598 PSE 


531 3»IEU 


554 PSE 


577 CTO -P- 


688 PSE 


623 .6 


646 INI 




589 CF 1 1 


532 PSE 


555 RCL 17 


578 CTO -2- 




624 X<»Y? 


,4? ST4 11 


878 FS' 19 


516*LBL c >; 


53MBL 54 


556 X<8? 


579»LBL -S- 


692»L8L H 


625 GTO 52 


648 ST* 12 


671 CTO -Z- 


511 28 


534 18 


557 CTO -P- 


588 CF 19 


693 FS' 86 


626 -ELLE S EN 


■>*'■ Cf 89 


672 " • 


512 ST- 17 


535 ST- 1? 


558 CTO -0- 


■■ 


694 CTO ■»■ 


627 RVlffl 


659 198 


673 OVIEU 


513 -IL 0T1 


536 -TU FS TOUCHE- 


559«LBL •»• 


582 RVIEU 


695 FS' 1 1 


628 8EEP 


651 RCL II 


674 CF II 


514 RVIEU 


537 RVIEU 


568 -EPOVE PiECEE- 


583 XEO 63 


696 BII 


629 GTO -2- 


652 X>Y' 


• il 88 


515 XEO 98 


538 XEO 98 


561 RVIEU 


534 8F 8? 


687 FS' 15 


•: PL 52 


653 GTO •»■ 


676 «0 9? 




539 RCL 1? 


562 TOHE 1 


595 PSE 


683 CTO 54 


631 -ELLE r--r: 


854 186 


677 .8 


517 OVIEU 

518 TONE B 


548 X<8' 


563 TOHE 1 


586«LBL 57 


S? 95 


RVIEU 


555 RCL 12 


67S 


541 CTO •?' 


564 TOHE 1 


587 19 


616 CTO 51 


633 W) 63 


656 X>Y' 


679 JO 53 


519 &CL 17 


542 CTO -N- 


565 8 


588 ST- 13 


811 FS' 96 




•il •%• 


688 "0 COTE" 




543«L8L -0" 


566 ST- 17 


589 -I" '■ 


612 GTO 55 


635 19 




681 RVIEU 


-.1 -P- 


544 SF 86 


567 "BOON- 


598 RVIEU 


813 FS' 19 


636 ST- 13 


65««L9L E 




522 jTO -L- 


545 •Ml CORAlf 


568 RVIEU 




614 GTO •!• 


83? PCI n 


868 FS' 96 




. .1. -f 


546 RVIEU 


569 TONE 5 


■i.L 13 


615 CF 89 


638 -28 


861 CIO -V 


Suite page 12 



MENTAL 



Catcul A gogo avec votre HP 41: rien dans les mains, 
rien dans les poches...Tout dans la tele! Un pro- 
gramme particulierement bien fait. 

Andre CASTERMAN 



Maienet: HP41C * Un module me mo re ou quadn. ou HP41 CV - 
X-FUNCTIONS. ou HP41 CX. 

Nombre de regotres 65 Nombre de bgnes 233. SIZE: 013. 
Mode d emptor 

- Entrez le programme el faites un SIZE 013 

■ Execute* 'e programme XEQ MENTAL. 

- ALEA"*- Entrer une valeur comprise entre ei i . si vous ne dew- 
rez pas de musique. appuyez sur CHS. Ne jamais appuyer sur R S 

- LIMITED: Entrez un nombre qui servira de limrte au calcul (50 par 
oxemple). loujours sans appuyer sur R S 

- COUPS?: Entrez un nombre qui corresponds au nombre de cal- 
cuis a execufer pour chaque operation 

■ — + • PRS?' Appuyez sur l une des touches survantes: 

- : soustraction + : addition 



. muKjpficsTJor? 
(Mlton 

P Pimmm canta 

R RKklM MffMfl 

S synvwM rf?s s > opini Bra v^'o-^q*'** 
RHurauaa 

• | FMMtf ' ■-■■•"• ■•■■: — r- .:■-■■■ ■■>:■: IQB CM t--\- Ml Mpi * M. 
rmet chrfre. i ne reste plus que deux s econdes (rearueftons PSEi 
2) La kgne 58 a ete creee g/ace a la prograrnmalion syr*nMqu* 
com cr? es; >-,: imtnt itfflfnQiMt par qmar* i Ms paa 

"FAUX.C* 
39 

XTOA 

•l-ESr (append) 



17:45 15.94 
8HLPI. -KENHl- 


25 CIX 

26 STO 88 


58 X=V> 
51 XEO 26 


75 188 

76 • 


188 RCL 86 
181 ♦ 


125 RCL 85 

126 RCL 86 


158 RCL 81 
151 2 


175 STO 18 

176 XEO 86 


,£j£*3;; 


Vd— z7 


82»L6l 88 


27 RCL 82 


52 FCC 82 


77 RCL 82 


182 STO 84 


127 • 


152 / 


177 18 






83 FIX 8 


28 1 E3 


53 XEO 28 


78 / 


183 ■»• 


128 STO 84 


153 STO 18 


178 • 






84 SF 26 


29 / 


54 RCL 89 


79 INT 


184 OSTO 87 


129 -X- 


154 XEO 89 


179 41 






85 CF 29 


38 1 


55 RCL 84 


88 ORCL X 


185 RTN 


138 OSTO 87 


155 RCL 86 


188 t 






86 -8LE0 '■ 


31 1 


56 X=V 


81 ■!•*■ 


186«L8l 51 


131 RTN 


156 Xt2 


181 STO 12 






87 XEP 85 


32 STO 83 


57 SF 81 


82 OVIEU 


187 SF 87 


132«LBL 81 


157 STO 84 


182 SF 25 






88 X<8' 


33 •-♦•/PBS ?■ 


58 -FOUX.C'EST ■ 


83 TOHE 9 


188 RCL 81 


133 SF 87 


158 -CORRE it ■ 


183 XEO IMP 12 


288 «!CL 86 


217»LBL 89 


89 CF 26 


34 OVIEU 


59 ORCL 84 


84 PSE 


189 STO 18 


134 RCL 81 


159 RTN 


184 FS' 87 


281 "F =■ 


218 XEO 86 


18 X=9' 


35 GETKEY 


68 FS' 81 


85 CTO 88 


118 XEO 18 


135 2 


168«LBL 52 


185 RTN 


282 TONE 7 


219 STO 86 


11 GTO 88 


36 STO 88 


61 -CORRECT- 


86»L8L 85 


HI RCL 85 


136 / 


161 SF 87 


186 91 


283 XEO 85 


228 RTN 


12 06S 


37«LBl 8? 


62 HVIEH 


87 CF 22 


112 RCL 86 


137 STO 18 


162 RCL 81 


187 RCL 12 


284 STO 89 


22I4LBL 86 


13 STO 11 


38 CIO 


63 PSE 


88 OVIEU 


113 - 


138 XEO 18 


163 2 


188 X=i"> 


285 RTN 


222 RCL 1 1 


14 •IIKITE ?" 


39 8 


64 1 


89»L8L 16 


114 STO 84 


139 RCL 86 


164 / 


189 XEO 43 


286»L6L 26 




15 XEQ 85 


48 STO 87 


65 FS' 81 


98 PSE 


115 --- 


148 STO 84 


165 STO 18 


198 181 


287 SF 82 


224 • 


16 X-9' 


41 XOF 


66 ST* 88 


91 FCC 22 


116 OSTO 87 


141 RCL 85 


166 XEO 89 


191 x=r> 


288 ORCL 86 


225 .211327 


17 CTO 88 


42 SF 25 


67 ISC 83 


92 CTO 16 


117 RTN 


142 STO 86 


167 RCL 86 


192 XEO 52 


289 "F '• 


226 < 


18 STO 81 


43 CLO 


68 CTO 87 


93 RTN 


118HBL 71 


143 • 


168 STO 84 


193 RTN 


218 TONF 1 


227 FRC 


19 'COUPS '■ 


44 XEO IKS 88 


69 CLP 


94»L8L 61 


119 SF 87 


144 STO 85 


169 X12 


194»LBL 28 


211 XEO 85 


228 STO 11 


28 XEO 85 


45 CF 25 


78 ORCL 88 


95 SF 87 


128 RCL 81 


145 -• 


178 STO »6 


195 CLO 


212 STO 89 


229 SW1 


21 X=8' 


46 FCC 87 


71 "F SUR • 


% RCL 81 


121 2 


146 OSTO 87 


171 "ROCINE M • 


196 ORCL 85 


213 RTN 


238 RCL 18 


22 GTO 88 


47 CTO 88 


72 ORCL 82 


97 STO 18 


122 1 


147 RTN 


172 RTN 


197 -F • 


2I4»L8L 18 


231 • 


23 STO 82 


48 8 


73-1- ■■ 


98 XEO 18 


123 STO 18 


I48«LBI 43 


173«L8L 53 


198 ORCL 87 


215 XEO 86 


232 INT 


24»LBt 88 


49 RCL 87 


74 RCL 88 


99 RCL 85 


124 XEO 18 


149 SF 87 


174 7 

UP 


199 -V ■ 

\A/I PI 


216 STO 85 

IT Ml 


233 .EM, 



SOUS-MARIN 




6934181 58 
684 Ml EWIOSE 
645 OVIEU 

686 BEEP 

687 35 

688 ST» 17 
690 GTO ■:■ 
699»L8L W 

IKE 9 

692 TONE 9 

693 TOHE 9 

694 TONE 9 

695 TONE 9 

696 TONE 9 

697 TONE 1 
198 TOHE 9 
699 TOM 1 

■•-: 9 

791 EH! 



11.-31 24.83 


9HL8L •*• 


82 -11 


83 RCL 13 


84 X(Y? 


95 CTO 87 


06 PCI. 81 


07 t--V> 


88 GTO 81 


89 RCL 1 1 


18 - 


11 tn 


12 RCL 8? 


13 RCL 12 


14 - 


15 X12 


16 • 



/ 





c-~^7?2X~~ 


• ^y. 


f "NZ-'C <- 




r-=£~*- 






17 SORT 


39 CTO 96 


61 X=9' 


83 RCL 12 


18 STO 14 


48 CTO 85 


62 GTO 84 


34 - 


19 7 


4I»L8I 8? 


63 RCL II 


85 Xt2 


28 X<Y? 


42 RCL «5 


64 - 


86 » 


21 CTO 86 


43 t--V 


65 Xt2 


87 SORT 


22 GTO 85 


44 CTO 83 


66 RCL 88 


88 STO 14 


23«LBL 8| 


45 RCL 11 


67 RCL 12 


89 7 


24 RCL 83 


46 - 


68 - 


98 X<V 


25 X=8' 


47 W 


69 Xt2 


91 GTO 86 


26 GTO 92 


48 RCL 86 


78 • 


92'LBL 95 


27 RCL 1 1 


49 RCL 12 


71 SORT 


93 -TIR POSSIBLE 


28 - 


58 - 


72 STO 14 


94 OVIEU 


29 X12 


51 Xt2 


73 7 


95 TONE 9 


38 RCL 84 


52 1 


74 X<V> 


96 TONE 9 


31 RCL 12 


n sMi 


75 GTO 86 


97 RTN 


32 - 


54 STO 14 


76 CTO 85 


98»L8L 86 


33 Xt2 


55 7 


77»LBl 84 


99 -RIEN EN HUE" 


34 t 


56 X<V> 


78 RCL 99 


199 ftVIFU 


35 SORT 


57 CTO 86 


79 RCL 1 1 


181 TONE 3 


36 STO 14 


58 CTO 85 


88 - 


192 TONE 3 


37 7 


59«LBl 83 


81 Xt2 


193 RTN 


38 X<Y' 


68 RCL 87 


92 RCL 19 


I94»LBL 87 



185 "PERISCOPE TROP " 


is? e 


186 -FCOLIRT- 


128 STO IHI 18 


187 OVIEU 


129 2 


188 GIO -2- 


139 STt 18 


I89«LBL -P- 


131 RCl IS 


118 -SN TROP OTTEIHT- 


132 11 


111 OVIEU 


133 X«Y? 


112 PSE 


134 GIO ■:■ 


113 -'I) i'iIIJLES- 


135 -F0NT0ST10UE- 


114 OVIEU 


136 OVIEU 


115 TONE 7 


13? BEEP 


116 OFF 


138 -TO POSSES" 


117<L8L •!•• 


139 OVIEU 


118 "COTE TOUCH.cE- 


148 PSE 


119 OVIEU 


141 " tONiROl'- 


129 TONE 5 


H2 OVIEU 


121 -VOIE D ESU- 


143 END 


122 OVIEU 




123 39 




124 ST- 17 




125 GTO -2- 




126>LBL -V 





HEWLETT HP 41 



HEBDOGICIEL 27, rue du Gal-FOY 75008 PARIS 

VOUS POUVEZ VOUS ABONNER AU TARIF PREFERENTIEL DE 340 FRANCS POUR 52 NUMEROS AU LIEU DE 
52 x 8,00 - 416 FRANCS. ABONNEMENT POUR 6 MOIS : 180 FRANCS. 



NOM: 
PRENOM : 
ADRESSE : 
REGLEMENT JOINT: 



I CHEQUE 



ICCP 



MATERIEL UTILISE : 
CONSOLE : 
PERIPHERIQUES : 



ia 



HARBOR 2090 



SPECTRUM 



Vous. terrien de I'ann6e 2090, avez la possibility de 
revenir en aniere dans le temps jusqu'au jour fatidique 
de I'attaque de PEARL HARBOR. Serez-vous capable, 
aux commandes de voire soucoupe equipee de 
moyens de defense perfection nes, de contrer I'attaque 
japonaise 9 

Chaque fois que vous aurez r6ussi a d6jouer les tenta- 
tives successives des chasseurs et des bombardiers, 
la flotte que vous d6tendez pourra avancer un peu plus 
vers I'abri sur qui est son objectif, puis de nouvelies 
vagues d'assaut se produiront. A vos claviers et bonne 
chance! 

Henri P1LLET 

Un premier programme d'initafisalion. "harcode" sen uniquement a 
charger (Jans I'ordmateur limage pnncipale lormanl le decor, les 
routines en code machine utiiisees par le jeu, el I'ensemble des 21 
caraderes situes dans la zone UDG (adresses 65368 a 65535). 



Limage est creee par des instructions Basic, lentes a I'execution. et 
stockee dans la zone reserve, a partir de I'adresse 57600. par une 
routine d'echange de fichier. Par la suile cette m£me roiiline. appe- 
lee dans le programme principal, permettra l'affichage instantane de 
I'image par transterl des octets dans la zone de gestion de I'ecran 
(adresses t6384 a 23295). 

Cette division en deux programmes evitera, ulterieurement, un 
temps trop long de chargement a partir de la cassette, le pro- 
gramme d exploitation etant reduit a son minimum. 
Apres avoir entre le programme "Harcode*, le lancer par RUN. Le 
programme demandera lui meme la sauvegarde des codes: 

- image et routines entre les adresses 56566 et 64511 par SAVE 
"har" CODE 56568. 7944. 

- Caracteres UDG par SAVE "car" CODE USR "a". 21 x 8. 
Vous n'avez plus besoin alors, du programme "harcode". 
Programme d'expfoitation "harbor 2090". 

Apres avoir precede aux sauvegardes. entrer ie programme princi- 
pal. Les REM peuvent. bien entendu, etre supprimes. et e'est la 
raison d'etre du sous-programme situe a la ligne 8600 qui reinitia- 
lise, en fonction de la longueur reelle du programme, les adresses 
des variables utiiisees par les routines machines. 



ecpiTuRe en vioco nopmrle des 

LIGNE CARflCTEAES 

ae,..'C6 programs sept unIcueh 

ENT flU CmRRGEmEnT Or. COOES MRCHI 
Ht POUR LE jeu K*rt>t>r 2849 
3*5. . . TOO ' , It 

ieee. . . CHflHOcneNT EFFecTue' 

3...-CM«Oac« LES PRINCIPRlES 
routines machine bar l.c premier 
CRCiCSMr-J HftRCODE . AvAnT d-ccr 

:se cblwi-ci et oe i_ E uAncer' 

*... »CuR CCnnCNCefl. RUN.Rm* 



5 REM PROGRAMME 
REM tutiur ntn 
13 REM : 



■t:tiiii 
fonclionner uoi fois ivini 4' 
t'.'.rr i« progrttat prmci»«l 
39 Ren it '.unt 1339 ptr*«t «t 
t»uv«g*rd«r *ui» i 13 t l«i C0d«i 
»«thin« tans *u ' i i toil jIili 
4t conttrvtr iraci du pritint 
= : 3 " >■>■>«• n . vlut »i*ux ctptn- 
4*n\ ,c tiuvtfltrdtr pour it 
corri^tr n nictunri tprts un 
ttiii 3* fonctionnti«ni du jtu 

39 DRTR 33,9,6*, 17, a, 335,136, 1 
9,19,38, 12*, 33*, 9 1.33, 4*7, 391, 33 
.3.333. 17,9,4*. 126. 18 , 19 , 35 , 13* , 
23*. 353, 33, 3*7, 39 1,33, 15, 91, 126, 
33, 3*. 9. 9 1.11 1,59, 298, 3B, 8, *1 ,41 
, 4 1,337, 78, 5*, 93, 4, 63, 6, 38,*, 91, 
59, il. 9l, 39, 3, 91, 36, 19, 91, 39, 6, 9 
1.63 

35 DATA 9,39,5,91, 138, 38, 3*, 2, 
91,7,39,6,91,58,3,91,61,32,59,36 
.*. 91, 61, 33, 3*. 38, 1*, 91, 7 1,36, 13 
,»i, 7*. 36, 19,91. 129,3,32,252,39, 
19, 91, *3, 9, 91, 193, 27. 33 1.39,*. 91 
.58, 13,91,71,36,9,91, 133,59,9,91 
,*a, 3, 91, 195, 36. 231, 59, 3, 91, 86,1 

a, 91 

*9 DRTR 71,86,9,91,89,7.91,86, 
13,91,79, 197,393, 198,221, 193,88, 
7 ,91,69,59,7,91 ,13,32,2*1,86,6, j 
1,59,39,5.91,3.32,221,36,6,91,19 
3,75.231, 126, 6*. 3i. 16, 6.*. 3 ,1,56 
.1*3,92,339,293,71,35, 1*1,92, 163 
,71,36,6,91,339,3*8, ill, 66, 7, 91, 

*5 DRTR 398,31.31,31,339,31,19 

3,293,38,393,39.293,26,293,39,29 
3,36,293.29,63,96, 169, 193,58, 1*2 
,92,168,176,119,35,7,91,71,839,7 
,2*6,5*. 193, 129,31,31,31,239,2*, 
i69,i«3, 129,23.23,233.32*. 111. 56 
,9,91.71.31,31,31.239.31. 161, ill 

.ass 

89 DRTR 33,169,321,139,339,7,7 

■3. 5. 9, 9, 79. 36, 33, 5, 9 1,233, 79. 49, 
3 1761 19. 2*1, 47, 179,47, 16,391,9, 
9,3,3,3.9,9,9,9,9,9,9,9,9.23,229 
"iSiSie li, 331.69, 46, 43,1, 9, 9, S3 
,3,39,9,9,56,5,93,254,34 49 ,34, a 
S*,BB.49,*1.4s*,»B,*9,a,4*,3,83, 

56 DRTR 89,9,9,62,9, 16*, *9. a, 3 
*,199,3*,93,6,9,68,9,9,ai*,l*,*B 
,7.19ft, 16.6.1,84.9,9,346, 1*7 433 
,3*, 318, 6, 9, 56, 9. 9, 3 14,1,49,5,6, 
1.69,9,9.295,1*7 ai2, a* 196,33,9 
, 35, *3, 13*. 191,32,281,391,9,8,9, 
9, 9, 3, 9, 9, 9, 9, 9, 36 

99 6fl+R S;9 39,9,9,56,8,9,71,5 
8,9,9,59,9,9,l5*,*4.i,3*,il,86.B 
.9, 35*. 7, *6, 3, a*. 33, 9, 9, 9, 35, 9, 9 
25*. 9 *9. 33.82.9.59, 5.9a, a*, 69, 
< 7, 149, 1,437, 83. 9, 8, 391,17,64,11 
,a37,8d,«.9,a91.58,9,9,a5*,*,*6 

68 DR+R li A *8,9 9,71,36,9,4.16 

*,*e,i9,33,a3a,3,5e,9.9,as*,i,*9 

,4.17.2**, 1,23,337,49^.9.2*1, 17 
,136, la, 337,53,6,9, 531.17.93,4,2 
37. 83, 3, 8. 38, 9, 3, 33*. 3. *9, 36. 86. 
9,4,71,58,9,9. ie*. *9, a.**, 18, 56. 

79 DRTR 9, 71, 56, 9. 9, 164, *9, 168 

,17, 16*. 11,437,93,9.9,391,17,333 
, 3. 4*, 3*6, 69, 9, 9, 71, 56 9,4 ,16*,* 
4, 13,58,9,9,71,86,9,9, 18* -*«- 73, 
3*. l4, 54. 19,59,9, 4, 86, 9, 9, 196,1, 
39, 9, 9, 71, 84, 4, 18*, *• , ** , 68, 9, 9, 

88 76 4 DRTfi *9, 19, 88,9,9, 71. 86, t. 9 

,18*, 46 ,19, 33, 232, 4, 56, 8,9,384,1 
»S,4, 17,244, 1,38,347.49 9,9,2*1 
17,l46,ia,a47.83 9.9.331,17 184 

ill, 237, 63,9,8,391,17,39,13, 437, 

93'f6ITJ. 36366 TO 872B6 
99 PEP.D * : POKE i . * 
95 NCXT 1 
199 REM drtp«8u . - « « » m 
198 DRTR 1*.33. 17. 1,2,33-35(2, 6 
9,313,197 67 63,23,313,133 3i6,l 
24,318,131,319,52,16.315,64,1,31 
8, 63, 17, 3 IS, 63, a, 4 15, 63, 19,318,6 
I 1 , 4l8 , 39 , 16 , 4a6 , 36 , 193 , 399 , 16 , 

ll6 2 ?Ofl .-57369 TO 87397: RCAO 
i POKE i ,» : NCXT i 
139 Ren InitiauiaUon • £?.':«„ 
139 LET *Cor t -9: LET t*. 99999 

LET tOP-9: LET »6*tt 
293 REM i»*9« 
219 00 SUB 688 
229 PAPER 9 BORDER B' INK 2: C 

L 339 PRINT fli PRPCR •; XNK1*. B 
MRR6QR 4969- T , INK 1," /AWl - 

3*9 POR i"l TO 3 PLOT 3 :i'|:* 

DRRU a*9-2*i,9; DRRU «.J65-2«l 

drru a«i-a*e,e drru 9,a»i-i66 

sS^fOR i-9 TO 7; PLOT INK 3,9, 
"rRU INK 3,388,8: NEXT i 



359 

. Di 





i , "sc ore. "jpT 29,13; "I '■; Ink 

mmk" , ink 6;" i 

378 r"0R 1*1 TO 4: PLOT INI 
,*8-i: DRRU INK 3,318,9: NeXT i 

363 TOR iilTQ 7 STEP a- PRINT 
BRIGHT 1; INK 1, RT i , 1, "H" ; RT 



,RT 39, 



- 2 



BRIGHT 1: INK 1 
.1,1, "jV': NEXT 
393 PRINT BRIO 

.inc. . 



I0HT 1; INK 



-,BT 19 



398 00 SUB 799: PRINT PRPER L._ 
INK 5,RT i*,l;" I";RT 18,1;" ■ 
,**.'■: PBINT OVER 1, INK 3;RT 15 

'319~FoT! i-16 TO 16: PRINT INK 2 

;RT i,3;"i": NEXT i 
339 fOR ".43 TO 36 3T6P -1 
335 TOR i-1 TO INT (j»j/199>: P 
LOT INK 3;RND»396*33, j: ORRU INK 
3:9, 9: NEXT i 
339 NEXT j 

335 PRINT INK *;RT 18,36, "Ji": 
PRINT OUER 1, INK a;RT IB.SBT"/ 



3*8 PRINT 



1; 



BRIOHT l;RT 39 
INK 7JRT aa, 

BRIOHT 1;RT 39 

ion 



'38B PRINT PRPER 9; INK 5; 6RI0I 

T li,fLR8H 1,RT 15-li,; M, T"'«T i i7 | 

li"^";RT 19,l;" V "iRT 18,li"*" 

368 PRINT INUCR3E 1 * 

> ■ ■■MH-tOT 5, li"S9" 

BRIOHT 1, 



368 RANDOnlZe U8R 
398 CLS i 00 TO 19 
689 REH oricttrti 

319 DRTR 3,9,9,9,1 



INK 7;RT : 
l;RT IB 



, B, 137 ,396, 13* ,7, 

,1,11B, 131,335, 126,2*3,148, 18,6 
«,1 la, 363, 253, 96, 53, 18,4*6, 188.6 
,453,433, A. 435, 383, 7, 3 1,137,331, 
437,69,2*9, 192 
528 DRTfl 4,19,26,31,113,358,127 
,31, 136, 161,177 ,a*i, 17, 3* 1,355, a 
53,1,233,1,455.31,288,536,485,4. 

i94,3,ia4,568,5B5.a8*,3*e - mM „ 

33* DRTR 56, la*, 133,59, 48 18.66 
, 16, 3, 1*,34, 48. 63, 134,385,38, 193 

ll4,5*,i3,43a,63.3S6,l56 

3*9 DR+R 43, l4l,4,ia,*6,33,6*,l 
39, 19, 2, 3, 3*, 1*1, 9, 2, 9, 138, 84, 49 
, 16,6, l4, 131,38 

388 ORTR 16,9,8,8,143,16,78,16, 
65,3, 133, 13,46,34,193, 196,16,64, 
9, 177,68,8,64,89 _ _ _ 

569 ORTR 196,193,46,16,8,12,2,8 
3,8,218,8,137,3,16,8,6.444,386,1 

it,i33,4a4,a*6,43B,a47 

579 rdR '-65366 Tfi 65838 

589 ReRO t: POKe r,a 

599 NEXT r 

599 RETURN 

799 REH dttftin biUMnl 

718 LET 1-18*33 

728 FOR h-1 TO 6 

739 LET I.?- LET i.l*<3 RND h>* 

) ♦(! RNO th< >3 RND h<6) ) 

7*9 FOR 1 -1 TO 8 

788 FOR j-1 TO 1 

769 RBRD 4: POKC l,« 

779 LBT X-t»l. NCXT J 

769 LET t.t-n+266: NCXT t 

799 LCT 1-1*33: NEXT h 

699 ORTR 148,9.3,136,1,136,17,1 
93,1,193,66,544 17 134 1 154 5 ,9 
3, 145, 163,1,97,65, 138 , 1,38, 17,30 

aSS'DRTR 148,1,98,1,4,17,1,68 
819 DRTfl 33,33,121,46 33,244,11 
3, 2a*, 33, 96, 131,33, 33, 4,33,9 

618 6RTfl 354,23* ,8,3,35*. 486, 3, 
9, 33*. 35*. a, 16, 3*, 1*8, a, i|, 3*. 1* 
9, a, 16, 3 *, 148,4, 16,364,483,7,86, 

834 a DRfR 146*39*, 7.56, 1*6,383. 3 
l7a6*,146,39*,81,434,l*6,a63,34, 

839 DPTR 1,6,9,8,1,6,9,8,1,1.3. 



'e^'NEXT 
678 RETURN 



33? : 



""CODE 

oe tpftt . 

i»» pr incipti Htrbo 

- -rtctution 4< 



tt prtnti 



VOXf 



'.r «v, , 



*v*n\ 



■ux i iitition" 
1918 PRINT AT 56,8; FLR9H 

uttz 'j pour uuv».)*f d«.- 
pregrtBtt ,ou " unon 

9: LCT tt-tNKEVt 

1913 IF i t-"n" OR it* 

TO 1333 
1916 IF tt- ,, V" OR 
6 : SAVE ^htreo^Jt 

!Sa§ cV° pSJSt ink 

;in;i t^v* n ?.r i '^ <,,r 5656f : s 

811 o h*r 'COOE 88366 • 66 

^^"sRUe' h*? D C0De S6566 70**: 
"- U3R "«"' ,31»8 



: PAUSE 

THEN 00 

THEN CL 
00 TO 1838 

inttnt 



23 00 TO 8698 
33 REH *cort 

35 LET iCOf t»tCO("«* (P^*»«»lyPt 
*5]t3: LET it-STRl iCOrt 

36 IP LeN »«<5 THEN LET tt-"9" 
.*•:: 00 TO 36 

49 PRINT INK 3, BRIOHT 1 , RT 38 
,7;n 
133 REH t«St PhitSl du jtu 
119 GO TO Uu.Pt*689+S93) 
*99 REH a«PL*Ct»«rn SoucOuPt 
435 PRINT INK 3; BRIOHT 9;RT «j 
,xj;" ";RT ud.xd;"A"- LET r-ui 
R 56999: 00 TO dd 
599 REM tir SOvCOUPt 
695 INK 3: BRIOHT 1: PLOT (3*xj 
) §8, {31-yji *9*1 DRflu 191.8 BEE 
P .895,6- PLOT OUER l,t3.Xj>»9,l 
31-«j]«6tl: ORRU OUER l;l9l,9: P 
OKE 33569,9: 00 TO 99 
1983 REH d«pL*et»«ftt CKtttturs 
1918 IF XC<»* TMEN 00 TO *9B0 
1833 LET XC-XC-1: PRINT INK 7, B 
RIGHT B,RT vl,xc,"<4« " 
1935 IF XC<»6 RNO Vl-^J THEN 00 
TO 3930 

19*9 LET f«U3R 56999: GO TO dd 
1508 REH d«pl»C«««ni bO»b*rditr 
1319 IF xc<-< THEN 00 TO *9B9 
1523 LET xC-xc-3: PRINT BRIOHT 1 

' I -Is a i' aT H*** + *■■*"*■' " ;fiT yl< 
1533TF SCRCCN8 (y3,x bt3) ( >"©" R 

ND XC-Xb THEN LBT y4-yl*l: PRINT 
BRIOHT 1; INK I, AT y2,xb*3;'*© : 
00 TO 1338 
1S3B IF y3-yl RNO xc<xbO RND «C 
-, THEN LET ya-16- 00 TO 3338 
*"■ TH 



„ iya.. - 
EN LET y3"«a»l: PRINT RT y2-l,Xb 
♦2;" ": INK \. BRIOHT liRT va.xb 
♦ a;""C": 1^ 9?>-14 THEN 00 SUB 33 
88 IF COVP-8 THEN 00 SUB 3378: 
00 TO 6999 

1353 IF -Jl-yj RND XC<7 THEN 00 T 
3939 

1369 IF yl<>V.j THEN LET I -USR 36 
999: 00 TO dd t >T 

1379 LET p»u*t-P»Ut«-INT <»;'3.5) 
IF PtUt<>9 THEN LET r»USR 5699 
9 CO TO dd 

1389 PLOT INK I, BRIGHT l-X^*8-3 
, (al-«l)*8t* DRRU INK t, BRIGHT 

i7(xj-*ci> ta.e beep .93, -as 
pl6t ouer i,xc»8-a, iai-yii »e»*. 

ORRU OUER 1, '-" J-XC*U •8,8' IF «, 
myl THBN LBT P»U»«-18 00 TO 398 



2993 REM IXPlOSIOn »0UCOUP« 
3993 PRINT AT V j,X J-1,'' _ : lr . 
XC<-7 RNO wj-wl THEN PRINT RT Vj 
Kits," "I LET xC-38-luP«: LET 

yi-INT [RN0»19t3). LET vtflUt-v* 
aut.l. LET t-a LET ptu»*-19,. rt 
4919 IF Xj>-ll THEN FOR f -1 TO * 



"PRINT OUCR I, INK 6,RT v J - 1 , * .* 

•K^'BgEP^^sTV^Sex^; 1 '^' 



p .aa.r-e? becp .es, f-*- next < 

29*8 REH Mit no«brt tOUCOUPt* 
3958 LET (OU-tOU-1 IF tOU-8 THE 
N 00 TO 8889 .... 

2963 FOR fl TO 5- PRINT INK f: 
BRIOHT l.AT 14,5, "A" BEEP .9&7 
,1: BEEP .93,6 BECP .881,64: NE 

3973 PRINT OUCR 1. BRIGHT 1, PRP 
CR 8, INK 5, AT 19-»0U,l,"«t 
3983 LET VJ»14: LET XJ-B. LET M d 
-uj LET *d-x, POKE 53563,3 
3993 LET f -USR 56988 00 TO dd 
3839 REH ixpU»(on tdvtrtttrtt 
3393 INK 9 BRIGHT 8 ., .. 
3318 PRINT RT yl.xc, " , < «N 

30I9 PRINT "lNK°5? OUER 1, BRIOHT 

WV!M«f m wmKVM 

PRINT RT ga,xb*3," LET ^3-15 
3369 LET X<-39-tVP« LET yl-INT 
(RND.a.41 LET y»9Ut-v»9ut*l 
3389 LET t-2 00 TO 39 
3199 REM dtHfuttion bo»b« 
3195 INK 9: BRIOHT 9 



Par contre. >! est indispensable de conserve' sans mooWcattons 
les numeros de lignes survantes: 405, 605. 1000. 1500. 2900, 
3000. 3100. 3200. En erfet. ces numefos ont ete charoes en code 
machine pour forcer des sauts par GOTO dd et GOTO gg. De 
plus, le Baste utilise des GOTO calcules qui reovownt se+on le cas 
aux lignes 1000 et 1500. 

Apres avoir entre le programme, le sauvegartter par precaution: * 
suffirait d'une petite erreur dans la transcnp&on du pfogramme 
"harcode" pour que les routines en iangage macnioe fonctjonnerrt 
mal. Vous hsquez done de "planter* ic* dmateur au premier RUN. 
L'ordinateur commence par stocker les vanabtes du 8as«c dans un 
ordre bien defini (initialisation lignes 8500 et survantes) puis stocke 
les adresses de ces articles en argument de certains codes ma- 
chine qui les appeiieront par la suite. Puts, le pfogramme de- 
mande les sauvegardes successrves: 

- SAVE -harbor 2090" LINE 9040. 
• SAVE "har" CODE 56568. 7944. 

- SAVE "car" CODE USR "a", 21 x 8. 
avant que le jeu soit lance. 

Ainsi. par la suite et si vous chargez ce programme, ii demarrera 
automatiquement et chargera lui-meme ces octets "har" et *car* 



3268 IF (t>>-a* TMEN Gi TO 8899 
3298 LE" '.uS=> 35585 li TO dd 

3398 R£f nj-Ji rt Uj;M 
3319 PRINT RT -3-"b»a. 

3338 FOR i-l Tw 6 PRIN" BRIGHT 
1, INK 3.RT lS.'b. 4ULt SE-= . 

895,-23 5EE=- . 953 . -5^-»:.'i~ 3* I 
GMT 1, INK 1,RT 15 * 6 . «!&, 
3333 NEXT , LET r.O0»*COUP»(l (W 
C0uP'7i-(7 RND C5-P-71 IF i >8 

THEN LET ;aup-i LET ».»-! 6 
3J68 FOR i»l TO 6 sd:-.- :vE= 1 
RT 33,1*. INK I COup). f1| 6EE 
P .31. -39 nEX t . lEt ^a-18. RB 
TURN 
3379 CEH txPlOHO" "»Vt'l 

3399 FOR i -1 TO 6 POINT OUER 1, 
INK li-D.RT 13,*t>. \f,y ,RT 1* 

,»b-l/\,,-.-/ SeEP .93.3 BECP 
.889.18 NEXT i PRIN* AT 15, xb 

,RT l*.xb-l, 
3399 RETURN 
4003 »EH nr O.C.R 
*995 FOR i -1 TO 3 

*819 INK * BRIGHT 1 PLOT 35,69 
: ORRU 3,87 PLOT OUER 1.35,88 
ORRU OUER l;8.9? SCER .93.9*> 
*915 PRINT RT yl 1 XC,"a«f" 
*92B PLOT 33,0* DRRU 9,67 PLOT 

OUER 1.39,89: ORRU OVER 1.9.B7 

BEEP .83.*»i NEXT i 
4933 PRINT RT gl.sc.-V" BEEP . 
991,6 8EEP .995.-19 PRINT RT v 

*439'lET »-»-l PRINT INVERSE 1. 
INK 7. BRIOHT l.RT 3,1, l" •' RNO 
■ (18).ii IF »*9 THEN GO TO 3303 
4935 IF v*gyt>»» THEN GO TO 3339 
4943 LET vJgtn»vlOLH<l LET xc-a 
9 LET •jl«INT iRN&*13«ai PRINT 
INK 7, BRIOHT 9,RT Ki,xe,**«**" 
4945 00 TO 1333 
4953 FOR i -1 TO 3 
4355 INK * BRIGHT 1: PLOT 33,68 

DRAU 8.67 PLOT OUER 1,35,89 
DRRU OUER 1,9,67: BEEP .93,9»i 

4969 PRINT AT *1.*C,"«0" 

4970 PLOT 33,63 DRRU 9,67 PLOT 
OUER 1,39,83 DRRU OUeR 1,9,67 
BBEP ,«,*♦. : NEXT t 

4873 PRINT RT si 1 , x < , "\tii£" • BEEP 
,991.-3: BEBP .b45.3: PRINT AT v 

4469'LET ■•1-1: PRINT INUBRSE 1, 

INK 7, BRIGHT 1 , RT 3.1,1" " RNO 

K19) ■* IF »-9 THEN GO TO 6990 

4999 IF v»qu«>" tmCN GO TO 3239 

4199 LET vtguovatui »1 LET pau» 

<»13; LET XC-3B LCT Vl-INT IRNO 

•ie*ai let t-a 

4119 00 TO 1538 

7990 REH dtnumni bordi 

7383 00 SUB 7889 

7818 FOR / -8 TO 335 

7939 OUT 334 , I OUT 334,5 OUT 3 

S4.8: NEXT r OUT 234,8 

7933 POKE 33389,9 

7930 RETURN 

7998 FOR i-l TO D 

7918 PRINT INK 8i FLASH 8, BRIOH 

T 0,AT i,7," 

Next 

,„ ,'RINT II. . . 
7,"-", OUER 1,RT 15.7," " 

7843 PRINT INK 4,AT lS,5B,"Ji : 
PRINT OUER 1, INK 3 i AT 18 , SST'' / 

7658 PRINT BRIGHT 1, INK 1 . RT IB 

7669 RETURN 

8309 REM d«but nOUVttU P»riit,l 

8318 IF !Cor«>lQP TMEN GO SUB 91 
99' 00 TO 6085 _ , __- 

8915 RESTORE 9935: LET r.-J FOR 

i.i to aa LCT r»r*i if r-o t 

EN LET r-9 _LeT 



y5™.. MI ii,i .J135 INK 9 BRIGHT vi 



ya,«b»i, '*■' NEXT i PRINT HT VIZ 
,*b*l," " LET va-15 GO TO .5 
39tlgp«*399) 
3138 FOR 




XcT" " LBT xt-36 LET *l.INf i 

RNDll«t|l 

3378 LET V4JU*-* LET lvPi-tVP«* 

1 IF tVPt'4 THEN LET W £ « .1 LC 

T Phat.t-l*Pr<4t* PRINT RT v 1 , «. : . 

'■ * LET »e-39 LET jl-INT .RN 

D«19*3i LET ua-13 00 SUB 7889 



S033 RRNDOMIZE USR 3593 READ I. 

SBeEP F .9 : NEXT i 
8aa go suft 6a89 .„.«„ 

B925 PRPER 9: PRINT .NK 6, BRIGH 
T 1,RT 8,8. 'UNE AUTRE PARTIES", A 
T 9,6, FLASH 1,"*. oui V tinon n 

B933 LET ifBlNKCVf IF ••■""" OR 
,»."N" TM«N BORDER 6 INK 3 PA 
PER 7 CLS LET Z*-' A TRES BIEN 
TOT'' LET PP-59 lIt LL-3 t LET H 
M.3 00 SUB 6498 PRINT RT 16 . ll 
1-LEN 9»i . "Co«»»nd»nt '•.«« 00 T 

8835 IF INKEV|""sr OR InkEV««"Y" 
THBN CLS GO SUB 9198 GO TO 3 
9 
8949 00 TO 6935 

Sit! ^V^tiVS^So SUB 02*t 
aioa IF 10P-9 AND Xb<a4 THBN 00 
SUB B3a9 GO TO 6139 
9133 IF <b-34 THEN PRPER 3 CLS 
LET LL.3 LET PP.7B LET HM-4 

PRPER 9: INK 6 FLASH 1 LET Z» 
• UICTOJRE" : 00 SUB 8498 00 SUB 

9996 CO 3US 9338 GO TO 8138 
9183 GO 3U9 8338 LET PP. 13 LCT 

HH-3 LET LL.l INK 6 PRPER 9 

LET Zt« -FELICITATIONS " . 00 SUB 
9483 LET PP-63: LET HH-a LET Z 
ta"Cont>«nd«nt "*«• GO SUB 9499 

PRINT RT 13,3, "UOuS RUEZ PULUER 

8118 IF 9J«h« THEN PRINT "UOTRe" 

PRINT At 16.7." PROPRE RECORD 
1 " 00 TO 3 139 

6113 PRINT "LE RBCORO-' PRINT AT 
16,118-LEN K«l." DU Co«»»n«»»rit 

9138 LET LL-1: LET PP-159: LBT H 

Sia LET !».■ SCORE ".ST6. tcorj* 

■ A TOP ■ +STRJ 10P INK 4 PAPER 

1. 00 SUB 5498 



siaa ini 



LBT M«9« LBT tOP-» 



3139 RESTORC 9963 FOR i - 1 TO 18 

READ » ,b BEEP * ,b NEXT 1 
8138 CLS RETURN 

BS98 REM 
6398 CLS 
6219 LET PP.39: LET \ 



LET LL 



SuHtptO* '■' 



13 



OTO KROSS 



Enfin une course de voitures avec une epreuve qualifi- 
cative! Alors les exploits sur neige, sous la pluie ou de 
nuit sont remis a plus tard- Tant que vous ne pourrez 
franchir les 3600 Km de la premiere epreuve, vous ne 
pourrez participer au rallye. 



Luc DEBOIS 



Mode d'emploi dans le premier programme: regies. Le second pro- 
gramme ne conlient que le jeu propremen! dil. 




1 LET 3.0 

13 paper a border a CLS 

15 fQO I<1 TO It 

lft LET KaXNT iRND*22i 

17 oo,t 23fi32,2 

10 INK INT lRNO.6) 




2ft IF 9»1 Tm£N RETuR! 

33 NEXT I 

40 DATA a. 1,2. 3. 4, 3. 2.1, a, 1,2, 

3.*, a. a. i,a. i ,2,3,4. 

S0 FOR '.1 TO 17 READ a BEEP 
■ S3, a 
sa next i 
7a for f.i3 to a step -i beep 

.83,' NEXT f 

sa cls 

98 LET afa-'LUC DC B0I5 Pnttnt 

I . . . 

lae for f .i to len it 
110 ink 5 print tab r*s.a»m, 
SEEP 0.83,18 

12a next t 

125 INK 3: LET H.28: LET G«l; P 

rint rt s.a." ■■ co sub as 

138 LET »*-'-O-0nPCSSiSM • ! > " 

140 FOR f»l TO LEN Hi 

15a INK 6 PRINT AT F.3,F,fl»lF) 

155 BEEP .83.F 

188 NEXT F 

178 CD SUB 1380 

138 PRINT TAB 18, INK i;"%-J IN 
K 5,- REGLES '. INK 1,'V" 

198 POINT PRINT PRINT 

203 PRINT INK 4, -ON A T0UJ0UR5 
AFFIR^E 2JE LES , JEu/ LE3 PLUS 

- OEPRIS , PAR LES CREATEU 
35 SONT CEOX OLiI',"ONT PQUR BUT, 
LA DESTRUCTION 0-","UNE HORDE D' 
E-. .pmISSE'JRS ", "FEPQCES. ..",,"< A 
iJ^ar-HMMM 1 I M )■'.,, "J ' AIMERS IS TO 
LTTEPQlS RJOUTER QU'AU PALMARES D 
U Sl'jS ; = -•. 5 ^C^BRE" 

213 INK 4 PRINT ' OE UER3I0NS.C 
E N"EST NI UN ■', INK 3,"SPACEINU 
-'.i-iii ■ . ;■.-. 4, ■ ,NI UN . INK 3, 

' jR-i-fiXIRN©", INK 4," OUI'.'RAFLE 
N* •OUTES LES MEDAILLES" ,"0'0R M 
RX9 SIEN SUR.L'UN DES PLUSANCIEN 
5 JEUX UIDEO ■*; INK 8,, ''LP COURS 
E OE UOITURE5' * ! ■' 

228 00 Sufi 1883 

23B INK 5: PRINT "UOUS NE TROUU 
SREZ 1CI OU'UNE" , "AuTPE UERSION 
DE CE JEU.' 

235 PRINT 

248 PPINT -IL FALLAIT DONC.POUR 

POMRRE LJV","HONOTONXE 'Mflxs SUP 
TOUT POUR" ."PRLLlER A LA LENTE^R 

DU BASIC) ',"EN CHANGER OUELQUES 

ASPECTS" ."TYPES. " 

250 PRINT 

258 PRINT INK 3,"ENFIN UOILA LE 

jeu... 

278 SO SUfi 1888 

29a INK 2 PRINT "LE JEU SE D IU 

ISE EN DEU/ PHASES: " 
290 PRINT 'TQUT DISORD: 1 ' 
295 PRINT 
380 PRINT INK 5; "LA CLASIFICATI 

ON"- PRINT INK *;" 

~~3l8 PRINT : PRINT "C'EST UNE EP 

REUUE CONTPE -=•■ , ■■rGNTPE" , , , , "LE 
■jOUEJS DEVRA EFFECTUER"; INK 4, 
" 3383KM", INK 2,'ORNS UN TEMPS 
LIMITS' 



383 PRINT "TOUT EN RALEnTISSANT 

OANS LES" , "UIPAGES t Sfl UOITURE 
5E OEPORTE", "R UNE UITESSE TROP 
IMPORTANTEi " ,"IL DEUAA AUSSI EUI 
TER LES' 1 ,"FlAQU£S O'HUILES..." 

33B PRINT 'CHAQUE RCCIOENT LUl 
FRISANT" , PERDRE DU TEMPS lPRQRO 
RTIONNEL" . "A SA UITES5E1" 

340 PRINT "ft'IL REUS5I CETTE PR 
EMIERE ETRPCIL PR5SE AluRS A LA. 

'353 GO SUB 1030 

368 PR INT "OEU>;l£ME PHRSE : " 

370 INK 6" PRINT PRINT ; INK 
4. "LE RALLYE/CR0S5 

, " PRINT ; PRI 

NT ''MfiLGRg LA UITESSE P.PEREUSEHE 
NT","L£NTE (ON EST POURTANT fi 20 
0K/M1,C'E5T ICI QUE RESIDE TOUT 
L" -."INTERET DU JEU" 

3B0 PRINT -EN EFFET.LE -JOUEUR P 
OURPS 3E" , "RETPOUUER DANS TOUTES 

CBS", "SITUATIONS: " 

393 GO SUB 1033 

430 INK 5: PRINT INK 4, INUERSE 

1; "CONDITION njRmALE" 

410 PRINT : PPINT "Lfi PISTE EST 

DELIMITEE PRR DES",, INK 4,"**"- 
, ink 5, ".LA o:^x: r :;r. est strbl 
E A" ,"N' IMP jP.TE 2'jELlE UITESSE" 

420 PRINT "LE JOUEUR N'fi OUR R 
E'JITEP LES "."huTRES UOITURES" 

433 oo sub iaae 

448 PRINT INK 4, INVERSE 1,"NEI 

GE" 

45 

5T OeLIGE^E^TOUJOURSPE^S^IP Sh 

DIPECTlj': CRP 1-ES ■/'OU'IL TOUR 

NE.LA UOITURE DERRPE'ET CONTINU 

E SOrJ CHEHIN une F0I5 LR tquche 

LP.CHEE. . . ! " 

455 PRINT 

460 PRINT "LR PISTE EST DELIMIT 
EE PAR DES",; INUERSE Ij INK 7," 

478 GO SUB 1383 

480 PRINT INK 4; INUERSE 1,"NUI 

T": PRINT 

498 PRINT "CETTE SITUPTION REUT 

SURUENIR" ."RUSSI BIEN PUEC LR N 
EIGE QUE ' , "NORMRLEMENT" : PRINT : 

PRINT "LE JOUEUR N'R PLUS A EUI 
TER LES","RUTRES UO ITURES , MAIS I 
L NE UQIT","DRNS LR LUMIERE DE S 
ES PHRRES '*, "OU'UNE SEULE PORTIQ 
N OE LR PISTE" 

588 GO SUB 1380 

?ie PRINT INK 4, INUERSE 1,"RIU 
RE": PRINT 

528 PRINT "LE UOITURE DEURA TRR 
UER5ER LE '."PONT fl UNE SEULE UO 
IE [QRRE AU" , "UERGLRS. . . ) " 

538 50 SUB laas 

548 PRINT INK 4, INUERSE l,"5Tfl 
TION ESSENCE" 

558 PRINT i PRINT "EN EFFET LE 
OfiRBURRNT" . "5 ' EPUISE PEU A PtU", 
"LORSOU'lL NE RE5TE QUE 10L,","U 
N RUETISoEUR SJNORE SETENT I" /'LE 

■JOUEUR. DEURA SE RAU ITR IllER" , "L 
E PLUS RRPIDEMENT « UNE STRTION" 

568 PRINT : PRINT " IL LUI FRUDR 
R RL0P5 DEBOITER" , "PUIS RRLENTIP 

R UNE UITESSE DE" , "88K/M (MAX) P 
UIS 5E POSITIONNER" ,"SUR UNE DES 

DEUX CASES "; INK ft.'STOP". INK 

5,,"DEURNT LR STATION" 

573 GO SUB 1088 

588 PRINT INK 4, INUERSE 1;"MUT 

UOITURES": PRINT 

SS8 PRINT "UNE OirFICULTE S'RJO 
UTE flu JEU" ."PROPQRTIONNELLEMENT 



AU SCORE" PRIriT PPir<T "EN EF 
FET LES 'JOITURES RDUERSES . lHt« 
BILE5 RU DEPORT BOUGENT " , E"SU IT 
E DE PLUS EN PLUS" ."FREOUEmEnt . . 

'ftaa GO SUB 1888 

618 INK ft PRINT UOILA POUR LE 

JEU" PRINT PRIriT : PRINTT 

628 PRINT INK 3. LES RCTI0N5 OU 

JOUEUR SONT " 

530 PRINT PRINT INK 2, "5". IN 

K ft," UER5 LA GRuCmE' PRI 

NT INK 8 "8", INK 6, ' UER5 

LA OROITC PfllrJT INK 2, "6", IN 

K 6 ■■ DECELLERER": PRINT I 

NK a, "7", INK 6."- -RCCELERE 

R" 

548 GO SUB 1838 

558 PRINT 'SANS LE5 REM' LE PR 
OG. FAIT-, "A PEU PRES . INK 4, 
"308 LIGNES" 

660 PRINT : PPINT INK 2, FLASM 
1, "ATTENTION 1 '!', ,"LES RSGlES NE 

SONT RA5 INCLUSES" . "DANS LE PRO 
GRAMME" 

5?e GO SUB 1838 

688 INK 5 PRINT RT 18,5."DEMRR 
REZ UOTRE MAGNETO." 

598 LORD "OT0KR055" 

ieae print ax.- ipressez un 

E TuuCHE)" 

1810 IF INKCYIO"" THEN GO TO 18 

18 

1830 IF INKEY *. = •■" THEN GO TO 132 

a 

1025 CLS 
1827 PRINT 
1338 RETURN 



Eq TO'mvmwmTi; 



103 R 
118 R 



OTQKROSSSSS 
SUR 



LUC DE BOIS J 
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REM 
REM 
REM 



est prefer 
un peu plus 
ous lei REM 



158 REM 

158 REM 

170 REM ATTENTION IMPORTANT 

180 INK 2 

480 RESTORE GO SU6 2088 

493 PAPER3 BORDER 8 CLS 

580 REM |BCLASIFICfiTION«l 



ER_3. 

= U& 3 3 
■INI 



780 REl 
778 LET h«a 
783 LET Labi 
i "10: LET v« 
790 PAPER 8 



■10 



IRLISATIQN 



SORDER 3; 



DIM 



■I s 



LET »ug»» 
LET fuel- 



01 



LET U __ 

LET nt»e: LE 
3- LET &oy=a 

799 REM ilPRESENTATION) 

See FOR 1 .1 TO 21 PRXl 
8; INK 4-"«*";flT i,aa;"t»"; NEXT 
PRINT RT ia,la, INK 7, "VW/. 



RINT 1 



^ 



1 LET nui 1. 8 

620 PRINT AT U,v*l, INK 2,"T" 
00 SUB 3688: GO SUB 3588 

833 GO SUS 9988 

836 REM IBJEuii 

839 REM PTjKE 5T592-*Cf0ll 

848 POKE 23692,3 

858 IF »'.*■ -1 TMEN LET tOuf»lOu 
f»l: IF tour»33 TMEN LET toui"»a: 

LET HJlii PRINT AT 28,h.0*2i 
INK 7, VW. LET a. 0*5 

868 IF t0uf»23 TMEN PRINT AT 18 
,h*o»S; INK 5;"ffl";AT 19,1 
APE" ~ 



APER 7, INK 2 



PAPER 



";AT ae,h*o»3, ink a, paper 

"i *W$ *' RARER a," i'.AT 2 



", 7 ? 






.n.' 






5-5'S 






5 -i a 






SIP 


IF nui t»l TMEN PRINT 




v-a 


• •; AT u*l,v«l; • •' 


mT 



HARBOR 2090 



Suite de la page 13 



i mi mi I v Hffi 



8223 »£T PP.96 LET ; 



OR 1.1 TO 22 BEEP .1,40 RANDOM 

IZE USR 3562 NEXT I 1 

8238 FlASM 3 CLS RETURN 

8323 REM d'*&«»y 

8325 PAPER 7 BORDER 5 CLS 

8330 FOP f.l TO 19 STEP 3. PRINT 

PAPER 3.AT f,8," ",AT F,30," 
",AT r.1,3," ",flT r*l,38," '.A 
T f.2,8;'" -;RT f*a,3e," " NE/ 



6313 PRINT PT 28,8 



PPPEP 3, 



8360 






S378 


PRINT INK 


T, PAPER 1, BRIGH 


v J, RT 3,4;w j 
8380 FOR 1 .5 TO 






INK 7. BRIGHT 1 


PRPCR 










6398 


RETURN 






64B0 




• not* 








84 18 


LET I«a3335 POKE 


I, XX: POK 

POKE 1*3, 


C 1*1, PP POKE 
MM: POKE 1.4,8 


>a,LL 








FOR N.l TO 










8*23 


N] NEXT N 












56603 RETURN 
















LET ^ j. 14 








LET x<|»5 LET I i r 


■a LET w 
-8 LET ^i 


P««l 


let dd-e 






(RNDtl8*2l 


let'. 




LET t . 












8513 


RETURN 







9515 pem ini ti*U»ation »eor« 
8538 LET £>«■"©" LET g«»"*" 
6533 LET lCOTf-3: LET t»»"3a008" 
: LET 10P»8: LET *|it* 
8543 LET *§•"•_• « » * »": LET w 

9558 'RETURN 

8533 REM ch«rge»ent d«i idrttsu 
del 'irnv.'i b»ttc dtnt *-. ro 

utinci luchine 

8618 GO SUB 8533 GO SUB 851S 
8628 LET j»PEE/. 23627. 256»PEEK 2 
3528 

8833 RESTORE 8640 

8548 OATS 4,43.4,63,4.113,11,53, 
11,72,11, 1 10, 1 i. Sal, 11,250, 1 1,27 
0, IB, le3,25, iaa, 25. 237, 33, 8, 33, 2 
8,33, 133,42, 133 .42. a 14, 4a, 3 17, 49 
,151,49, 159,49. 198,49,233,49,211 
8545 DATA 55.247.56,329,56.337,5 
6,345,56.353,53, 136,83,235,63,25 
6,78, 121,78, 163,73,233,70.297,77 
,266,83, 170,83,384,89,283,89,388 
,99, 174,99,309, 109,283 
3650 FOR i -1 TO 43 

9560 READ »,b: LET J. INT (tj**)/ 
256) LET r.j .»-Q«256 
8673 POKE lt>. 36988) , f ' POKE (b*5 
69011, 4> NEXT i 

9008 SfiUE -K*rtj0>-239e" LINE 9838 
5RUE "h*f"CODE 56568,7944: SAU 
E "CJC'CODE U5R "»",21*8 
9828 GO SUS 913a: 00 TO 1000 
9838 LOAD "Mf "CODE : LOAD "C»r" 
CODE 

9848 00 SUB 9383: GO TO 1003 
9888 PEM prsstnuiion du j«u 
9095 GO SUB 8580 00 SUB 9515 
9188 BRIGHT 1 FLASH 0: PAPER 

BORDER 5 CLS 
9113 LET PP«16 LET MM.3: LET LL 
-1 INK 3: LET Z|«"POURRIEZ-UOUS 

CHANGER LE C0UR5" : GO SUB 8408 
9123 LET PP.32 LET Z«="DE L'HIS 
TOIPE.SI LA PATROUILLE "■ 00 SUB 

8438 LET PP.48 LET Z«."DU TEM 
P5 UOUS ENUO/AIT DA115" GO SUB 8 
408 

9133 LET PP.64 INK 8: LET Z|."L 
■ENFER DE PEAAL-HARBOR ?"l 00 SU 
B 8400 BEEP .a, 3: BEEP .2,3: BE 
EP .2,3 6EeP .7,9 
9140 LET PP.96 INK 3 LET ZM"v 
o<Ji dispMiz d«t »oytni uUi*«-": 

GO SUB 9*80 LET PP.113 LET Zl 
• '■fophi t tigut* ^ut vou» arrr« i« 
GO SUB 5430 



LE PAR LE NOMSRe '"' GO SUB 8483 
: LET PP.75. FLASM i: LET Z«."A 
UOS COMMANDES ...CAR UOICI...": 
GO SUB 8403 

9180 L£T PP. 133: INK 4: LET MM- 3 

■ LET Zf ."PEAAL-HAHBOP 2098": 00 

SUB 8400: GO SUB 9986' BRIGHT 

FLASM 0: CLS 



NT PAPER 6 
TEA Si vous n« 
«z pas cha 



bS*9« 

prrtit 



Z EN 



9190 GO SUB 8538: LET b««flt* PRI 

- "; ink 0," 
s ns 

— nq«r ie no« " 
9280 INPUT INK 3,"U0TRE NOM 



INK 0, AT ua.Xb ,. 

9218 LET score. 8: LET S0u«4: LET 

Phase.l let coup.a 
9228 INPUT INK 1, FLASM 1, "NIUEfl 
U DE DIFFICULTE (1 a 61 ",f: LET 

t.f .18 
9238 IF F>.5 TMEN LET S «8 : 00 TO 

9278 
9240 IF f>»3 THEN LET S-l 00 TO 

9270 
9358 LET s-2 
9373 POKE 56981, <18» (6-n .1) 



?.?_, 



7, AT 28, 



9158 LET PP. 138 LET Z 



05UB* 



8488 



1 ene siECLE 

PAUSE 38 CLS 
9163 LET PP.2S: INK a LCT Zl""L 
'ENNEMI N'R PLUS L'AUANTAGE " : 
SUe 5488 LET PP.41' LET Z«."0 
E LA SURPRISE MAIS IL AESTC" GO 

SUB 8408 
9178 LET PP.57 LET ZS."REDOUTflB 



9338 IF gf-bt THEN GO TO 9453 
9408 PRINT FLASM 1, INK 2, AT 3,7 
;" UOULEZ-UOUS LIRE LCS";AT 4,7; 
RECLE5'' V-OUI ,H.NON" : IF INKE 
Y|»"V" OR INKEY|."y" TMEN GO SUB 

9683 GO TO 9458 
9418 IF INKEY«.-TT' OR INKEYt."N" 

TMEN PAINT INK 0, FLASH 8 ; AT 3, 
5," ",AT 

4,5," 

GO TO 9450 
9430 GO TO 9480 

9430 LET D-15 PRINT OVER 1, FLA 
SH 0, BRIGMf l, PRPER 0, INK 5, A 

9456'PfiINT FLASH 0; INK S,AT 14, 

PRINf INK 6.AT 14,3, "I " 
?** e .? ci 5 ';?. T Q 1* BEEP .885, t 



9618 PRINT ink 4, BRIGHT 0,AT 6, 
7, "COMMANDES", RT 8,9;"BJ t»f I'. 
»rret",AT 9,9, "1 aescente ", AT 10 
,9, $ nontee". Ink 7;AT h,9,"at 
TENTTON.POur un vol", AT 13,9, "H 
aiior>naire,toucKe S" 
9615 GO SUB 9998 

9828 LET 0«14 PAUSE 1: PAUSE 0: 
00 SUB 7880 



935 REM i»?ES- HVT SO.IDEBI 

933 IF nui'.il AND STTO (uTv J .ft 
THEN 90 5j9 5308 

948 IF RTTO IU.VImQ "-•■. 2j 5^9 

4088 

938 IF RTTR IU.VI*Sa PND vi«.08 

THEN 30 SUB 7080 

960 IF SCREENt iu,vi. • THEN > 
SUB 4033 

978 LET d«> ♦".("#■ AND nvitOl 

N-. 2 . ■ T 
:•.- firr v*i,« 
. INK 6, A . at v*8,v-l;-A 

1338 RRIUTRT 21,3. 
1335 REM gBDECORSii 
1318 PRINTTAB h. INK **l.-,e.9*»3 
i, INUERSE ritijt,4|. I-.uE»SE 0. 
1828 IF RNDt.85 R'O r,.j,-,,3 Then 
LET Pla.RND.IJ-3) *a*h PRINT TRB 
PH. INK 6,"±". LET (1IU9I"PL 

a LET biaugai.ai LET au9B.au9* 
.1 IF auga.4 TMEN LET i.,;*.; 
1838 PRINT TAB h*0*( (Slit«5i « l '.0 
ur<l0i|, INK 4*meige»3'. In jEQ5 
E ne»ge .d«, INVERSE p an 

, .our>iei; INVERSE ne>9e.idl An 

tOUOlB) , INUERSE 3. 
1840 IF u«19 RND 1ATTR iaa,K-»l. 
6 OR ATTR (28.K-S.0) .61 TMEN GO 
SUB 4383 

1358 IF u.19 TMEN PRINT RT 28 , h - 

s, " •■; at ae,h-i.o. " ■ 

1368 PRINT AT 0,0, INK 3,I»," IB 
S". INK 3, AT 0,a4,vi," n/h" 
1865 PRI-.T RT 8.13, lNK_2,vi 

1359 REM VTE5T TOUCMESM 
107C LET 1 l.INKEYj 

1090 IF l«»-e)" THEN LET neal 
1100 IF il-'S' TMEN LET ne--l 
1118 IF n«i9<.0 THEN LET v.v.ne 

let n«-8: go to nae 

1133 IF neige.l then let v.w.ne 
1133 IF l J."7" THEN LET vi. vi. 25 
PRINT AT u-2,v. INK 7,0' FOR 
l--SO*vi/10 TO -43.V1/18 BEEP 

0.e3-(v> /iao03i ,i neit »■ print 

AT ^j-3^:" - 
1140 IF i««"6" TMEN LET W..V.-23 
FOR *«-*0*v,/l0 TO -5C.V./10 S 
TEP -1: 6EEP 0.03-tv, '10a3ai .1 
NEXT t 

1138 IF vi>280 THEN LET vi.230 
1168 IF r.uit-1 THEN GO TO 119B 
1178 LET HINT lRND.5) IF n .4 A 
NO Stat<>l THEN LET 0-0-1 
1188 IF 0=4 TMEN LET 0.0.1 

1185 REM ■friASRROtl 

1198 LET l» INT I RND. 1081 

1192 IF l>7 TMEN GO TO 1368 

1195 REM ■PLUS NEIGEM 

1288 if tTT and neige^T tmen let 

128S g REM MNUITfli 

1218 IF t«l AND u-10 ANO siai-a 
TMEN LET u.19 LET v.h.3 PAPER 
0: CLS . PRINT RT 18,18, FLASM 1 

. INK 6,"ALLUMEZ UOS PmhRES" FO 
A f«l TO 58 NEXT t FLASM LE 
T nuil.l: LET 0b9 PRINT AT u-10 



1220 IF . . 

EN LET nui l«8 LET r\«,ge«0: LET 
U-1C PAPER a ; CLS PRINT AT 10 
,18, FLASH 1, INK 6, "ETEIGNEZ-LE 
5" FOR r.l TO 50 NEXT f FLASM 



1230 IF *»4 AND h. 0.6-31 AND nui 

1.0 TMEN LET stal»l PRINT RT 18 

,h.0*2; FLASM 1. INK 6: "STATION" 

. FLASH 0_ 

1235 REM MNEK-EH 

1248 if .1.3 op t.6J and neige.e 

then let neige.l 
1345 REM BRIuIEREH 
1350 IF tV7 AND n yl t.3 AND neige 
.8 THEN GO SUB 3580 
ia68 LET i~ .. , . ■ v , /10i 
1278 FOP '.8 TO 280-vi NEXT f 
1288 LET ■ ,1 - ■ . - ■ :'.- .1 -i.io. 
1285 rem plus oe fuel... 
1298 IF r u «L,pja THEN 00 TO 1318 
1338 BCEP_fu« I'lJB, 10 
1305 REM »»1UT UOITUPESIJB 
1310 LET bOU.INT (HND*1008e/*«) 

IF bOu«0 THEN LET opit-INT tRNO 
•2) .1 IF biOPilliB TMEN LET fog 
•INT 'PNG.Sj-1 LET blOPiri.blOP 

>n-a let c iop 1 f 1 =c iop 1 r ) *t 09 

PRINT AT t> 'OP L I I *2 , C (OP 1 I ) -/og , " 

'" Pi f 1 .1 , c iop 1 ' 1 -rog, " ", 



AT b IOP 1 I 
1320 FOR 



LET 



Suite page 16 



SPECTRUM 



9630 PRINT INK 4, AT 3,7,"tOUl v» 
isstau enn«Bi",AT 4,7."Sufvoi. ant 
l« O.G.'JAT 5,7,"sei-a dttruit p 
tr Km OCA", AT 6,7;"iiais vous d«v 
ez • tout ''.AT 7,7,'prix 1'iniec 
c*pt«r car '-.-RT 8,7, "its luniiio 
ns <Ju port ';AT 9,7,"son\ 1 1 it 1 t 
«ts" 

9635 GO SUB 9995 

9648 PRU5E 3: GO SUB 7808 

9558 PRINT INK l.RT 3 , 7 , "»U I" v« i I 

ItZ l« CO ft ptt", AT 4,7, "dl cts nu 

nitions: XBHSl " , at 5,7," 

«u dtpar t", AT 7,7;"atl«nli 
on luiti , vous ",AT 9, 7, "n ' tvtz 

qu€ 4 SOUCOUP«S f, ,AT 9,7, "«l qut 

i<*uts avarits a ', AT 13 ,7; "votr 
t runt suf r,ront ", AT il,7, - 

a l» cou icr- 
9663 PRINT INUERSE 1 , AT ia,8," 
ONNE CHANCE I" 00 SUB 9993 PAu 
SE 

9670 PRINT INK 4 , AT 15 , 29 , " Jttl" 
PRINT OUER 1, INK 2, AT 15,267"' 

9673 PRINT BRIGHT 1, INK l.RT 13 

9680 POrT'i «3 TO 13 

"BEEP 7083. 19 BEEP .883, 
6 PBlNT INK a, AT , , j, "S" 
9728 NEXT j 
9738 PRINT OUER 1, INK 2 , RT 1,7; 

9740 NEXT i 

9750 RETURN 

9958 REM «uSi4Ut UAGNEfl 

9955 DRTA . 5 , - 13 . . 23 , - 18 , . 3 . - 13 , 

1.-9, 1,-13,. 3, -9, .23,-13. .3,-9,1 

.-8. 1,-9.. 5, -6,. 23, -9,. 5, -6,1, -a 

, .5,-14, .5,-9, .35,-14, .5, -2l. 1.3 

9988 REM susiQUt BEETHOUEN 

9983 DATA . 2, i, , 2 . 7, . a ,5 , . 7 , 3, . 3 

.6,8, .4,7 

S'iSft REM Chant dl !■•'.*! i. t 

9987 DATA 2,9.7,6,2.-68,3.6.3,7, 
2,9,7, IB, 1, -68.3, 18, 1,-68,4, 14 , 1 
,-60. 2, 9. 2. 6, a. -50.3,8,3.7,2.6.6 
.9. 1. -60,3.9, 1, -60,3,7 . 1 , -88,2,7 
.3.4 ,2,-58,3. ll,a,13,i.H,a.l4,3 

-68,2,3,3, 2,2,9, 1 , -80 , 3 . 9 . 3, 2 

9988 RESTORE 9987 fop i-1 to 43 
READ a.b IF .,4 THEN FOR r.l 

TO a BEEP .83, t NEXT t GO TO 
9998 

9989 BEEP a/18,b 

9998 NEXT i RETURN 

9995 PRINT FLASH 1, INK 3, RT 13, 

8," pnuii Enter - peturn 

9999 PAUSE 288 CLS STOP ■ 



CAR SET 



Enfin de quoi personnaliser vos programmes grace a 
ce petit utilitaire vous permettant d'utiliser, en perma- 
nence deux jeux de caracteres (le standard el celui de- 
fini dans le programme). 

Jean Francois BUISSON 

Le programme est tape en Basic, ce qui permet de modifier aise- 
ment cnaque caractore redetmi. En etfel, les lignes 32 a 127 corres- 
pondent aux numeros dos codes ASCII. 

Pour integrer cet utilitaire a un programme, on le sauvegarde sous 
la forme dun bloc d'oclets. par un SAVE "CAR SET - CODE 64583. 
784 

Cetle deuxieme table de caracteres a etc francisee par rapport des 
caracteres suivants;e * 38, a— 64, e— 92. c— 123."— 124, u— 
125, ce— 126. 

RANDOMIZE USR 65353 donne la nouvelle table de caracteres. 
RANDOMIZE USR 65360 replace sur la table dongine. 
Ces deux petites routines servent a modifier la vanable-systeme 
CHARS (octets 23606/23607) et evitent de (aire deux POKE a cha- 
que changemeni de matrice 
Adaptation sur un spectrum 16Ko: 

On peut placer les 784 octets a partir de 1'adresse 31615. La pre- 
miere routine n'etant pas relogeable, ii faut la modilier de la lacon 
survante: 25 DATA 23,123. 

La ligne 25 contient les octets a placer dans CHARS; ici (31561), 
CHARS pomtant 256 octets avant le debut de la matrice ((31815- 
256)+- 2 (les deux octets de la ligne 25. hors matnce) = 3161). 
160 DATA 42,71.124...: LD HL. (31815).... 
RANDOMIZE USR 32586 place sur la nouvelle matrice. 
RANDOMIZE USR 32593 retourne a la matrice en memoire morte. 
Apres avoir (ait un RUN on peut charger ses programmes favoris et 
les (aire "tourner" avec la nouvelle matrice (on dirait que ce ne sont 
plus les memes!) a condition qu'ils ne depassent pas le debut de la 
zone d'impfantation de la matrice (64583) ou ne coniiennent pas un 
CLEAR supeneur a cette adresse. 



> fieri Nouvttui ,uuu. ojl cn\t\£JjL 

3 Rtri t> i9Bl. j«jm-f\ATiOttv* 
BUISSON 

10 CL<«P 6U390 

20 FOB *.-0 TO 769 »«(•[> * POK 

c ewssit \. x He xt a. 

25 [i»T* 73,351 PCM '..• 161*3291 ■ 

32 DATA 0,0,0,0,0.0,0,0 

33 PAT A 0,8, 0, 8, «, 0,8,0 
3*. DATA 0, 19, 36,0,0,0,0,0 

33 DATA 0,16,126,36,126,72,0,0 

36 DATA O.L, 62,1.0,62, 18,62,32 

3' DATA ,96 . 100,8 , 16 , 38, 70 ,u 

38 DATA 6, 16.36,68,120,61*, 191 , 



LATA 
PAT A 
DATA 
DATA 
DATA 
D »T » 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DAT" 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



0,8.16,0,0,0,0,0 

o.u,e,e,a,o.i.,o 

0,32,16,16, 16. 16,32,0 
.66 ,36 ,2-. ,2L ,36,66,0 
0,0,3,8,62.8,8.0 
0.0 .0 ,0,0,8,8, 16 
0,0,0,0,62,6,0,0 

0,0,0, o.o, au,ai*,o 

0,0, 21., 6, I26,0,2w,0 
O , 60 , 66 , 66 , 66 , 66 , 60 , 

o , aw .1*0 ,e, a, a .8,0 

0,60,66,2,60.61*. 126,0 
O .60,66, 12,2,66,60,0 
O . 61. , 61. , 32 , '2 , 1 26 , 8 , 

O . 126.6L , 121. ,2 ,66,60.0 
0,60,6*., 1 2u , 86 , 66 , 60 , 



126.21 



. 6<i ', 



, 136, 2 ,l*,6«i , 15, 1C ,'J 
, 60 , 66 , 60 , 66 , 66 , 60 , u 
0,60,66,66,62,2,60,0 
0,0,0.16,0,0, 16,0 
0,0 , 16,0,0, 16, 16,32 
0,2, i*. 8, 16,9,1*, 2 
0,0,0,62,0,62,0,0 
0, 16.8,U,2,W,8, 16 

o,2a,3u ,L,e,6.e,o 

18,8,60,60,68,68, 191 ,0 
O , 28 , 3*. , 3L , 63 , 31* , 3L , O 
, 1 21* , 3*. , 60 , 3U , 3i* , 1 21. , 




f "l 1 U, I40. JIf.'JUiJ', J4,J«,W 

DATA 0,28,31* ,32 ,39 , 3L , 28,0 

DATA 0,3i*,3u.,63,3l*,3i*,3l.,0 

DATA 0.23,5,8,8,8,26,0 

DATA 0, 11*. t», l., 68, 68, 56,0 

DATA 0,100,1.0,1*8,1.0,36,98,0 

DATA 0,96,32,32,32,31., 126,0 

DATA 0,66,102.90,66,66,67,0 

DATA 0,35,30,1.2,1*2,38,98,0 

DATA 0,28, 31., 31*, 3i*, 31., 28,0 

DATA 0, 121* ,3i*,3i*, l2i*,32, 1 12 



DATA 0,93,98,98,98,98,28,0 
DATA 0, 66, 66, 66, 66, 36, 2W, O 
DATA O ,66 ,66 ,66 ,66, 90,31*. 



88 DATA 0, .«•*, 36,2b. 2*», 36, 1«8, 


39 DATA 0.130,68,1.0,16,16,36.0 

90 DATA 0,126,66,8, 16.3b, 126,0 

91 DATA 0,30,16,16,16,16.30,0 

92 DATA 32, 16,56.68, 120,61* , rji 
,0 

93 DATA 0,120,6,8,8,6,120,0 
9U. DATA 0, 16, 36, 3b, 16, 16,35,0 

95 DATA 0,0,6,0.0,0.0,253 

96 DATA 0, 28, 3*., 120, 32, 3*. ,126, 


97 DATA 0.0,60,68,68,68,191,0 

98 DATA □, 32, 32. 60, 3i*. 98, 191 ,0 

99 DATA 0,0,30,32,32,96,139,6 

100 DATA 0,2. 2, 3D, 3i* , 98, 139.0 

101 DATA 0,0,56,68, 120,61., 191 ,0 

102 DATA 0, 15, 16,26 .UB ,80, 11.1* ,0 

103 DATA 0,0,60,68,68,62,3,36 
10b DATft 0,32, 32, 60,31., 99, 163,0 

105 DATA 0,8, 6. 21., 1*0, 72. 135,0 

106 DATA 0,8.0.8,6,12,75,1.8 

107 DATA 0,32, 32, 60. 3b, 108, 163, 


106 DATA 0, '6, 16 , 16 , US. 80, li*3 ,0 

109 DATA 0, 0. 232. Si*,8w,3i., 87,0 

110 DATA 0,0, 120, 161*, 36, 36, 39,0 

111 DATA 0,0, 11., 17,1,9,81 , 1U2, 6 

112 DATA 0,0,30, 17, 17.62,80, lWi. 

113 DATA 0,0, 1 12, H.U, H.I., 123, 16 
,56 

111. DATA 0,32,56.1.0,6, 8, 7,0 

115 DATA 0.0, 6, 2W, wO. 68, 21.8,0 

116 DATA 0, 16,60, 16, UB, 80, H.3,0 

117 DATA ,0,31. ,31., 3*. ,96, 159,6 

118 DATA 0,0,199,68,1.0,1.0,16,0 

119 DATA .0, 195.51* ,8u ,8U, t.0,0 

120 DATA 0,0, 198,1.0, 16, WO. 198.0 

121 DATA .0 , 100, 16b , 36 ,31 ,b ,56 

122 DATA 0,0, 12U.. 32, 16.32, 127,0 

123 DATA 0,30 .32.32,96, 159. a, 12 
121* DATA 16,1.0,0,0.6,0,0,0 

125 DATA 16,8 ,3b ,3b ,3b ,98, 1S9 .0 

126 DATf, O .36 .0,0,0 0.0, 

12? DATA 60,66,153,161.161.153, 
66,60 

130 REM xxrvidA.f'Le, -La va.\,\jxh^i. 

ISO FOB a*Q TO 13 R£AD > P0>.£ 

65353+a, j.. N6XT A. 

155 fi£H XU5R 65353 in»jV£jlJi ^ujl 

:<USP 65360 ipti^uV r^oMCQAiX 

160 DATA i*2, 71 ,252 ,31., 5U ,92.201 

130 PCM La.9.*iM. 160 XaLD *L, i6l5 
33JXXLD 1236GS1 , »L>./.RcT/' 

180 DATA 1.2. 128,61 .31*, 51..92. 201 

190 REM L/tarut 180 XXLL ML. (15? 
bb) XXLD (23606> . m.XXR£TXX 

210 PRtMT "U-1U4 <!/<-« X»n* *Z. *UUA\*. 
a*^ OJL AKJSX mLJJX d*t >m \JXCXA. IjL* . " 

220 PRINT '''PXluA AhXJ^\n.\ ,L*-a tlc 
JJVUXuX CJ3.\J\C-JLL\jtA , /O-^^a", INK 

1, IKUCPS! 1 , ' ' PAMDOMIZe USR 63 
353" 

230 RANDOhlZe USR 65353 

2bO PRIMT ' "UX«.\A Ti^uvjLQjJ JLQ-t*Ajt 

ojj a-of, un. pajx /'\Aivo>ji4. *ua^*jj 



230 PRIWT ' , tOT 2, ■ a . 

a 'A fiuxcjt a*. . RAKi>Ofiiz< us 

P 65360 PRINT "4. 
260 PANDOMIZ! USP «33«3 PPIMT 
. INT 3. t ■■ INH 0," fi AJJ pt-Hf. 
*. 4*. ■ . PAND01IZ! USR 433*0 PR 
I KT "A." 

270 RANDOlIZe USR 65353 PRINT 

', IHX 2. L , IKX O, 4 AA *AjXC 

«. de. '. PANDOMIZC USR 63350 PR 

INT «. i*&Uk , INVtRSe 1. FLASH 

1,'«", INVCBSC 0. FLASH 0, • S 

cnCOL SHIFT, . 

260 RANDOMIZC USR 63353 PRINT 

, IN* 3, XJ', INT 0, 0. AJX *X*XC 

«. a*. , RONtOMIZ! USR 65360 RR 

INT it .i.d.i . 

390 PRINT .TAB 3. t>ppu-*JLt. *<j\ 
< A >": 
300 INPUT INKCYB 

or iHxtit* a- 

310 00 TO 300 

320 CLS PANDOHIZ! USR 6333) 

print ■, inh 2, *;■ , INX 0, a <- 
a PUK*. 1*. RANCOrltZC USR 633 

60 PRINT C 

330 RANDOflfZe USR 65333 PRINT 

, INK 2. , INK O, 1U fiAAC 

t dC . RANDOMIZe USR 63360 PR 
INT ' 

3U0 PRINT "CX PRINT , OV<R I 
, RANDOMIZE USR 55353 PRINT 

■ ■- RAND')MIZe USR 65360 PRINT 

'.ChP| 3,", RANDCiMIZt USR 6535 
3 PRINT ■'«,' - VAtu dOTttut '", 
U£R 1 , CMR« 9, t. 

350 PRINT ■■ INK 2." IN). 0." 

0. La PtJMJL dC . RANDOM It! US 
P 65360 PRINT 

360 RANDOH.IZC USR 6S333 PRIMT 

■UA, fOAjJt-e , INUCRSC 1 , 
. RANDOMIZE USB 65360 
370 PRINT T«u vw PV*79\AMJU-< 
Pfcov*.Tu. fi>UjC.lsuCto.nA.\ avtc cjuuul K 

ObAA d«. C*l- \i\£-Xjk.\*A \t-OAJ MWi. , a 
<. ZX&e^'~.\A«u&M. JLM-UX *JlA. CA3KP4\X-*. 

\*l-ttTVL uti""CL£AR juMV\<jJ\ d 6W 
580- Wl StU ri'O/^ijCXt PO» JUL 

' "P\*»\J.*V»A. " 

380 INPUT UX**w.«.Z.-v^uii vavji<.\ i. 

i. kAdl d'£.&-PJ-4V<. f , a* 

390 IF a»= THtN 00 TO 380 
WOO IF a* I 1 * «"«" OR 0.t l 1 ' " 7 

H£N 00 TO 200 
1.10 CLS PRINT AT 1 . . _ UXHUXt 

-v-ouj *j*a\**v ' . . "un *>^>9Vii»\*vt " 
INPUT A» 
1*20 IF A»« THEN 00 TO 1*10 

t.30 IF AS I 1 l ■ /i OR A» i 1 J i T 

HEN 00 TO ' _ 



-_ STOP 
USO PRINT AT 

U60 INPUT b.% 



5.0. HCK du t>\Ai.\ 
IF b*» THCN 00 



1.70 PRINT AT l?.0.*v« 
W80 PRINT AT 20.7. I NX 1. INVCR 
S£ 1, FLASH 1, flPfU>t- JU\ f-LA'. 
1.90 LOAD &* 



AL* BERT 



Une adaptation ires reussie du Q'BERT d'ATAR! pour 
voire Spectrum. Rien de pius enervant que d'6chouer 
au premier niveau? Patience, un peu d'entramement et 
de strategie vous permettront de profiter reellement de 
ce logiciel. 

Cesar MARTINEZ-BARBOSA 

Mode d'emploi Indus dans le programme, 

N.B.: Si vous "sauvez" votre pfogramme avec un GOTO 9999, avant 

de I'enregistrer. vous profiterez d'un d6marrage automatique!. 



fiCTEOE-> en 



LIBNE: CflRACTCRC: 

S9 . . . 'PROCRRMHE PRINCIPAL' 

12* . . . ■CMfiHGEMENT DE COULEUP 

189 ... -80ULE' 

229 . . . 'SERPENT' 

294. . . . 'PEROU' 

338 . . . 'ENTER' 

334 . . . 'VARIABLES' 

394 ...'ROUTINE CONTINUATION' 

395 . . . 'ENTER 1 

404 . , . -0E33IN ECRAN' 

479 . . . 'COUUERTURE' 

529 . . . ■ INSTRUCTIONS' 

999 . . . 'MUSIQUE' 

8999 . . . -GRPPHIOUES- 

9344 ...'PYRftHlOE UTDE ' 

9079 ...'PVRRMIOE PEINTE' 



SPECTRUM 




R 328a- NEXT I 
32® PRINT AT 11 
- oiEr'- 



6,'TOUT UA TR 

. W ,RT 2«,4; ■'© CESA 
MART INC Z-0ARBQ3A" 







2, 



B: BEeP .1,1.: BEEP .1,1*2: NEXT 
Ej PRINT FLP.3M l;RT 3,9;-'CMUTE 
ORTELLE'-: PRU3C 40, FLASH Z 
33B If vi-e TMCN 00 TO 33C 
323 00 TO 20 

330 PRINT PR P E R l; INK BiftT 18, 
HI tj*f\/i™ pour ron t j nijtr^ 



BEL 
TO 340 



GO SUB 9000 Q 
00 SUB 530 



3 00 SUB 480 
SUB 1000 
10 LET rt»NOT PI 
00 SUB 396 

18 00 SUB 338 

20 RANDOMIZE 90 SUB 9030 

2B GO SUB 363 GO SUB 406 

SUB 9070 

29 ! 



30 If 
vi - ' 



LET 

x' a 

ONUS 



IU /■ PRINT INK j, AT 3,*o, o 
I": BECP .003, a BEEP .006, j 
NEXT j: NEXT t: LET tC«SC*1000 

35 LET r-ni -3 
40 GO SUB 66 

4B IF n i <3 OR »i >7 THEN GO SUB 
170 
30 IF fti>6 TMEN 00 SUB 230 
35 PRINT INK 7, AT 2l.».i;*c 
60 00 TO 30 
66 PRINT PRPER 8, INK 3 , AT v,X 

70 IF POINT (»,n)-0 TMEN LET i 
e»»C*10: FOR 1.-20 TO 43 STEP 3: 
BEEP .000,1. NEXT I LET cu«cu*l 

00 SUB 123. IF cu.21 TMEN 00 T 
116 

78 LET ••¥: LET y«x 

80 IF INKEY1--8" «ND X.lS*[6-t 
t)«8 OR INKEVt"'*7" RNO x»6*<t»2 
OR INKEV«»"6" PNO «l»0 OP INKEYI 
■ "S" RnD « '. •« TmEN GO TO 296 

86 IF INKEY1""8" THEN LET 

2: LET X-X+2 LET Itatt*' 

•■♦16: LET n-n*16 n 

9B IF INKEV«-"7'- TMEN LET ' 

2: LET X-K-a- LET tl««t*' 

-■-16: let n-n«10 

96 IF INKEYt-"8" TMEN LET y-v 

3 LET X-X-3: LET ItMt-i! LET 
■»-16: LET n-n-16 

100 IF INKEVi."8- TMEN LET v.v 
2: LET X-X»2: LET *f«t-l LET 
-•♦16: LET n«n-16 

106 PRINT PAPER 6, INK 3;AT v, 

' 110 IF * <>v RNO i 

PAPER 8, AT '. ,y, " 

116 IF CU-S1 THE 
LET SC-IC*10«: LE 

O 20 

120 PETURJ 

124 PCM r 

123 IF X 
TO 130 

130 IF x«16* (5-«t) #2 ANO ' 
MEN GO TO 160 „ --*•- . . 

133 IF v-5 TMEN PRINT PAPER \, 

fffiPER li ''fc"; RT v 
INK 6: AT v-1 



LET 



LET a 







PRPER 1, 


INK 


iflT V 


i 


'": PAPER 


l, ''■V'jRT v*l,x; "M 


























,x, ■■%+"-, RT 
"j BfiPER 


v.X-l,''*'- PAPER 6, 
1; ''%'■-. AT v*l,x; "UB*' 






PETijp 
























IF U™ 


!then go 










-INT (RNO 








180 


PRINT 


PRPER 8, 






' l^B 


IF v- 


1 RNO X-C 


TMEN 


GO TO 


S 






-4: LET d"C 












C"C * 










Z-D 








200 


PRINT 


PAPER a; 




c 


; bf,RT b,d 
203 IF . • 


1 AND c-x 


TMEN 


00 TO 


3 




IF t- 


17 TMEN LET o-PI/PI: 


L 


CT 2 


■ INT 1 


5N0t21) »5 






























LET «-VAL "i"! LET C-UAL ''18 




228 
































236 


PRINT 


PAPEA 6; 


INK 4, AT 


<» 


'240 


IF (AND»7I >r»i 


TMEN 


RETURN 








?MEN 






230 


IF > 


• RND q<x 


LET 0«0 














IF > 


< RNO 1>X 


TMEN 


LET 0«0 












260 


IF 0< 


i ANO <1>X 


TMEN 




















' ANO q<X 




























>0 TO 9 STEP 3: BEEP . 1, 





. IF *C . - 

INK 7, AT 21,7;rt 
336 PRINT PAPER 2i INK 71 FLA3M 
1,RT 7,10; -JEU TERMINE" 
340 FOR l»l TO 200 STEP 10 
P ,01, INT (1/8) 
343 IF INKEYI- 
380 FLA SM .g-j^BU i \v » D 

353 l|V ??3?0T , "ff : LET vi-URL " 

*■*: LET ni -PI/PI 

360 RETURN 

363 LET »-UAL "6-: LET «-UAL "1 
-- LET CU-NOT PI: LET g-CU 

LET n-UAL 

iJflL "13"1 L 



PAPER 6 INK C 
L3 

536 FOR l-B TO H: PRINT PAPER 
2i AT L«;" 
. NEXT I 

540 PRINT RT 0,2;"Il (.Wt COndu 
i r< norrt •■> i p.fans'Ji ioui l«t 
cub«t, qui cK»n-a»jni d« cowltur 
«n *vit*ni tttboultt qui to»b 
«ni tl n ,«rp«rnqui »uit al'BER 
T p»rloui. r«itmtt»niion dt r>< 

p»* io»btr d« lipvranid*. vout 
P«rdri«i un« wit.. 

845 PRINT AT 13.2, "UOu. 9*?ntl 
10 pointi pjr cub«CK»nat, «t 100 
POinti t ' u « cM-que rot* qui ■■> 

Out cOBPKtCZ untpvi**» ' d* ■ H P r * 

f 10 nivtiux itniftuiu, vout • 
urt? an bonui I000cointt «' un* 
v it tupp lt»t.' 
350 PRINT P 



6, AT 8.2 



370 LET b-UAL "119" 
"|fl LET O-Ct LET " 
375 LET U-CU: LET 



390 RE 

394 REi 

395 PRI 
our cont 

400 PAU 

404 REM . 

40B 80AD 



kr 



pi/pi 



MEN PRINT 



)6 T 



275 PRINT PAPER 6; INK 4 , RT 0,q 

'280 PRINT PAPER 8, AT P.r," 

285 IF 0-V RNO q-X TMEN 00 TO 2 
93 

290 RETUI 

294 PCM | 

293 DEEP . 
BEE 



BEEP .1,-2: BEEP 




. .6, -t6ucmcs 6c 

\/"i AT 10,7, "CONTROLE / 

\",AT 11,22;"5 6" 

338 PRINT PAPER 2, INK 0.AT 10, 
16, '■»" fOR l.«20 TO 40 STEP 5: 
8CEP .005,1 NEXT I 

660 RETU RN 

999 REM MnpfMUl 
1000 BEEP .1.12: BEEP .1,9: BEEP 

.1,7- BEEP .1,5: PAUSC 10 
1003 BEEP .1,9 BEEP .15.7 BEEP 

.05,6: BEEP .1,4 BEEP .1.2: BE 
EP .1,0: BEEP .1,0 PAUSE 13 _ 
1010 BEEP .1,12 BEEP .1,9 BEEP 

.1,7 BEEP . 1,3 PAUSE B 
1013 6CEP .2,9 BEEP .2,7 BCCP 
.2,3 BEEP .4,7 
1020 BWUfaM 

8999 REM |BBW>Blll*l* 

9000 restorF oSlfl for i-usr "*■■• 

TO USR "U"*>7j READ j POKE I, J: 

NEXT L 
9003 RETURfJ 

9010 ORTA 234,38,14,3 0,0,0.0.17 
1,220,176,192,0,0,0,0 mh _. _ 

9013 6ATA 1, 3, 6, 14, 14, 30, 31, 63,2 
33,14,232,206,162,244,14.235.232 
,2ie.il,2i9,ai9, 13,218,252 
9030 DATA 31,63,36,31 .143,96.63, 
13, 252, 233,16,231,24 3, 56, 248,2*4 
9023 DATA 6,5,11, i3. 16,13.7,3,19 
2,224,240,240,240.240,234 , 192 
0036 DATA 15. Is , 9 , 11.63,2,26 30, 
224,224,32,96.246,129,176.240 
9030 DA+A 13, i5, 9, 11,63,2,28,30, 
224,224,32,96,348, 136,176.240 
9036 RESTOfic 9043: FOR I -USR " ■ 

TO USA ' ■j"*7 READ J POKE l,j. 



904S DATA »,. 

UU 2 6hft-rAl*ii. 192,192, 176,17 
21171, 192, 46,12,3,2,16, 36, 213 
9033 6ATA 170 , 170 , 170 . 1?0 ,234 ,36 
,14,3.192,176,172,171,170,170,17 

9060 e DATfl 3, 13,66 213, >70,213,17 
0,213, 170,66,170,65. 171,92,176,1 

9068 DATA 234,36,14,3,2,13,58.21 
3.171,220,176.192,192,176,172.17 



466 PRINT RT 21,0 



INK 1 
RAN0OMIZEU3R 3 

« t I • 3 " 

RANO0MI2E USA 



■jca 



-r.r 





HjaJ- 


-■■■: 




PflfNT 


3ETUR 




3APER 






RND 




OND *• 


15» (5 








16-tl 








Ui 


RETURN 





V RNO C»X TMEN PRINT P 
APER B, INK 3;AT v , x ; 4 • ; INK 6,A 
T V-l,X.l,dt: FOR L.0 f6 -40 3tE 
P -1' BEEP .005,1 NEXT I: 00 TO 

320 

310 IF 3;v_AnD q-x ...ANO_ni >4 TME 



3, AT v ,x, if 

FOR C-0 T 
6,1. NEXT 



PAPER 

; ink o;RT v-i,x*.,o 

6 -40 STEP -1: BEEP 

I : GO TO 320 

313 IF x«16* (6-«t ) *2 OR m8.II 
2 OR «t-0 TMEN PRINT PAPEA 6, AT 
v,xj" ": FOR 1.--10 TO -46 STEP 



I |" RRNOOMIZE U3R 3 

I^RPNOOMIinSR 3 

Bl^fOfi t-1 TO 11 RANDOMIZE US 



300 PfijlflT. c 



9076 OETUR 

9079 REM i>L_, 

9060 DATA 0,0,0,0,3,13 

37 171, 192,240,232,238,254,283,23 

9090 3 OATA -170.170,170,170,234.28 
07264,255,353.191,179. 171,170. W 

9av5 a 6ATR ass.sr^S**^?^ 7 !* 3 ! 

3, 170,213, 170.66, 170, 85. 171,98. 1 

9100°OATA 234,250.234,255,264,25 

3 7250,213,171,223,191.258,258,19 

9999 5 6a3^ "AL-eERT" UnE 1 ■ 

SPECTRUM 



OTO KROSS 



Su#ed«lapag0 14 



2*ee oa-a 219 .a??. sis .2* ,9a. 1.6 . 
90,2* .a* .2*. 68, s*. 13%, iss. ass. as 

5, i, 3,7. il.il. A3, 127,353 

a6ff i 6oto 12S . lfl2,33*,3**,3*B,23 



3. 35*. 235, 



« = =>, 00.68. 335, 1*3, 163, 153. 
»»,««., 3* .90. 135 ,94, 2*. 2 U. 353, 21 
9.32.74, 12* ,63, 73,66.32,6 
26*3 FOB C>« TO 6 
361* FOR r»* TO 7 

302* READ b POKE U3R C"R« (1*** 
CI ♦' ,» 
363* NEXT f 
26** NEXT ( 
3390 RETURN 

J 499 REM IliRIUleREM 
30* PRINTfl T 18,1 , INK 3, " 
■OT 19, 1 *. •■ ■■■. AT 10 • 
AT U LjC'Ti.lJ. I 
9.20 ■■■ .»T 
T 28 . ii^mT^ 
23*5 FOR 7T5 TO 31 PRINT RT 19, 
f . Ink 5, "1" next r 

331* LET PO-INT lRNO*0)»h: FOR ' 
•18 TO 2* PRINT RT f,PO, INK 3, 

"I", INK O,"!-, INK 3,"|-: NEXT 

f 

36** RETURN 

29*7 REM 

399B REM ■CURSIFICRTION RALLYEB 

2999 REM 

300* FOR f=l TO 31 PRINT RT f.l 

0. INK *,"••", AT f.23,"*»" NEXT 

-- o3«"ttlttlllW"- a *slNT R 

T 18,0, INK 6,d« 

3*02 PRINT RT 2,7, INK, J-"|": IN 

K 3,"EPREUUE CHHOnOMETREE"; INK 

3093 PRINT RT 4.11; INK 6, "Clttt 

i f . oiior." 

3085 FOR /-I TO LEN d«: PRINT RT 

10,f-l," ": 8EEP 0.5,f: NEXT f 
3008 LET I*-* LET tps-6*0: LET 
OUa* LET Vi«10: LET v-15: LET I 



3**9 POI-- 

3*1* LET h-10: LET 0.15 

3*18 LET Kah*INT (RND»3> 

391 ♦ <h di 

3016 POKE 33692,* 

309* PRINT RT 21, It" '■ 

310* PRINT TRB h, INK *,"••", 

3103 IF RN0>.9 THEN PRINT TRB h» 

PNO* (0-31 *2, INK 8, "f; 

3108 PRINT TAB h*0, INK *,"t»", 

3110 LET 0-0 - fRND> .Bl * <RND< . 11 ♦ I 

(0 <■*> *3) 

3115 IF SCREEN* ri«,vi<>" - THEN 

LET uu«l 
313* PRINT RT 10, v; INK 2; "W 
313* PRINT RT 9.V-I," " 
3133 IF uv*l THEN FOR r«l TO vi/ 
1* BEEP 0.03, 1 LET lpl-tPl-3: 
NEXT f PRINT RT 10, V," "{ LET u 
U.0 LET vav-Z 
3136 PRINT RT 0,3*, INK 3; It ■ i " l 

31*0 LET I-(INKEV*«"8-1 -CINKEY|a 

"3"1 : IF vi>160 THEN LET Z.Z.2 

31*3 LET vavn 

315* LET Vi -Vi *l UNKEY»-"7") -.IN 

KEY*."6"> 1 *3* 

3133 IF vi;10 TMEN LET vial* 

3136 IF vi>20* TMEN LET v i a200 

3157 IF Ipso* TMEN GO TO 33*0 

3160 LET K»«H«*INT lvi/10) 

3300 FOR ' -20 TO vi/10 STEP -t: 

LET IPS-lPS-l PRINT RT 0,5, " 

".AT 0,3, INK 6. IPS NEXT I GO 

TO 3*15 

3399 REM ■DECISION JURY...0I 
3300 IF la. 33*0 TMEN ClS PRINT 

INK 6, FLRSM 1,RT 10,0, "UOUS ET 
ES CLASSE POUR LE RALLYE",AT 13, 
10, 'ATTENTION' ' < < ■' PRU3E CLS 

RE~URN 
3318 ULS : PRINT RT 1O.0; INK 5; 
"MON PRUURE AMl''","NE SAIS-TU P 
AS OUE TU N'EST PLUSDONS Tfl 3 Cu 
..."- PAUSE CLS GO TO 300* 

3*9S REM BPRESENTRTIONfM 
3*99 REM LT DSfiPEflU S'ABSISSE.. 
3508 LET f-0. LET j-56 FOR 9*0 
TO 633 STEP 32: FOR X »* TO 33 ST 
EP 2 

3310 POKE 32S30*x»9 ,a : POKE 2253 
9*xtg,fi9S (a-S6> 
3538 NEXT x 
3530 LET fmf+f. IF f/2=INT < f /2) 



TMEN LET ».56 
35*0 IF r /So INT 'f/31 THEN LET 
a a* 

335* NEXT i RETURN 

3600 PRINT RT 1,6, INK 3,'T , IN 
K 3," GRRND CROSS '8* b i INK 3 
:"§*■: FOR 7a3 TO 1* PRINT RT f, 

0, INK 7,"V; RT f,3,'V" NEXT I 
PRINT RT 3.1. INK 7, T V'-,RT I*, 

1, INK 7, •■/<•• 

3610 PRINT AT 6,1] INK 7, •»*.", «T 

3530 LETi «•"■■" 

3623 FOR f ■! TO 3 

363* PRINT RT 6,1, INK 6 , * f , AT 7 

3633 IF fas TMEN BEEP 0.3.0 PA'J 
SE 50 

3640 PRINT RT 9,1; INK 2,a»,AT I 

0, 1, at 

36*5 IF f»2 TMEN BEEP 0.5,5 PRU 

SE 50 

3650 PRINT RT 13,1, INK I , a f , RT 



NEXT 



3E 50 

3560 LET n = 

3670 RETURN 

3999 REM WtZ . ._. 

*0*0 FOR TTb TO 8 5TEP^-2 SEEP 

.05,' NEXT ( FOR ' =8 tq 13 BE 

EP .03,-5 BEEP .05,-10 NEXT I 

4001 GO SUB 50*0 

4*03 IF v»-"" TMEN GO TO 9*00 

*a05 LET Ulivill TO LEN vt-21 

4*18 RETURN 

500* IF d*j*>l TMEN LET d«jas0 

GO TO 50E0 

3010 FOR /-l TO 20: PRINT RT u*l 

PNO *ll -3, v • IRND**> -3, INK INT (R 

N0t2> *6. ".-: NEXT r 

503* CLS 

5125 POKE 23693,0 

3126 REM PLUS DE UOITURES -1 

5137 IF v|«"" THEN GO TO 9000 

5130 IF nult«l THEN GO TO 520* 

S135 FOR i>l TO 21: PRINT »T i,h 

, INK ** <ne t ge *3> , INUERSE ntiqt 

.-•♦■■;flT i ,t,+0 ;"**■■ , INUER5E * 



53*0 RETURN 

3999 REM IBTME ENO...H 

6080 IF 1»>KS THEN INPUT "UOUS A 



'■UOTRE NOM S 



ORE '.AT 8,19, "PI f 



■^t .«i o , 4 ?, k a • 
_0*B PRINT AT 1*,7,K», 

6838 IF INKCY«< 



18,18k 

TriCN 00 TO At 

6*60 IF INKEYia'- THEN 00 TO 5*6 

9 

6*7* 00 TQ 780 

6999 REM iBPLElN OE FUEL.! 

7000 LET 77Jtl.a7e* 

7010 FOR i 

0.03, f NL 
7 108 RETURN 

7.9S BEH lifcRflSM RUEC UOITURCSM 
3**0 FOR HI TO 13 
8*10 IF RN0>.5 TMEN INK 3 
603* IF RNt><.3 THEN INK 7 
8*30 IF RN0(.6 AND RN0>.3 TMEN I 
NK 6 

80*0 CIRCLE v*a*flN0**.u*9»RN0t** 
8,«: NEXT I 

8043 LET dctal 

8050 GO TO_*000 

8999 REM Ifc'EST f;>.M 

9*00 ORTA^.0 .1.2. .3^^. 5 3-1 * 

1,8, 1,2, .5,3. .3,3. :.0, 1 3 1 5 i 

7, 1,3,1,3.2.7 , .75 - .;? ; .; .- . 

3.5, .5,3, .5.2 I ? 

9^1* 3RTA ."-S 7 .35 3 .3 ~ .3 3 

.3.3.5.3.1.0 1 2 1 -9,2 i : i.l 

.-5,2.0 

9030 RES'ORE 5000 

9*33 FOR Fal TO 35 

9*4* HERO * RER? 9 SEEP BvJ.a 

NEXT F 
9030 IF INKE\«.> Tm£n _ET *a36 

GO TO 6*0* 
9*6* GO T3_90O0 

9099 REM MiaCCELERRTlONM 

9100 FQR 7T.30 Tp -33 BEEP 0.02 
. I NEXT ( 

9599 REM BPTITE Mu5I0UE'M 

Boae for TTi to 2 let i..5T be 

EP :.0 BEEP 1.0 BEEP I.* 8EEP 

Z.3 BEEP I U BEEP Z.3 BEER 

Z.10 BEEP Z.3 BEEP Z.8 NEXT f 

991* FOR fal* TO STEP -1: BEEP 

I.f NEXT t 

9938 RETURN 

9930 STOP 



9940 SS 1 



'0T0KR0S5S" LINE 



SPECTRUM 



LDIR 



II est capable de faire des tris sur 30 fichiers maxi en 
un seul programme, c'est I'utilisateur qui definit chaque 
fichier (nombre de fiches et longueur). 
Les fonctions insertion, suppression, recherche, listing 
sont tres rapides (duree maxi: 1 seconde). La routine 
en langage machine. situt§e ligne 1, est tres facile a 
utiliser et est programmable a partir du basic; on peut 
done la transposer dans un autre programme. Pour sa- 
voir comment I'utiliser il suffit de regarder comment j'ai 
congu mon programme. Je I'ai nomme: 
LDIR: L pour listing d'un fichier 

D pour destruction dune fiche. 

I pour insertion d'une fiche. 

R pour recherche d'une fiche. 
LDIR signifie en langage machine "transfert" ce qui cor- 
respond a mon programme. 



Fabrice DECROIX 

Commandes: L: liste, D: dStruit, I: insert. R: recherche, C: efface 
I'ecran, S: scroll. M: menu. 

L'insertion se charge de classer en ordre alphabetique. 
Anention: toute fiche commencant par un espace sera refusee par 
le programme. 

Pour lancer le programme taper uniquement GOTO 1 
Lancer I'initialisation pour annuler toutes les donnees (variables) et 
pour dimensionner les 30 litres possibles des fichiers. Le pro- 
gramme ne marchera pas si I'initialisation n'a pas ete creee. 



CCRITURE EN VIOEO NORMRLE 
CARRCTEPES EfJ UIDEO INUERS 


>ES 


;e 


LX0MG CRRRCTERES 




3 REM TOLtTES LES LIGNES 


REM 


SONT lN0ISPEr*3R6uE5 RU FONCTION- 


NEMENT pu LOGICIEL 




970 . . ,'FICMIER" 




3020 . . . 'INSERTION'' 




3020 . . . -SUPPRESSION'- 




4030 . . . RECMERCHE" 




3815 . . . LISTING" 




514* ...-TAPER RETURN- 




602* . . . 'CREATION" 




6138 ...nOUUERU FICMIER'' 




632* . . . -RNNULATION" 




6530 ... -INITIALISATION" 




6713 ... ■■CONSULTATIQN'■ 




6870 ..."UOTRE FICMIEB EST 




CQMPLET" 




7813 . . . PETOUft 




703* . . . "GOTO 1" 




8 PEM MARCHE SUR ZX 81 P, 


J EC 


PLUS OE 10 KO DE MEMOIPE 




9 GOTO 1888 




9.235 LET XX ' DEEK 1*388. PEEK 


1639 


B .fg 6 LCT TY.PECK 16404.PEEK 


16*0 


28 LET XXaXX- <YY*300) 




33 LET XX»XX-iA»B) 




40 LET L-3GN XX 




43 RETURN 




50 PRINT AT 15,0, "MEMOIRS 


REST 


ANTE INSUFFISANTE" 




6* LET A»l 




7* LET B»l 




75 G0SU8 1* 




76 IF 3GN XX-3GN -PI THEN 


LET 


XX. NOT PI 




80 PRINT "IL RE5TE ".XX," 


CRRR 


CTERES LIBRES" 




9* GOTO 623* 




10* OIM A« ifl.Bi o 




103 RETURN 




118 DIM B« (A,Bi a 




US RETURN « A 




12* DIM Clifl.Bl ii^ 




123 RETURN ° Z\ 
130 DIM P»(R,Bl • l\r> 
135 RETURN J* 








140 DIM E«*A.B> /\ ^ 




143 RETURN m'^^"'^^ 
13* DIM F«lfl,Bl fi^ f 






155 RETURN ^ 




160 OIM GKfl.Bl 




163 RETURN 






PET URN 

DIM Jtlfl,Bj 

RETURN 

DIM KtlR.6) 

RETURN 

OIM Lt(ft.B) 

RETURN 

DIM M|(ft,B) 

RETURN 

DIM Nt<A,B) 

RETURN 

DIM OKA.Bl 

RETURN 

DIM ■■ \ <d ,B1 

RETURN 

DIM 0« ffi ,B1 

RETURN 

DIM R|(R,6I 

RETURN 

OIM St<A,6> 

RETURN 

DIM T*(fl,8I 

RETURN 

OIM UflA ,8) 

RETURN 

OIM U|{R,Bl 

RETU~- 



:, : ; i 



J|ifi,B) 



RETURN 

DIM X«IA,8) 

RETURN 

LET Z«.RtlLl 



*03 LET fl|lu «z* 

407 RETURN 

410 LET Z»«B«(L1 

412 LET B« (L) >Zf 

*1? RETURN 

*2Q LET ZhCliLl 

*23 LET CIIL) «Z* 

437 RETURN 

430 LET ZI=0*IL1 

432 LET D«(L) "Z« 

437 RETURN 

*40 LET Z»«E« IL) 

443 LET E»(L) *Z« 

447 RETURN 

450 LET Z««F»fL> 

432 LET F*(L) aZt 

457 RETURN 

460 LET Zt«G»(L) 

463 LET GtiLl »Z» 

467 RETURN 

47* LET Z«aHf.(i_) 

472 LET M» CL1 «Zf 

477 RETURN 

480 LET Z«aI«(L) 

432 LET I«(L1 -Z« 

*87 RETURN 

490 LET ZtaJKLt 

492 LET Jt(Ll aZt 

437 RETURN 

300 LET ZfaK«(L) 

502 LET K«(L» aZI 

507 RETURN 

510 LET Z|«L« IL1 

512 LET Lt(L) aZ» 

517 RETURN 

520 LET Z«aM«(Ll 

522 LET MtlLi «ZI 

527 RETURN 

530 LET Z»aN» (L) 

332 LET N«(L) -Zt 

537 RETURN 
" LET " 
._ LET 

5*7 RRTi 

35* LET Z«aP»(L> 

553 LET PtlLl aZ« 

337 RETURN 

550 LET Z*«0.'L1 

562 LET 01 (L) aZf 

367 RETURN 

570 LET Zt«R«(D 

572 LET R«(LI -Zt 

377 RETURN 

5B0 LET Z*aS«(Ll 

382 LET SttL) aZ« 

3B7 RETURN 

590 LET Zl»T| (LI 

393 LET TilL) -Z« 

397 RETURN 

600 LET Z»-U«{L) 

603 LET U«(L) aZI 

607 RETURN 

610 LET Z»aU$(LJ 

613 LET Ut 1L1 aZI 

517 RETURN 

62* LET ZliUtlLI 

633 LET Ui(L) -Zt 

637 RETURN 

63* LET Z«aX|(L) 

633 LET Xj 1L1 -Zt 

537 RETURN 

80* PRINT AT 10,0, "UNE ERRCUR ft 

ETE OETECTEE'VUEUlLLEZ RECONSI 
DERER-, "UOS ENTREES" 

610 GOTO 6330 

830 PRINT RT B,B,"ENTRER LE NUM 
ERO DU FICMIER" 

33* INPUT XX 

8*0 IF XXfl OR XX>30 TMEN OOTO 
83* 

65* IF Yt(XX,lla" - THEN GOTO 6 
9*0 

860 POKE 16417, CXX*CODE "9"i 

970 GOTO VV 

90* INPUT Zl 

91* IF LEN Z.-8 THEN SOTO 9*0 

920 IF Ztll>-'" " TMEN OQTO 90* 

930 GOTO VY 



970 PRINT AT 

98* PRINT Vt ( 

990 RETURN 
10*0 GOTO USR 16316 
1010 REM M 
20** PAND USR 16516 
301* REM C 
3013 G0SU6 930 
3*2* PRINT AT 0,7, "H 
2*3* LET YV.2*7* 
3*40 GOTO 820 
2*70 G03UB 970 
2*30 PRINT RT 7 
ME R INSERER" 
2898 LET YVa310* 
2*93 GOTO 9** 
2100 LET L-USR 16316 
3110 REM I 

2130 IF NOT L THEN GOTO 900 
3130 G0SU8 392*10.XX 
2140 PRINT AT 9,*; -INSERTION EFF 

2143 GOSUB 39*.i*»XX 

2130 PRINT AT 11,*,Z« 

216* GOTO 633* 

3*08 RANO USR 16516 




,0, "ENTRER Lft FIC 



3020 PRINT AT *, 7, - 

3*3* LET YY-3070 

3040 GOTO 830 

3070 GOSUB 970 

3080 PRINT RT 7,0; 

ME 10U DEBUT DE- '- 

IMER" 

3*9* LET YY.3100 

3*93 GOTO 900 

3100 LET LaU3R 16516 

3110 REM D 

3115 IF NOT L TMEN GOTO 800 

3130 PRINT AT 10, 0, "SUPPRESSION 

EFFECTUEE- 

3130 GOTO 6230 

4**0 RAND USR 16316 

*810 REM C 

4*15 GOSUB 930 ^^..^^^ 

4030 LET YY-4045 

*0*0 GOTO 820 

40*3 GOSUB 97* 

4030 PRINT RT 7," " 

HE (OU DEBUT OE" 

RCMER" 

4*70 LET YYa*080 

4*73 GOTO 9*0 

*090 LET LaUSR 16516 

*093 REM R 

41*0 IF L THEN PRINT RT 1«,B;'TI 

CME EN HEMOIRE" 

*110 IF NOT L TMEN PRINT RT 10,* 

, "FICHE INCONNUE" 

*13* IF NOT L TMEN GOTO 6230 

*13* GOSUB 39**1**XX 

4140 PRINT RT 12,0, Zt 

4150 GOTO 6230 

5*0* RRND USR 16616 

3*1* REM C 

3*13 GOSUB 93* 

3015 PRINT AT ~ - WaMinr 

3*30 LET YY-3060 

5030 GOTO 83* 

5*60 GOSUB 970 

3070 PRINT RT 7,0; " 

T RRPIDE- 

3080 PRINT AT 9,0. ' 

ENTANE" 

3090 PRINT AT 11,0; 

5091 FOR G-l TO 40 

3092 IF INKEYK >"" 



DEFILEMEN 



TMEN GOTO 309 



ANNULftTI 
NITIALI 



3093 NEXT G 

5*93 RAND USR 16316 

3*96 REM C 

3100 RftNO USR 16316 

5118 REM L _^_^___ 

3140 point at - * iimaUM!! a ffray 

5130 IF INKEYto-Y" TH?U SSTu 31 

5* 

5160 GOTO 1000 

6000 RAND USR 16516 

6010 REM C 

6015 GOSUB 93* 

602* PRINT AT 0, 

603* PRINT RT 7,0; "1 ) "6EffTI0N 

D""UN NOUVEAU" , ."FICMIER- 

604* PRINT AT 16,0, "" 

ON D-'-lJN FICMIER- 

6*5* PRINT AT 13,0, " 

SRTION" 

6*55 PRINT AT 14,0,"* > C0N5ULTA 

TION DU NOM D""UN" , , "FICMIER" 

6*57 PAINT AT 17,B,"5 > RETOUR" 

6868 INPUT A 

38B3 IF A«S THEN GOTO 1000 

6*7* IF A(l OR R>* THEN GOTO 606 



6080 GOTO S90Q+2**tA 

61*0 RAND USR 16516 

611* REM C 

6115 G05UB 930 

613* PRINT AT *, 

8t30 print rt 3,*;-entrer le nom 
bre de fiches' ."desirees- 
614* input a 
6138 print at 8,0 "entrer lr lon 

GUEUR OE UOS flCMES" 

6160 INPUT 8 

617* GOSUB 1* 

6168 IF LaSGN -PI TMEN OOTO 80 



OJS0 PRINT AT 10,0, "UOUS AUEZ UT 
ILISE LES", "30 FICHIERS DI3P0NIB 

6330 PRINT RT 31,0, "TOPER UNE TO 



6340 NEXT G 

633* GOTO 1*00 

6360 GOSUB 90*l*iO 

6363 PRINT AT 10 ,*," ENTRER LE NO 



M DE UOTRE FICHIER 
6270 INPUT Y»<G,2 TO 
6275 PRINT AT 13,*,"Uu 1Mt 
R PORTERR" , "LE NUMERO ".G 
626* LET YtlG.ll a"l" 



UOTRE FICHIE 



6283 GOTO 8230 

5300 RANO USR 16516 

5310 REM C 

5313 GOSUB 950 

6330 PRINT RT 

6330 PRINT AT 5... 

ERO CORRESPONDANT 

63*0 INPUT G 

63*5 IF C<1 OR G>3« THEN GOTO 63 

*0 

6330 LET R«l 

6360 LET B"l 

6370 IF YtlG.l) 



THEN GOTO 69 



63B* LET Y«(C, 1) a" " 

639* GOSUB 90.G.18 

6400 PRINT RT 8,0, "flNNULATION EF 

FECTUEE" 

6*10 GOTO 6330 

630* RAND USR 16516 

6310 REM C 

6315 GOSUB 930 



6330 PRINT -EFFECTUEE- 
6368 PRINT RT 7,0, 
6370 OOTO 6* 
6700 RAND USR 16316 
671* REM C 

6712 GOSUB 95* 

6713 PRINT ftT 
6720 PRINT AT 5 , k- , . 
ERO DU FICHIER OUE UOUS UOULEZ C 
ONSULTER- 

673* INPUT G 

67*0 IF G<1 OR G>30 THEN GOTO 67 

30 

875* IF Y«(G,l)a" - THEN GOTO 69 



6765 POKE 16*17. ._ 
677* LET LaUSR 16316 
6780 REM J 
6790 PRINT RT 12,0;"UOTRE FICMIE 
R COMPREND " 

6880 PRINT AT 14,1,-- NOMBRE DE 
FICHES", TAB 27, "6" RND Ltl00«;"0 
" RND L<1*0,*'*' RND L110.L 
5810 LET L-USR 16516 
6820 REM K 

6530 PRINT TRB 1,"- LONGUEUR 0"" 
UNE FICME",TRB 27, "0" AND L < 10*0 
, "«" AND L<1«0,"0" AND L(10,L 
6840 LET L-USR 16316 
6850 REM M 

6860 PRINT TRB 1J "- NBRE OE FICH 
E","S" AND L>1,- LIBRE", -3" AND 
' )1,TA8 37,-0" AND L < 1*0" " 
AND I 



PRINT ftT 18, 
6890 GOTO 6* 
6900 PRINT AT 16, 
THE CORRESPOND" . " 
N DEFINI" 
691* GOTO 6230 
7*0* RftNO USR 16516 
7*10 REM C 
7013 GOSUB 930 
7013 PRINT AT 
7020 PRINT AT 5,0, "N "OUBLIER PR 
5 DE SAUUEGARDER" , "UOS DONNECS " 
UR UNE CASSETTE" 

7*30 PRINT AT 8 , "POUR LANCER 
C PROGRAMME" ."TAP 1 — 
7*3* STOP 
9997 STOP 
J99B SAUE "LDUB" 
9999 GOTO 1 




SINCLAIR ZX 81 



PARC FANTASTIQUE 



Ce qui devrait etre une petile promenade sans histoire 
toume vite a la randonnee et meme a lepouvante 
quand un ligre mangeur d homme vous guette ou que 
Lucky Luke vous defie en duel. Plus question de re- 
brousser chennin, il ne vous reste plus qua tenter 
d'echapper aux fleches empoisonnees et autres zom- 
bies agressifs... 
Parviendrez-vous a la sortie?. 

Vos chances sont minces, mais vous pouvez toujours 
abandonner. 

G. BOUGI 

Toules tes instructions de jeu soni dans te programme. Bonne 
chance' 



448 IF Et = 



ECRITURE EN VIDEO NORMALE DES 


CARACTERES EN VIDEO INVERSES 


u:;m 


CARACTERES 


134 


..... :di ... (A> . . . 


178 


.... .'.CRD. . .SuO. . ,E5T. . . 


180 


.."ENTREZ. ET PERDEZ TOUT 




espoir. . . 


ias 


..2.1.2.3- 


338 


. . 0" ..."A' 


3?a 


. . N...S...E-. 


QM 


.. FLECHES 


iocs 


.. zonSICS 


1333 


..-L.EC JEL 


1515 


. . ATTEnOEZ -E signal 


i5*a 




1619 


. . *FEU" 


issb 


. . sou i c 


1678 


. . JCM 


i7ca 


. . -=:Cn£jR 


Maa 


. . 18 5EC0N0ES 


234.8 


. . FAUX" 


3SC2 


. . ■ LE bouffrc 


asea 


. . 8. . .5. . .13.. .13. . .28. .. 




25. . .32 


cea« 


. . R5^S5I 


2695 


. . 5»LRTCn ■ 


3aae 


. . LE TESTE-HEHC l-z. 


322 2 


. . FAL ■ 


4323 


,. TIORE HflNGEuR C i-O^MES" 


5323 


. . _ OGRE '.'SM'E.' 


5338 


. . FAU> 


6838 


. . CMACALS. 


62 3 a 


. . 1. . .6 


7388 


.. _; ~r:c"E'.r -s = = 5 = in" 




. . . 'DE5 


7118 


M. . ,B. . . 


7*48 


. PLUS 


74B8 


. . WINS 


9842 


. .-ue fanrtioue des 




NOnBRCS" 


0335 


PERDU 


9532 


. . :.; "Z-SEZ DANS UN 




PRECIPICE" 


9652 


---:;. 


35~6 


. . JNE SAGE DECISION ' 



* GOTO iC 

5 LET Et«INK.E/t 

6 IF £««"'■ TflEN GOTO 5 
? RETURN 

a FOB T*X TO L-INT t L*N 

9 NEXT T 

10 RETURN 

22 Dm BO> 

22 LET J l.B 

24 LCI J2>*J1 

26 LET -J3.J1 

28 LET ulul 

32 LET _2=JI 

35 LET TTs5 

te let ar=3 

-15 _E" =E=9523 

~2 _-~ -S = -- = .; "rt%T-£T 

n let at = - — "'-'^'" ■■-— 



123 LET r>t-"| ■ ■ ■ 

138 PRINT TAB 7, At, TAB 7, St. AT 
3,1; eienuEnue au ".At 
:_2 PRINT ..■ U0U9 DEUCZ TSAVER 

SEP lE PARC DU DEPART iB> R L 

ARRXUEE ■£' " 

ISO PRINT . . PEnSEZ CUE LE Cm 

EHIN LE PLUS ■ 

168 PRINT ' COURT N' EST PAS T 
0UJOUR5 LE THE 12. MEILLEUR. . ." 

178 PRINT ., CESTEZ 5U» LE CHEH 
: . ET R4XCZ SU ■ORD 1MRUTI , RU 

fjo bas> -,™ et a i."' asT I 

_ OITEi ■ 
183 PRXMf , RETENTION, 
" ltt "*• 



TOdfftii 




-3" PR 
isCrRMl __ 

138 IF INKEV*= T«EN GOTO 

L91 IF iCODE InkEY«><28 OR (CUO 
£ INKEVfi >31 THEN GOTO 198 
192 LET HauAL [M E-« 
19* LET A=39S 
196 _et b.o 

KJTO 248 
200 IF n<3 TuEN GOTO 285 

222 LET A -393 
283 LET 6-8 
204 GOTO 24.8 

206 LET Q.A-33»lNT (A/33) 

287 IF 0:8 TmEn LET A. 398 

288 IF 0-8 THEN LET A.481 

289 IF 0»6 AND 0(16 THEN LET A* 
4M-H 

218 IF 0>15 AND 0<31 THEN LET A 
-4 11-N 

212 IF 0>58 AND 0<26 THEN LET A 
.416-" 

214 IF 0'25 ANO 0(31 THEN LET A 
=*21-2*N 

215 IF A. 427 THEN LET A*426 

223 LE" L-122 
238 OOSUB AA 
2*0 CLl 

253 PRIfJT TAB 7. A*, TAB 7,Bt,.TA 
- .. '.I-JEAU .N, AT 7, 6. C| 

260 PRINT TAB 6. ■ .Tfie 1*. 

tab i9. r - 

283RRII 
B i 



^:-jt rne 5, s .TAe 1*. ■ . 

. « .TAB 24._B.TAB 6. CI 
*"S 3. AMI '.TAB 12. 
19 ■ rflfl i* . I -,•-„% ,i TO 

■B j, ■ ■_.tab ie, " 

TAB 2*,li',TAB 29. 



■ B 14. 1- 
B 7,C«. ■ 

h. Us ov B<D> 



380 PRINT -a-'Ctl TO 1*1- 
*Cf <1 TO 12 i , a 
318 PRINT TAB 7.0»,TAB 7.0».TAB 
7.C«*-li- 

3*0 PRINT TAB 

"RB i- ■ ■' .Tae 
37fl PRIST . --a*i" 

398 LET C=PCEK 16396»356»PEEK 1 
6 397 

*30 POPE C.A.S3 

*10 GO SUB TT 

*28 POKE C*A,8 

t.'C IF El> E OR E««"0 - THEN LE 
T fl.A.l 




OR Ef 



THEN LE 



:-" =166 



LET 



OP E«."H- THEN LE 

T Rcfl-33 

*6~ ^£T SiB*l 

J.-3 IF PEEK .C.A.=8 TnEN GOTO 9 
520 

*S2 IF A=4.23 ~.Z PECK 

ThEN GOTO 9788 

*90 LET D=20-N,2 

SOO IF R i.'O RNC -'453 THEN 
a ,- -■. . ;-.- =r.D»2' *1 

5:0 IF S, 323 OR A>532 THEN LET 
: :2 3 

520 LET E=INT iRND»D<*l 

532 IF E>9 THEN GOTO *08 

5*2 IF E'3 AND B.-.N THEN GOTO 
300 

S92 LET PP=INT iRN0*2) 

780 GOTO 723 

7IC LET £=£.! 

715 IF E>9 THEr4 lET E = l 

728 IF E«J1 CR E»J2 OR E«J3 THE 
N GOTO 710 

722 LET J3=U2 

734 LET J2sJl 

725 LET JleE 

7*S CLS 

758 GOTO E*I380 

838 ClS 

813 PRINT AT 12 . 3 . " RETOuR R LA 
CASE DEPRPT. . .- 

822 LET L=125 

825 &OSUB AA 

322 GOTO 232 

900 LET F«»"a 

910 LET Ot«"El 

920 LET T»»"I 

933 CLS 

9*e GOTO 8885 
1888 IF PP T 
1885 LET F«« 
1818 LET r»l_. 
1028 GOTO 5020 
1580 PRINT — 
1510 PRINT 
US DEFIE. . 
151 5 PRINT 

aai puis. . 

1520 PRINT 
R, . -SINON. . ." 
1530 FOR I»l TO 7 
15*0 PRINT RT 15, 1* 



EnPOXSOHNEES 



TIREZ LE PREMIE 



1";trb I* 

l^Sa^IF 1-7 THEN GOTO 1638 

1568 F-R F"l TO 18 

1565 NEXT F 

1578 PRINT AT 15,14-1," " , TRB I* 

1*; ' 

THEN GOTO 178 



1618 PRINT AT 12,13 

1628 fop 1.1 rr 

1838 IF INKEYt 



THEN GOTO 167 



1680 GOTO 220 

1722 PRINT AT 12, 10 . 

T 15,2, "UOUS ETES JUGI 

1710 GOTO PE 

2300 IF PP THEN GOTO 2538 

2835 PRINT 'EPREUUE DU HATmEhATI 

ciew fou. . ." 

2013 PRINT B«»Bfll TO 14) 

2838 PRINT AT 3,*,"V0U5 OEMEI AD 

DrriONNER- 

2853 PRINT RT 5.3. "LES N0MBRE5 

DE LA SERIE" 

2373 PRINT RT 7 , * , "C I -OESSOUS EN 

HOINS OE" 

1253 print at 9,5. Er^BEtHKal 



51 UOUS T 



r. h /. I m 

2100 PRINT RT 12,3, 
APOEZ TRQP. . .*" 
2185 PRINT TAB 3,B«»B«<1 TO 8) 
2118 LET *»■"- 
2138 LET H««"*" 
2135 LET M.INT (RND*3»*1 
2148 FOR I»l TO 1*H*2*N 
2153 IF I»1»M*2*N THEN LET HI-"" 
216e LET /li't'JTBI (INT (RND»91 
•It *Mt 
2173 NEXT I 

2198 PRINT RT 16 , 5 , Xt, " »?" 
2288 ROf-E 16*36.255 
2213 POnE 16*37,255 
2228 INPUT K 

2238 LET P. (PEEK 16*36 ) *356 »PEEK 
16*37 

2232 CLS 

2233 LET X«.STfli URL Xt 

22*0 IF K OURL Xf THEN GOTO 2348 

2268 PRINT 'CORRECT... 1 ',,,, 

2270 LET L-95 

2275 GOSUB AA 

2280 IF P<65888 THEN GOTO 2328 

2290 PRINT "UOUS ECHARPEZ R LO H 

ORT. . ." 

2318 GOTO 228 

2320 PRINT 'MAIS UOUS RVEZ MIS T 

POP DC TEMPS' - 

2330 GOTO 23 70 

23*e print ' aan. . 

2363 LET L-82^ 
2355 GO SUB AA 
2380 PRINT "LA REPONSE ETAIT " , X 

2368 LET L-110 

2385 GOSUB RR 

2393 PRItfT . ,"PREPAREZ-UOUS R RE 

JOINOPE. ......... .U05 ANCETRES 

a*80 GOTO RE 

2502 PRINT TRB 13, ¥4aBPGB33 
2518 PRINT . . . , "POUR TBBueBsKb , 
VOUS DEUEZ " . -ACCROCHER VOTRE ^0 
ROE AU PITON ROCHEUX. fl COMBIEN 
OE METRES" . "ENVOVEZ-VOUS LA COP 
DE 7- 

2528 LET X.12»INT 
2538 PRINT AT *' 
- ,TOB J 



aSTT^oR . 

2553 PRINT 
TO 32-X) 

256e NEXT I 
2562^RINT ;;-; 



AT 18,8. ' - 

1 1 'TQ 19 

■MM ---- 



2566 FOR I«B TO 4-N 

256^ NEXT I 

2566 PRINT RT 21,8.01 

2570 INPUT XX 

i^-'S IF XX(6 OR XX>33 THEN GOTO 

2578 

2568 FOR 1-3 TO XX-1 

2593 PRINT RT lB,I,"-0" 

2633 NEXT I 

2618 IF Xi .XX THEN 

2628 PRINT RT r " 

26*0 GOTO 328 

2563 PRINT AT 18,8.0»l 

2670 FOR 1-18 TO 20 

3680 PRINT AT 1,5. " 

269eNCXT I 

2695 PAINT AT 21,5, 

2703 GOTO 9528 

3232 PRINT " 

MANIROUE" 

3018 PRINT -^AB 3,8t»Btl 



C0T^265i 



r-E^-ORISEZ LA 



•CHRt i38»INT 



3322 PRINT AT ! 
SERIE SUIUANTE 
3335 LET It."" 
33*2 FOR rt-1 TO 
3350 LET Ililf 
-•■: -It 1 

32^2 NEXT : 



3893 LET _ 
3395 COSUB AA 
3188 CLS 

3118 FOR 0-29 TO 31*N 

3122 PRIST .."OUELLE ETAIT LA LE 

TTRE ",CMRt 0, " *', 

3130 GOSUB TT 

3153 IF Et. >It < iC-28) *2' THEN GO 

TO 3218 

3155 PRINT CHP.I ;CGDE Et'128' 

3152 IF INKEVj. >'■■ T-E-; 3C"0 316 

8 

3178 NEXT 

31=3 PRINT ,,"BIEN uOUE, C""EST 

JUSTE. . . " 

2232 GOTO 223 

3210 ClS 

3222 PRINT "999 

T It* i0-28> 

322^ :-2TQ PC 
£232 LET Ft*"' 



LA LETTPE ETAI 



4315 LET Jt«-0 
i232 PRINT TAB 
S 9; Bt 1 1 TO 10 
iC = 2 PRINT , ,-' 
CE5 PORTES","!! 
-^82 PRINT .,"1 
O^fi COnTIN'JER",. 
- 1 ; ,-? - : p : = - to 
4118 print tab 2 

B 22. Ut 



r -=; ^:rte3' ;Tfl 

OEPRIERE UNE DE 
Y R UN ";Ft 

UVREZ UNE PORTE P 
AT 13 . , 

Jt.TRB 12,Jt,TR 



,TAB 4, l.TRB 14.2.TA 



4160 LET R-INT 
il-'O GOSUB TT 
4183 IF Et'' 1" 
~~ 4170 



OR Et>~3" THEN GO 

4133'PRINT AT 19 , 1«*VA L Et-6,CHR 

t (CODE Et*128! 

4185 FOR 5=1 TO 3 

*190 FOR T»18 TO 18 STEP -1 

4380 PRINT AT T , (S-ll * 18*2 , " 

4285 IF T»14 AND 5aR THEN PRINT 

RT T. (R-li »18.2: "TIGRE" 

*213 NEXT T 

*223 NEXT 5 

*238 LET L-B8 

*235 GOSUB RA 

*2*3 IF UAL Et»R THEN GOTO 9603 

4253 PRINT AT 20.7. "UOUS ECHAPPE 

Z AU",TAB 4, Ft 

4270 GOTO 220 

5033 PRINT TAB 7 , ' EHB^iKHfig; 
O'.TAB 7,Bt' TO 151 

5038 PRINT ,," DITE5-LUI SON NOh 
(SINON 'JOUS SEREZ MIS EN PIECE 
S. . .DETACHECS) " , ." UN ECLAIR V 

OUS LE SOUFFLE ".TRB 8, "REGARDEZ 
8IEN 



5888 


LCT 


U-13-13»NI .INT (RN0»4.N 


5898 


LEI 


U-12- (*»N1 .INT 


RND«7»N 


5188 


LEI 


U-INT <RND«e 


• 2* 


-8»N 


5102 


IF 


U-Ul OR U*U2 TMEh 


GOTO 3 


100 










5184 


LE' 


Ii3-Ul 






5136 


_E" 


Ul.VJ 






5118 

CK" 

5113 

LD" 

6114 

D" 

S116 


ff 


U-8 THEN LET Ft-' 


FREOERI 


IF 


U«l THEN LET Ft-' 


RRCHIBR 


IF 


Ua2 THEN LET Ft»' 


REGINRL 


IF 


U«3 THEN LET Ff 


UIN3T0N 


5118 


IF 


U«* THEN LET Ft-' 


UILLIflM 


5128 


IF 


U.3 THEN LET Ft-' 


CYRIL" 


5122 


:<-- 


U-6 THEN LET Ff»' 


CECIL" 


5124 


IF 


U-7 THEN LET Ft-' 


CHARLES 


5138 


IF 


U-8 THEN LET Ft-" 


JUPITER 


5133 

E" 
3134 

UEZ" 
5136 


IF 


U.9 THEN LET Ft-" 


NARCISS 


IF 


u-18 TMEN LET 


Ft 


"RODRIO 


IP 


U»ll TMEN LET 


Ft-'RBRRHA 


S136 
HE- 
SI 48 


IF 


U»12 TMEN LET 


F«="ANTHEL 


IF 


U»13 TMEN LET 


Ft- "OIMITR 


5143 

D" 

5146 

IEN" 
3146 


XT 


U-14 TMEN LET 


Ft 


EOOUAfl 


IF 


U-15 TMEN LET 


Ft 


"VICTOR 


IF 


U-16 TMEN LET 


PM" JUL IEN 


3150 

s ■ 

5152 


IF 


Uel7 THEN LET 


Ft 


"ANDREU 


:f 


U-18 THEN LET 


Ft» "CVRIL" 


3154 


:r 


U-19 THEN LET 


Ft 


■■rCiflp- 


5136 


IF 


U-38 THEN LET 


Ft-'MARCEL 


5158 


IF 


U-21 THEN LET 


Ft 


"NESTOR 


5160 


IF 


U.22 THEN LET 


Ft-"PACOME 


5163 


IF 


U«23 THEN LET 


Ft 


' JUSTE" 


516* 


IF 


U-24 THEN LET 


Fl 


"REX" 


5165 


IF 


U.23 THEN LET 


Ft-'JO" 


516B 


IF 


U-36 THEN LET 


Ft-'PAUL " 


5178 


IP 


U.37 THEN LET 


Ft-'VEF " 


5172 


: r 


u-38 THEN LET 


Ft 


"LUC" 


317* 


IF 


U-29 THEN LET 


Ft-"CLRUDE 


5176 


I- 


U-38 THEN LET 


Ft 


ERIC 


5178 


IF 


U-31 THEN LET 


Ft 


"RENE" 


5198 


LET L-30 






5195 


G03UB AA 






5203 


PRINT RT U,U,F| 






5301 


FOR T-l TO 7-t2« 


Hi 




5232 


NEXT T 






5203 


PRINT RT U.U," 






5323 


CL3 






3238 


PAINT "OuEL EST 


ION 


NOH V 


5343 


INPUT Kt 






S232 


CLS 






5283 


LET L.4 3 






3276 


PRINT OCR. ... 






5283 


GOSUfl rr 






5592 


PRINT "UH. . . . 






3322 

5318 


GOSUB A A 






PRINT "ERR. ... 






3323 


GOSUB AA 






5338 


PRINT CR ETRE. . 






5348 


OOSUB RR 







535* IF • | ■*% 

3353 PRINT AtTTt 

8353 GOT; 22J) 

5332 print an 

5335 LET l=58^^ 

5*:2 SO3U0 a 

5*18 LET L'23 

3420 PRINT , ,- RtR. . . 

5*32 aosufl = a 

3*40 PRINT CRAC- . . . 

5453 SOSUfl AR 

5463 PR IN- tQUtnH 

547a GOTO RE 

£322 LET Ft- B39UB 

5318 LET F-149^ 

5028 FAST 

5323 PRINT 

DE .f, 

5228 PRINT 

TRE HE"! 



VOUS STe5 CNTOOftE 



TRE H ! 
RUIRE 



6053 LET i_t- INT !RN3»81.1" 

5252 -E - xt=J-=t UML Lt 

68~3 -ET Y«*STRi VAV -1 

5283 -5- ZI=5TRt Vf^ LI 

6833 LE - PI =' 

6138 LET A3.P 

6112 LET R3.F 

6128 LET 81-107 

6130 LET 83-115 

6143 LET B3sl23 

5150 LET B4-371 

6160 LET 65=387 

51-3 LET 85=635 

6132 LET B7*6*3 

6193 LET BSs651 

6£32 LET C-PES* 16396'256»R£E(( 1 

639"" 

62ie PO^E C379.23 

5222 FOB 1*1 TO 8 

6230 LET CiPEE* 15336*25S*PEE« 1 

6397 

=24.2 ROI-.E c.ai.e 

6280 LET fll.B1.34 

£252 =:-.£ C.S1.R1 

52-0 =3«E CB2.3 

5283 LET 82=82-33 

5292 POKE 2.32.H2 

£322 =■;• -E C-33 3 

~2',0 LET -3.33*32 

5322 POKE C33.A3 

5332 POKE O34.0 

8340 LET 04.84.1 

8350 =:■■= 0.84 Rl 

5363 P3-E CBS. 8 

8370 LET 35=85-1 

53-2 POKE C35.A2 

5392 POKE CB6 .0 

3*32 LET 85-S6-32 

6410 PONE CB6 .A3 

£i20 POf E C .S~ 2 

5*32 LE" £7=57-33 

5ti2 CO-E CB7.R2 

8450 POKE C.B6.8 

8460 LET 88-88-34 

5478 POKE C.88.A1 

6468 IF 81-379 then GOTO 6600 

6458 PRL'SE 4E4 

6*91 PCnE 16437.255 

6*92 LET Pt.lNKEYt 

6518 IF Pt-Xt THEN -ET Al.0 

6528 IF P|.\| TmEN l£T A3-0 

6533 IF Pt-Zt THEN LET A3-8 

6843 IF Rlafl AND R2-3 AND A3.0 T 

MEN GOTO 6360 

3552 N£YT I 

6568 CLS 

BS6S 5L0U 

6570 PRINT "VOUS RVEZ EChRRPE Au 

*t 
65-^ LET l-40 
B574 OOSUB AA 
6576 PRINT AT 6.S, 
MENT 

65 e a 3L0U 
6593 GOTO 220 
6608 CLS 
6535 SLOu 
6610 PRINT "SPLAT. 
6620 LET L-50 
6625 GOSUfl AA 
6638 PRINT -LES '. 



tab e.Bt.et 1 "ft 31 .B" 5, 
-- -i5ur ■■■ 



.PROUISOIRE 



IL VOVSDEFIE POUR U ! 
IE DE H ...TPUOUEE 
PPInT^," VOUS JOU 
— Ir 



78 



. -NSUITE 
LE DU JEU. . . 

7070 PRINT ,," UOTRE VIE EST 

EN JEU..,", AT 12.8. -IL FAIT...", 
7890 LET Dl-INT iBND»61 .1 
7092 LET D2-INT !RN0*6).l 
709S LET D3-D1.D2 
7180 LET L-68 
7105 GOSUB AA 

7118 PRINT Dl." ET ".02, " - ",03 

— 15 .2. ' VOULEZ-VOUS TENTER UN 

RE". TAB 4, "PLUS BRUT OU PLUS 

_ s "*•■ 

7203 GOSUB TT 

7285 IF Efo'H' AND E«<>"B" THEN 

GOTO 7238 
-310 CLS 

7338 LET E0.3.3»(Et-"H'i 
7338 LET El-l.INT 1RN0»E8> 
7240 LET E2-1.INT «RNO»E0) 
7250 LET E3-E1.E2 
7380 PRINT "UOUS FAITE3 . . . , E I . 

ET ' ,E2. " - ".E3 
7330 LET L-150 
7*00 GOSUB RR 
7*10 CLS 

7415 PRINT "IL R DECIDE OUE LE G 
AGNANT" 
7428 PRINT .."OEVAIT PAIRE LE . 

7431 LET L-SO 

743S GOSUB AR 

7*30 IF RNO> .B T HEN GOTO 7*90 

7*«a PRirrr ' aHB" 

7**1 PRINT 

7*58 LET L-130 

7*65 GOSUB PA 

7*78 IF D3>E3 THEN GOTO 7560 

7*80 GOTO 753f 

7*98 PRINT 

7*91 PRINT 

7495 LET L-120 

7608 GOSUB AR 

7330 IF D3iE3 THEN GOTO 7560 

7B3« PRINT ,,. ."MALEDICTION. . 

7333 LET L-85 

75*0 GOSUB AA 

7543 PRINT "UOUS QACNEZ" 

7558 GOTO 320 

7363 PRINT , , , 

7561 LET L-50 

7365 LET L-50 

7572 GOSUB RR 

7568 PRINT "UOUS 

7593 GOTO RE 

8003 IP RNO(.B THEN GOTO 900 

8881 LET Pl.-GRELONS HORTELS" 

8382 LET Gt-"ORRGE" 

8034 LET T|-"U" 
8333 LET P-CODE T| 

8886 PRINT "UN ",Gt. " DE ".Ft 

8886 LET L-88 

8010 GOSUB AR 

8013 PRINT .."UOUS NE POUVEZ RIE 

N FRIRE. . ." 

6013 GOSUB RR 

B014 ClS 

8013 LET DF-0 

B038 LET OP- PEEK 16396 .386.PEE-- 

16397 

6023 POKE DP. 610. 151 

8035 LET B(U«S 
8333 LET 3 i3i -IS 
8835 LET Bi3i -35 
8043 FOR J-0 TO IB 

8043 PRINT AT J.BdJ.Tl.AT J.B12 
) .Tt.AT J,Bl3l .Tt 

Suite page 18 



"MR HA. 



PERDEZ" 



THEN GOTO 3370 
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OBSTACLES 



Devinez ce qui vous bouche le passage 9 Des 20, des 
zobst. des zobstacles! Tenez le plus longtemps possi- 
ble! 

Michel DELAZUBERTORIEZ 
Mode d'emploi: 

Apres avoir heurte un obstacle, vous aurez le choix entre: M -• 
Pour revenir au menu. R — Pour visuaiiser les records de chaque 
niveau une autre touche -• Pour recommencer une autre partie 
(sauf BREAK). 

Dans le jeu. vous ne pouvez utiliser qu'une seule el unique touche. 
celle du (a ne pas confondre avec O). Elle vous servira a changer 
de direction chaque fo*s que vous appuierez dessus. Mais voire de- 
placement seffectuera toujours en diagonale. 
Si par matheur vous avez appuye sur la touche BREAK, vous pou- 
vez toujours revenir dans le programme sans effacer vos precieux 
records en tapant: GOTO 428 puis NEW LINE. 
Vous taperez bien evtdemmenl le choix que vous voudrez; M, R ou 
une autre touche pour jouer 
N.8.: Les niveaux entre 15 et 20 sont les meiiieurs 






EN VIDEO NORMALS DES 


CARRCTERES EN VIDEO INVERSEE; 


LIGNE 


CARACTERES 


3000 REM 


PRESENTATION 




■OBSTACLE" 




MENU" 




V0U5 DEUEZ" 




EVITER TOU5 LES" 




OBSTACLES." 




.hs>=l»ve; sur une 


TQUCME.) " 






3300 . . . 


APPUYEZ SUR " 








1 DE DIRECTION. ' 








'RECORDS." 






3370 . . . 


'OU MENU." 



353 PRINT AT 5,5, 
COURU. . . " 
360 PRINT AT 7 , 12 
370 PRINT AT 10 , 
UEAU ";N; " EST DE; 
) , " KM. " 
380 PRINT AT 15, « 
- R:" KM." 

tF INKCYfO"" 



'VOUS AUEZ PAR 



"record a8s0l 
tmen soto 430 



THEN GOTO 43 



* PRINT AT 10,8; 

VP." 

5 GOSUB 100 

6 C0SU8 3000 

7 GOS'JB 2000 

8 GOSUB 200 
10 SCROLL 

30 PRINT AT ai. 9, " 

30 LET S«5*l 

40 PLOT RND*5B.2,0 

4.1 PLOT RND«58*2,0 

42 PLOT RNO*SS»a,0 

SO IF INKEY«-"- 



UN INSTANT, S 



THEN LET DX»- 



>0 TMCN GO 



60 LET XJ*XJ«DX 
70 IF PEEK IPQ3.XJ) < 
TO 300 

80 POKE P0S.XJ.138 
90 GOTO 10 

100 LET El-PEEK 16396. 336.PEEK 
15397.1 

110 LET R*0 

120 DIM A (301 

130 LET O|."0176163A0C401S0O337 
EB93O0310F7C9735718F4" „...„.__ 

132 LET 3tiO«»"2A10403BE5113100 
A- r EDS2DlCir702EDB6C9" 

134 LET OB.QJ. -197E714F10FAC92A 
0C4 0110100O10020C&OS40113100081* 
CDA8401irFFI«05i' r COnB4011DFFF0614 
COAO401 16300191101000100 14CDAS40 
113100050ECDAS401irFFF0613Ct>AB40 
11DFFF060CCDAB40C9" 

140 FOR 0*1 TO LEN C( STEP a 

150 POKE 16313.(0*1) '3. 16»C00E 
QtlOl.CODE 0»<Q.l>-476 

180 NexT 

178 DIM T*(6» 

173 LET --- 

173 LET 

174 LET 

175 LET ■ 

176 LET T»(5i 

177 LET T| (6l -Tt (3) 
190 RETURN 

200 LET 5*0 

210 PRINT "NIUEAU7 (1 A 30) 

220 INPUT N 

230 IF Nil OP N>20 THEN GOTO 22 

a 

240 LET XJ-18 

250 LET DX-INT (RN0*3)*3-1 

260 LET P0S-E1*33«N 

370 FOP 1-0 TO 23 

283 SAND U5R 18534 

233 PPINT AT ,0, "t 
• " 

385 NEXT I 

387 PRINT AT 31,1, " " 

2B8 POKE 16442.4 

289 PRINT - 



290 RETURN 

300 PRINT AT N,XJ-3,'B0 

310 LET S»S»N 

320 IF 6>P TMEN LET R-S 

330 IF S>R(N) TMEN LET 

340 GOSUB 2000 



422 GOSUB 3000 

423 FOR 1-0 TO 23 

424 RAND USA 16534 
426 RflNO USR 16514 

426 PRINT AT 0,0, -^ 

427 NEXT I 

438 PRINT AT 10,6; "FAITES UOTRE 
CHOIX." 

429 GOTO 400 

430 IF INKEYt»"R" THEN GOSUB 10 
00 

440 GOTO 8 

1000 GOSUB 3000 

1010 PRINT AT 0.0; "NIVEAU: RECO 
RD: " 

1030 FOR I»l TO 20 

1030 PRINT AT I,a;I,AT I,10,R(I> 

1040 NEXT I 

1050 RETURN 

2000 FOR 1-0 TO 31 

2010 RAND USR 16514 

2020 NEXT I 

2030 RETUflJ"' 

3030 REM P 




MWWMVI 



3070 FOR !•! TO 19 

3080 LET j-j+i 

3090 IF J-7 TMEN LET J-l 

3100 PRINT AT I,0,T»1J);AT 1,31; 



wwuvn 



T*(6) _ 
TtCli -■•■" 
T|(2l • "? 

T«(4) .T|il, 



INT AT 17,6; 



3150 FOR 1-4 TO 16 
3160 LET J.J.I 
3170 IF J-7 TMEN LET 
3180 PRINT AT 1,6, T t I 
T»(J) 

3190 NEXT I 
3200 PRINT AT 5,12; 
3210 PRINT AT 6, 13; 
3315 PPINT AT 7,14; 
3220 PPINT AT 9,11, 
PRINT AT li,9; 



3230 PRINT 
3535 PRINT 



...' AT 13,9. ' 

3240 PRINT AT 13,11. 

— 19,4,' 



16S59 

3330 IF INKEYt""" Tt 
3390 PRINT AT 7,11; ' 
3300 PRINT AT 9,10,' 

3330 PRINT AT 11,6, ' 

fHS PRINT AT 12,9,' 

334B PRINT AT 13,8, ' 



m 

337c ►'hah 

3380 RAND USR 16559 

3390 IF INKEYt""" TMe 

350O RETURN 



70 PRINT AT 16,11 




CORSAIRE 



CORSAIRE : vous devez localiser et couler votre en- 
nemi. Seulement voila. vos boulets sont en nombre li- 
mit e, il existe un maelstrom et la carte des terres. la 
votre et celle de votre adversaire, ne se devoile que 
peu a peu en fonction de vos tentatives de mouve- 
ment. En comparant les deux cartes affichees sur deux 
parties differentes de I'ecran, vous pourrez surement 
localiser votre ennemi. 
Mode d'emploi incius dans le programme. 

Charles HAMEL 




I 



ECRITURE 




lARACTERES en video inversee- 


LIGNE 


CARRCTERES 


35 


ATM 




50 


RPM 


CATASTROPHE 






'FREGATE COULEE" 








61 






100 


RFH 


MVT CORSAIRE 












CATASTROPHE 






'VOUS ETES PERDU CORPS 










HFM 


MVT FREGATE 














REM 


REGLE5 














1000 


HFM 




1050 


----- 


TERRE 




HFM 


CATA5TR0PHE 






CORSAIRE 






FREGATE 



30 run a 

35 REM § 

40 PRINT ... 

'- PRINT AT 20,0 



GORDONNEES 



15 PR 

. TIR ' 
50 DIM R«t2) 
5S INPUT Rt 

60 IF CODE RttH (39 OR CODE R» 
i31 <29 OR CODE Rtili >37 OR CODE 
R»(3)>37 TMEN GOTO 50 
65 LET DsVhl Rt (II *1 
70 LET £=UNL R«i3).l 
72 LET BBjBB-' 




"SUM W !l. , 

86 IF 8B-0 TMEN STff 

67 PAUSE 200 

90 PRINT AT 30,0, Ct. AT 31,0,Ct 



TNT AT 17,0, 



110 PRINT AT 30,0, 

CORSAIRE 1 (COOR- 
ONNEES) OU TIR URI 

130 DIM Rt.ii 

130 INPUT Rt 

140 PRINT AT 20,0,C»,AT 21.0.C* 

150 IF RH1)."T" TMEN GOTO 35 

160 IF CODE R«<1><29 OR CODE Rt 
12) <39 OR CODE R»il)>37 OR CODE 
R«i£l>37 TMEN GOTO 110 

170 LET D-UAL Rt ID .1 

180 LET E*VRL Rt(3 
AND E»U 



185 IF 
9 

190 IF AB3 10-X 
>1 THEN GOTO 110 
£06 IF T(0,E) "1 TME 

.!;"■ 

210 IF T(0,E)-1 TMEN GOTO 110 

215 LET MV«HU-1 

216 PRINT AT 15 , 1 , "MQUV6MENTS 



THEN GOTO 11 
OR ABS (E-V) 



PRINT AT 



330 IF 

OTO 300 

230 PRINT AT X,V; " ' 

340 PRINT AT 0,E, "■' 

350 LET X-D 

260 LET Y-E 

370 GOTO 

300 REH ' 

310 PRII 

320 LET X-INT iRND 

330 LET Y»INT IRND 

340 IF T(X,Y) (>r - 
Ul THEN GOTO 320 

350 IF - 



D AND MI2) -E THEN 




410 LET 

420 LET GwINT 

430 IF G«5 

450 FOR I" 

460 LET p. 



AT 21,0,Ct 



_7891234678" 
RND.9) .1 

GOTO 430 



PARC 
FANTASTIQUE 



"EST-CC 



^Mf Suite de la page 17 

8030 LET BUI ■8(1) . INT (BND43) 

8060 LET 8(2) -8(3) -LINT IRND«3I 

8070 LET B 13) "BO) -LINT IPND»31 

3080 NEXT J 

6085 PRINT 

9093 IF PEEK (OF. 610)-'' TMEN GOT 

8150 

8100 PRINT "VOUS AVEZ LA UIE 3AU 

UE. . .UEINAAO" 

8140 GOTO 330 

8150 PRINT "LES "iff," VOUS ONT 

EU" 

8170 GOTO PE 

9000 LET Zl-INT IRNO«80) .1 

9010 LET Z3-Z1.26.INT (RNO.301 

9020 LET Z3-ZL1.INT (RND*(Z2-Z1 

T (RNDtai . 

"i.. p jrr T "°° ;,?i ' "".'. 

, , ,"00U1 DEVEZ TR&UVEB LE NOMBRE 
6uE",TAB 5;"J""flI CHQISI" 

9090 PRINT ,,"IL EST SITuE ENTRE 
",Z1," ET ",Z2,"V0VS AVEZ DROIT 
A -,Z4," E5SAI4 

9100 LET L-313 

9110 GOSUB AA 

9120 CL1 

0130 FOR U»Z4 TO 1 STEP -1 

S135 LET Yl.JTRI V 
140 PRINT "IL VOUS REST6 ",Yt," 



TENTATIVES", , 
OUS PPOPOSEZ 7 
9180 INPUT Fl 

9170 IF F1.Z3 THEN GOTO 9380 
9175 IF U-l THEN GOTO 9230 
9180 CLS 
9185 PRINT , ,F1; 

9190 PRINT I" TROP HAUT" AND Fl> 
Z31.1" TROP BA3" AND FKZ3) 
9310 NEXT U 
9330 CLS 

9235 PRINT "■■^■1....", 
9340 LET L-60^ 
9350 GQSU8 PR 

9260 PRINT "LE NOMBRE ETAIT ",Xf 
9270 GOTO 3370 
9280 CLS 
9290 PRINT "OUEL COUP DE CHANCE. 

9320 GOTO 220 



9645 CLS 

9647 PRINT AT 3,9;"HA MA. 

9648 LET L-SS 
9650 GOSUB AP 

9652 PRINT AT 7,2," VOUS 

ORTIREZ OAHAIS" 

9685 FOR I«l TO l.lRN0*4) 

9637 LET L»20.10»N 

9660 GOSUB AA 

-" PRINT , ,TA0 (RND*22) 



HA P 

3683 L 



9500 LET til - 1 

■ 

5?o5 lKT L.ib 



ET L-20 



9695 NEXT I 

9667 LET L-30 

9670 GOSUB AA 

9672 GOTO 300 

■ "PINT , ,TAB 



9503 FOR 0«_ . 

9504 GOSUB AA 

9303 PPINT AT 19.0.0t 

9506 GOSUB AA 

9510 PPItrT AT 19,0;Ht 

9513 NEXT 

9330 LET L-100 

9530 OOSUB AA 

9600 CLS 

9610 PRINT AT 1 , 13 , "LE " , TA6 13. 

**",AT 4,7,flt,TAD 7,Bt 

9630 PRINT ,,TA8 3, r 'A FAIT UNE 

OUUELLE UICTIME",TRB 3,Bt*Bt( T 

10) 
0630 LET L-100 
9633 GOSUB AA 

9636 PRINT AT 15 , . "EST -CE OUE 
OUS IN3I6TEZ ■> (O/NI " 
9640 GOSUB TT 
9643 IF Eto'O" THEN OOTO 9675 



STOP 

9710 PRINT AT 1.2.' BIEN JOUE , VO 

US AVEZ AEUS3I" „.„ „ 

9720 PRINT ,." LA TRAuEASEE OU 

PARC. . .BRRUO." 

9738 LET L-200 

9730 G05U6 AA 

9733 PRINT AT " 

"E3T-CE OUE r- 



■JOUi PECOHMENCERIEZ 



9740 PRINT BI,Ct( 

9743 IF INKEYt-"" 
9746 IF INKEYt <>" 



9746 CLS 
9730 GOTO 
9900 REM | 
9810 SAVE 
9820 RUN 



, TO 151 

THEN GOTO 9743 

l" THEN GOTO 96 



^TarcTfGtTtr 



470 LET OsU.ll AND (H» ( I 
H» il! >-'6" OR Ht (Ij - "3- . 

(Him ="7- or Him »-4- 



473 IF P. 



AND 0=Y THEN GOTO 56 



475 IF P<2 OR 0<2 OR P > 10 OR 0> 
10 THEN GOTO 580 

480 PRINT AT P,0. 

490 IF PEEK tPEEK 16393. 336. PEE 
K 16399' *138 THEN GOTO SBC 

500 PRINT AT P.K.O.L, 

510 IF PEEK [PEEK 16396. ^SS.PEE 
K 16399>=123 then GOTO S30 

S20 IF T tP,0) ■! TMEN PRINT AT P 
*K .Q.L. "■■■ 

IF TlP.O'-l THEN GOTO 560 

) AND 0*M 12) THEN G 



S30 

535 IF 
OTO 650 

540 IF 

545 IF 

S50 IF 

555 IF 



T iP ,0) 



560 IF 

530 NE 

590 GOTO 

650 REM ' 

660 LET 

670 LET O-INT 

680 IF TiP,0> 



=0 THEN PRINT AT U 

=0 THEN LET U»P 

-0 THEN LET v-0 

THEN PRINT AT P 

THEN GOTO 100 




DANS VOTRE EFFORT PO 
LA FREGATE VOUS POUR 
TRER UNE TERRE, PARFO 



710 PRINT AT U.K.U.L;"" 

715 PRINT AT P.K.O.L, "F" 

730 LET U-P 

730 LET U-O 

740 GOTO 

800 REM Z_ 

805 PRINT "U0U6 ETES LE CAPITAI 

NE D UN NRVIRE CORSAIRE ET U 

OTRE BUT E3TDE REPERER ET DE DET 
RUIRE UNE FREGATE PIRATE OU I T 

ENTE OE V0U5ECMRPPER EN SE DEPLA 

CANT OE MANIERE IHPREVISIBLE 

810 PRINT 

813 PRINT 
UR TROUVER 

REZ RENCON- ' hl h. ur*t i ^ nhi. , h-n 
IS CELA VOUSOBLIGERA A UN DETOUR 
,MAI3 U0U5 BLOOUERR DEFINITIVE 
HENT A D AUTRES HOHENTS" 

830 PRINT 

838 PRINT " 

630 PAUSE 5 

840 CL5 

880 PRINT "VOUS POURREZ AUSSI R 
ENCONTRER UNDESA5TRE SOUS LA POR 
ME D UN TOURBILLON FURIEUX QUI E 
NGLOUTIRA VOTRE BAT IHENT POUR 

EVENTUELLE-HENT LE RECRACHER DI 
EU 5AIT OU" 

655 PRINT 

660 PRINT "U0U5 NE POUVEZ UOU5 
DEPLACER OUEO UNE CASE A LA F0I5 
,EN TOUTES DIRECTIONS-LA FREGAT 
E AUSSI" 

665 PRINT 

870 PRINT "A DROITE DE L ECRAN 
UN TABLEAU SANS COORDONNEES VOU 
S PERMET DE TENTER OE 5UIURE LES 

MOUVEMENTS DE LA FREGATE" 

875 PRINT 

860 PRINT 

865 PAUSE 

890 CLS 

900 J-- 



TS" 
905 PRINT 
910 PRINT 
915 PAUSE 
920 CL5 



■VOUS NE 0I5P0SEZ OUE 
BOULETS ET DE VIVRE5 
OUE POUR B9 HOUUEMEN 



1020 NEXT I 

1035 FOR 1-1 TO 9 

1030 PRINT AT 1.1 , 

1035 NEXT I 

1040 LET Ct«" 



, I, AT 0, 1.1, I 



>0 THEN GOTO 1066 



1060 FOR 1-1 TO 37 

1065 LET v.INT (RN0»9) 

1070 LET Y-INT (RN0.9i 

1075 IF T 

1080 LET 

1085 NEX" 

1100 REM 

1105 DIM 

1110 LET X-INT i^'iD-J' .,- 

1115 LET Y-INT lRNO.9) .3 

1120 IF TiX.YloO THEN GOTO 1110 

1135 IF T(X,Y)-0 THEN LET Mll)"X 

1130 IF T^jr^O THEN LET M(31»Y 

1160 LET Y-INT (RND*9I *3 

1165 IF T(X,Y)<>0 OR iHllloX AND 

Hl3)-Y' THEN GOTO 1135 
1170 PRIN T AT X. Y, "i" 
1403 REM IflPI 
1303 LET U-INT TRN0»9) .3 
1210 LET V-INT iRND«fll*3 
1215 IF T(U.V)<>0 OR (U-HiH AND 

U-Hl3)l OR 1U-X AND V -Y ) THEN G 
OTO 1305 
1320 LET K-9-U 
1225 LET L-33-V 
1243 PRINT AT U.K.U.L, "F" 
1250 REM 
1260 LET BB-3 
1270 LET HV-80 
1280 GOTO 100 ^^ 
1300 SAVE CORSAIRa'" 

1310 Run 800 



SINCLAIR ZX 81 
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SUPER VRAC 




Voici un programme complet qui va permettre aux 
amateurs du MOT MYSTERIEUX ou MOT SECRET de 
trouver ce mot sans aucune difficult^ et surtout sans 
s'abimer les yeux. Avant dc donner plus d'explications, 
il est necessaire de rappeler la regie de ce jeu, que 
Ton trouve de plus en plus dans les magazines de jeux 
et dans les autres joumaux. 

Regie 1: dans la grille, des lettres sont placees dans 
un desordre apparent. Un grand nombre de mots 
(donnes avec la grille) sont dissimules dans tous les 
sens (horizontalement, verticalement, en diagonale, de 
gauche a droite, de droite a gauche, de bas en haul et 
de haut en bas). Parfois, une rneme lettre fait parlie de 
plusieurs mots. II faut decouvrir ces mots et, des que 



Ion on trouve un, encercler dans la grille les lettres qui 
composent le mot et le barrer dans la liste alphabeti- 
que donnee. Une lois que tous les mots de la liste ont 
ete trouves, les lettres qui n'ont pas servi torment le 
mot secret dont uno definition nous est generalement 
donnee. 

Jean Marc DUHEN 

Ce programme permet a I'ulilisaleur de rentrer des dimensions va- 
riables du tableau qui peul etre. cette fois ci, soil carre soil rectan- 
gulaire. Apres avoir donne deux pages d'explications el avoir de- 
mands a I'ulilisaleur de rentrer les dimensions du tableau et le 
tableau lui-meme, I'ordinateur afliche le menu. Le choix 1 permel de 
visuallser a lout moment la grille inilialomenl rentree. Le choix 2 per- 



mel de visualiser cette meme grrtle mais soutement avec les mots 
qui ont ete trouves tors des rechorchos. Les caracteres n'apparte- 
nant a aucun de cos mots sonl remplaces par des '■'. Les cho« 3 
el 4 perrnetleni de faire des modifications do ta gr*o. Le chore 5 
permel de rentrer les mols a rechorchor dans la o/iHe Lo nombte 
de ces mols no pouvant depasser 255. Le choix G permet de (aire la 
rechorche dos mots dans la grille, Si un mot est trouve, I'Ofdmatour 
I alfiche ainsi que sa case initiate et sa direction Un mot no pouvant 
bien sur apparaitre plusieurs tois dans la grille, Le chore 7 permel 
d initialiser la grille recherche©, cest-a-dire d annuior loutes les ro- 
cherches (la grille initiate etanl conservee) Le choix 8 per- 
met.comme son nom lindique de changer la grille Les dimensions 
sont alors redemandees. ainsi que la nouvolie grille. Les dimensions 
vont de 1, 1 a 18. 18 ce qui est largement sutfisani pour les p-obte- 
mes poses. 



tie RE" W?£SENTQTIi> 



0IR(6) — UD!R(7)-I 
770 D1R<9> — HOIRO 
-00 rcisT-j- 
7M PRINT 



eie print 

920 RRINT" 
930 WIHT" 



... h^mij -..na- 
il Edi'lon <k la .rill* initial* B" 
2> El.'iJi d« H *-ill« -■«.■.►* *eh**t 

3) KodtfiCOtlofi d'ur* l!*n*B' 

4) No<fi'tt*itiO*i d'ur> COr*<et«**8" 
V Ent*«f d«i nOTi 1 r«ch*'.-_>-«rrj" 

Pith*"-.** des 



1430 G0T01I79 

1440 PR|KT"8*Jfln'.i«nn* lltnt I *iLCFT*(5t< 
]«» INF"JT'«aNou«*l]* Utnc ! -iSKfl) 
1460 IF LENtSttBJD-O GOTOI480 

" *(B)-S*<fil*LEFT*'BL*.H-LEH'SI<P)l) 



! GOSU 
) RETURN 



1163 



In,' 



> Mm-NQTS -vvebiewc 

) FOR T-l TO 13 

! °rist HlM«W>T.|)i 

j «usic -o- 

1 *X- T 

i «HNT*1|00- 

J RRtMT" C* oroframc rrC»%«rcn« ddn» »*»" (PRINT 

3 tHINVtablwu o d*v* di-*n*ior>i un *n*«r*l*-iPRINT 

1 P«lNT*d« «0l*. C»* «Ot* lOl dii-inulr* dani'lPRINT 

} PRINT*tnu» In *»"* : *OrtiorHal*«*-H.v#*t-'I*RINT 

3 PRlNT'ieal*-*-"- tr> dia»Rna]«. <*• »aueh*"tPRIWT 
'■ PRINT-n d*oit*. 9* 3-oit* « touch*. d*"ipRtnT 
I p9IVT--« u i fA bos. *t <M bat «*i haui.-iPRIWT 
I KNUBiaU 

9 PSINT-i-l 

3 PRINT- La di <•♦*>* i<?t. 1* tafcl»Bu. Ui «ott'iPR!NT 

J PR£NT"»ort -i-rii oac 1 'utilitatfur «u" (PRINT 

i PPINT-<kbut du Prom**,- 

3 PRINT'S L'ordi^ieur flrrith* la cat* initial*' 

I PRINT'** la direction d»* »»t* \rouv9t d« la" 

5 PSINT-B'aton wiuant* I" 

t PRINT-B8 Ottw. > N'col!wm«.M'H»r» <Dif«ct ion)' 

i PKiNT'B DirMtior* ! S • SUD" 

1 PRINT"* N • NORO" 

t *o;tT-a • QUEST' 

a PRINT'B E • EST' 

i xsuBi!&e 
a print-!' 

a print-bbb- 

a PRINT ' Oi««n*ion du tabliau I ■ 

S :*UT'8BMoriiw«aI i "in 

a tNPUT*«W#rtiMl ■ "TP 

J 30-* 

i IF N>P THEH SO-N 

} IF CH>-i) - {N<-161 • (P>-1> • rP<»181 3OTO610 

a PWINT-I Errmr I*» din#n»io«* *J tabl*Ou"'PRINT 

a P9INT-eVjlv*nt *"• (0*wri»«* »«tf» I I T* 18.-IPPIH1 

9 PRINT- - 9f,i>r**n(AZ -' 

t PPIWT-HB' 
a soTosee 

a PRINT"! Entrn 1* tabltou eet \itnt d* -IHIPPIMT 

I PR|KT*«arq£ttr*n i" 

a PRINT-SO' 

a BLt-- 

I FOR T-l TO P 

a PRINT-Li*"* r.'-lT: 

J ;- T<M THEN PRINT' "I 

B INPl/T St'T) 

B S»'T>-<*'T'.Lec-t'0L*.N-LE. 1 i'?l!:' 

a NEXT T 

a DIM W*-' 
9 PEH 

■ ■ UTIflLlSOTIOH PE9 C-:P£aiOMS 
3 PW 

J 0loMl-eiDIR'2 ,| "l!DIH<JJ"i!&IP f *>"3i n IPf5)»-H 



■ill*B" 



n-ill* B- 



37? PRINT' ?■ ChOTIttM 
930 INP'JT-aiT^-.r* Choi- 

9» IP BEP08 QOTIM30 
oca PRIHT"!' 

910 003US2;?? 
-:? B0TO3M 

-:o •:•: '" ■l:'v. , =?(.o- i ■:■■?.?.:::.?■ iw3. if^.i^o, :590 
*4<\ BCTC790 

-.— -■.- 

?*0 PRINT"] - - GRILLE - -■ 

o?0 PRINT' ' : 

93Q r^ - = i -n h 

yx> IF T'I0 THEHPPIT- ^JGOTOieiO 
lWB pRiKTlNT{T/t9)l 

1010 NEXT T 

•020 PRINT 

1030 PRINT" -> 

1040 FOR T-I TO N 

1030 PRINT a-10-IMT''T/I0j>«I«! 

1060 NEXT T 

1070 P9IIIT 

1030 «INT' ^-1 

1030 P0» T-l TO ll-l 

1100 PRINT-— -t 

1 1 10 NEXT T 

1120 PRINT 

1138 C ?R T-l TO P 

1140 IF T<10 THEHPPINTRir 3 HTf<STai(T>.l)l- 'HflOTOl 

1130 P»INTRISHT*<STPt'T>.2JI 

1160 PPINT-ri 

1170 FOR S"l TO N 

'.190 IF 'QF-11 • 'I10T2f'T.$l'>'URflri THENPRINT- 

OOTO1200 

1!1>0 PRWTHIM($«fT>-S.l)i- *! 

1200 H&CT S 

1210 PRINT 

1229 NEXT T 

:?:? ' ; ??uei260 

1240 GF-0 

1250 RETL'RN 

1260 RE« 

1779 REM Poutln* d* torn inuat ion 

1289 REM 

1290 PRtNT'B- Ta»«2 tor un* touch* eour tonl t"'j»r 
1300 GET M 

1310 IF 0*--' T«EN1300 

1320 RETURN 

1T39 REM 

1340 REM ROUTINE DE MOPIFICflTION 

1330 REM DiJVE LIQNE 

1360 REM 

1370 PRINT'))' 

1300 PRINT -iJu«ll* ],---. 

1390 INPUT"80 n* d* litnt I'lR 

1400 IF <0>-l) • 'WP1 THEN1440 

1410 PR1NT-B8B— EPPEiJP fiECOHNEHCQ - 
14J0 FOR T-l TO 3001NEXT 



1320 
1330 
1540 



1646 
1630 
1668 
1670 



1710 
1720 
1730 
1740 
1730 
1760 
1770 






REM 

PRINT-I" 

PRINT*Entp« !•( 

PRINT'a noeJiflti 

INPUT-BaN* liln* I'lLI 

INPUT 'BON* (.Olonn* t'lCO 

IF <0<LI>*fLK-Pl • (0<CO1*(CTX-N> GOTOI630 

PRINT-8B ERFEUR RECOMMENCED ' 

FOR T-l TO 3001NEXT 

GOTO I 340 

PRINT-OBOnci-n caracittt i'!MID*(Stai>.CO. 11 

IriPUT'BBNou-j»au earact«r* I *IP.t 

CR*>LEFT*CS*ail.N) 

SitLl)-LEFT*'CC»,CO-l>«at.RIGMTItCR*.N-CO> 

GOSUB1260 

RETURN 



PRINT-0- 

PRINT" Entr« let roll a r*ch*rcn*r dan* la" 
PRINT'tQriUt.KHjr finir tai>*i 1* caract*'*" 
PRINT-B'-' wul. 

PRIHT'BB* 

r«OT-0 

NMOT-NMOT'-I 

PRINT"B--n tr-'NHOTI" I't 

INPUT " 'IMOTKNMOTI 

IF ^MOTtlNMOT)-"-'! * (NMOT-233) GOTO1840 

OOTO1790 

GOSU81260 

RETIRN 



1970 REM EDITION DE Lfl GRILLE RECHERCMEE 




1930 

1969 PRINT 

1979 

[990 



? REM 



■ - pqtiente; 



I rodifi" * 



IMDICE COURDHT DES MOTS 
REI1 MTOT«MOMBRE OE MOTS CHEFCNER 
2990 REM >IHOICE COUKWT liERTICRL 

2919 REM K-lNfjICE COUPOIIT mORI20NThL. 

2920 REM U-INPICE rnupnMT DE^ &IRECTI0H9 

2939 REM LO*tOHBUEW DU MOT COUPfiNT 

2940 REM MOTt-TOaEOtj CC«TE!lQNT LE= MOTS (1 (THEROCR 
2939 REM S*-TP«LEBU DEFINISSRUT LB QSILLE 

B REM 



ZIK UMB«r*)Tf«e>} 

2120 IF L0O1 TKN2I70 

2139 eoa*«-.*o:- 

2140 5OSU92230 
2130 NEXT V.J.tG 
2160 GOTO2230 
2170 FOR U-l -0 ? 
21S9 H-DIRW! 
2190 LK>IR(U*i) 
2290 BO0L«-"URRI' 
22\Z QOSUB2230 
2220 NEXT V.K.J. NP 
2230 QOS).«1260 
22*0 RETURN 
2230 REM 

2260 REM PECMEPCHE PROPREfCNT DITE 
2270 REM 
2299 TEST1-J.L0-N 

2299 TESTWCHJW 

2300 X-Jiv.--- 

2319 IF<TtSTK0>*(TESTl>P*!)*<TEST«0W 
TEST2>N*1) THEN2390 

2320 t-l 

2330 IF(BOOL«>-UR"I-i*'IlLC) G0TP249O 
2340 IF H!M<3*(X),V.l><>f1lD««Tt(l«J.I.l) 9JT0J 
2330 X-X*H 

236C v-v-u 

23^0 1-1*1 

2389 OOTO2330 

2399 POOLf-FOUX* 

2499 if eoa»' s "-. r poi" rrrat2570 

2410 eciNT-HotflLEFTftMCTI'NBi'BLt. «•■•'■ C*but I 

"iRIGHTf" -'STRI'J)-2)i 

2«29 8 RINT -.-iRiriHTI'" •♦STW«).«f '■[ 

2*39 IP LO-1 3OTO24?0 
2*na if s— 1 THEN PRIHT'N I 
2*30 IF "-1 '■wen ppurr-s-- 

2460 IP l.'-l THEN PRIMT-E"! 

247? if >:—; net '"■.■■ 

2*99 9OTO2309 

2490 pc]nT*-'i 

2300 PRINT")" 

2310 X-JlV-K 

2320 FOP T-l TO LO 

2330 M0T2*(X.V)»"l.ip(ir 

2340 »y.N 

233f 

2560 NEXT T 

237B IF K8-H r 3 r 3 U9i26n 

1599 Rgi |9i 

2599 PEM 

■■ itibi isotion '■•: o ■■■ 
2610 REM 

2629 c y ;■] ro p 

2630 FOR ''-1 to -j 
K49 ■-.-,,■,. ■ roijy- 

2659 "EXT X.J 

2660 RETURN 
: .-o ~f~ 

.,-,, ?,-.. DUTEuR „ tEAri-HRfit 
2690 '■'■■■ 



2070 IF NMOT-0 GOTO2230 
2909 F 
2999 F 
2100 F 



) FOR NB-1 TO HMOT 

3 POP 1-1 TO P 
J FOR K-l TO n 
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SPACE 



Si vous ne voulez pas vous rappeler do voire ou des records ela- 
blis, pour eviter le fichier faites RUN 5. aiors la parlie commence. 
L'ordinateur vous donne le menu et les commandos du jeu. Lo son 
est en option, le prend qui veut! Tapez — pour du son ou N -* 
pour lo silence. 

vous voila dans I'espace, il taut attendre que le rOacteur chaufle 
m i ■■ i ii-jiii pour decoller. 

Des que e'est pret. utilisez les commandos necessairos pour attein- 
Une belle promenade dans le cosmos en evitant les dre I'autre bout do l'ordinateur (i'espace) mais ationiion, aux nom- 



asteroides. Le chemin menant a voire destination est 
cern6 d'embOches: prudence! 

Yann AUGER 

Faites RUN si vous voulez prendre en compte les records, e'est-a- 
dire les mertre au fichier. Si vous faites RUN, I'ordinateur vous do- 
mande de mettre lo magneto en 25 {le programme n'allant que jus- 
qua 15) pour ouvrir le fichier. 



breux asteroides qui defilent devant vous. 

Le but du jeu est d'alteindre I'aulre bout de I'ecran e'est a dire en 

haut a droite en un temps record. 

Vous avez 10 ossais et l'ordinateur comptabilise vos performances 

et au bout de 10 essais il vous donne une apprecialion qui peut 

aller du complimont a I'insulte. 

Si vous avez fait un record, l'ordinateur demande voire nom el de- 

mando de positionner le magneto en 22 pour enregistrer votre nom. 



.. . ,*J .1 ,: *J«,| ,1 

3 CLOK 
RR-0 

■■ : . ■ 

.■■.. 
. -■ ■ ■ 

10 ■ 07-00* 

ia r>*-'«n*'B"rjffl'<-r*B' 
i 

08 FOR I-;T0t(* 

UOS( I*, i. I ) 

99 nusji ■' 

■■■ ■■ ■ 

100 PRIM I BttBMBWMMI 

iriFiFi 

.■ 

120 PRlf! ..- 

130 mm ■ " M oes t 

CES." 
140 |>RJ* ■ -.''i-' : ' ; -' 

.■ ■ ■. 
'80 PR1NITMC7J i"I-TM< I 

-r;rtBl7)i -Z-nMRCHE rtPRIFPE' 



iFinrtr.j 



i aoorj D'UN ■ 



SIEPDI 



190 P»::. 

■ un u i 
oOTRE MSI 
2BB PRJfir'HBHflHHI'Hri I« M L-rr.D/>NJ" 
/in PRINTTTUSIG tOUl ou K ■ I 

'■i . Ii ft* ■ ■ 

.- . | . ■■■ ■ ■ ■ ■ ■ ■ ' 

HiOOIO 270 

Kl J^04.793lP0XE 
^D5,49^G0TO253 
230 G010 229 
255 OOEUB 2100 'i 

■ 
1 B I B B H ■■ ■■ ■ 
lee hi - I'oerrtRrtiioM ou <«■■ 
739 pBit.r o 
300 E»RhO( ■ ' 

3IB IF (I HI N OB0 

.-■-■ 
■ ■ 
14)0 P1MHT-0' . 
330 FORI-I T013 

: -i T -0- 
320 NtXl 1 

1-0IMEN na-'BOBBBa- 



h iinBr.u)iB*;TnBn5 

10,4)1 
490 TI-II* ITS! -It 




■■■ 

I ■;■ ■ ■. 
10 
B 

■ ■ 



■ ■ 
■ 

1.1..:. 



I 01 



i i i WHO 000 



■I.:' Bl ' I 

a mi 

■ : ;« ■ l 

121 

3 10 ;■ ..< 

'.' b m 1 '.' 

mi a 1 i i"i :' ! 

■-.■I.',.) -.,. . I" ii I 

B20 ii n* 

■ I I 

g 

. ',.1 530 
■il B30 



■■■.:! I 

iriua 

. ... .... 

"'II III 

. ■■■■ 
B 

|0 ■ ■■ ■ 

199 ..I ... i 

■ ■ 
b ro .' 

........ 900 

340 i" -' I 

ITO30I 
•JOB 1*3 
979 in XI I 

ata prim h ■■■■< 

. ... ■ 

■ I 
be t?8n 

■ : i 
B . 

B*.B hi Rcriwfli ion du iwi i 

1 .■ ■ g 

i .■ . 

■ ■ 



b a 
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LES ENFERS 



Vous files commandant dun vaisseau d'exploration. Lorsque vous etes descendu a molns cent metres (modification pos- 
Voos devez d'abord descendre dans un boyau etroit et sible "O" 4n 0). vo "s laitos connaissance avec la deuxieme partfe 




anueux sans toucher les parois sinon, vous perdez 
une vie. Deplacez votre vaisseau avec les touches de 
commande du curseur (modification possible aux lignes 
610 a 660 et aux lignes 980 a 1030). Ceci pour la pre- 
miere partie du jeu. 

LoiC MATHIEU 



du jeu nellement molns lacife: vous devez toucher les cartes et les 
ronds sans touchor les points d'exclamation sinon vous perdez une 
vie. Depechez-vous d'atteindre 4000 points, on vous offrlra une vie 
supplemental™. 

La louche -• de commande du curseur vous permet un deplace- 
ment d'uno position vers la drolte. 

La louche »- de commande du curseur vous permet un deface- 
ment dune position vers la gauche 



■ 
99 unil 
ea ST-e uiM pic2t.?33> 

>• rOLOR ...» "BINI -B-iSC«« 

et x-i -to^-vgosub na 
•M roA a->e to i 

•M K"t :("3'J"fl-GOSUe ISO 
»«9 X"3:f5 U-3:G0SUB I «•■ 

»2e X*3:r*3:u>l :w 
I 

m« -.oro iee 

i» cursor a.eicoLOR ..xiphimi '^acecBEs 

F3C8C9F9 F3CPC9E9 *3C8CB£9 ^SCBCSES C8 

cs fscscbes F3ceee*-9 re ce re re 
cs re cats ra noa ce ce C8 
cscscs Ftcecets re cacsca i 
cios cscscs re ca re ca ce 

cs ca ftt.8 cios ce eecacecs fec 

•C6T3 FEC6CSC9 *€C8CBC9 FECBC8C3 rp CS 

ClW '; 
IPS CJRWR i2,9:COLCR .. 
9 CS £8 F9 FS 

ce ca rp ce fi 

cacacece ce ce rgcsce 
ce cs cs can 

9 CB C8 FEC8CBC 

■ s 

179 CURSOR 5,tB:CQL0R ,,U:PRINT "FSCBCBE 
SC8 CB FSC8C8E3 F5C8C8E9 F5CBC8E9 F5C8 
CBE.S ' ca C8E9 CS CS CB 

cs cs re cscece cbfee9cb 

C8CSC8 CSC8CB f8C8C8C9 FECBC8F.9 

CS C8 FEC8 C8 CS C8FFE9 

C8 FEC8CBC9 CS CB C8 FEC 

8C9C3 CS F£E9 FEC8C8C9":REILWN 

•se for A-a to 2eee 

199 NEXT « 

299 FOR S-8 TO 28 

2ie print ; 

229 NEXT 8 

238 COLOR .,7.8:PRJNT *B' 

BR 0.6:PRINT "U0ULE2 U0US QUE LA 
ZtK ' p*=T;E SOTT:£3C3C3C3C3C3C.3C3C3 
C X3C3C 3C3C 3C X 3C 3C3C 3C 3C 3C 3C 3C 3C3C3C3C3 
C3C3C3C3C3C3C3C3C3C3C3 

150ft 5. SPRINT -II) TRES --tGERFHEN 
C3C3C3C3C3C3C3C3C3 
C 3C3C3C 3C 3C3C3C3C 3C3C3C 3C3C 3C 3C3C3C3C3 
2*6 CURSOR 5. 10:PRINT ■■[23 LEGEREITEN! -" 
T3C3C3C3C3C3C3C3C 
3C3C3C3C3C3C3C3C3C3C3C3C3C3C3 ' 
279 CURSOR 3.12:P»IHT (3) MLENTIE 

C3C3C 3 C3C3C3C3C3C 
3C3C3C3 

298 CURSOR 5,14:»RINT "C4J TRES RALEM1E 
C3C3C3C3C3C3C3C3C 

3C3C3C3C3C3 

B:P*1N1 ■-.: IRES TRES RAL 

C3C3C3C3C3C3C3C3C 
3C3C3C? 

j, ie;pfliNT ■ 16) nOAmle 

C3C3C3C3C3C3C3C3C 
3CX3- 

318 GET «»:IF «•■" THEN GOTO 318 
228 IF A*>1" THEN RR-18:G0T0 33B 
338 IF A4-"2" THEN RO„| s :f,OTO 338 
348 !F M>'3" THEN RR-25:G0T0 338 
358 IF (=>«-"<• THEN PR-56:G0T0 330 
388 IF f»*-"3" THEN RR-75:GOT0 398 
r-'B :F R*-'B" THEN RR-0:&OTO 338 ' 
398 ^QTO 318 

■ " T :.-'2-3:Sr>0:n«."" 
. ,7.a::<— 100 

!8, 10'PRINI U1E 

8C3C3C3C3 9 TO 588:NEXT U:n 

428 Nt»"fleCDE*WCDE!CON«)Leilf ??<! THEN 

'37B,'????0,0>a?0?3^a/87a?8?8?B?a 

2a?B7a^f^s i >?^(*j0?3787a?07a707a^a7e7a?870 

?H73?K ■ :u»-"?8787»7aya78 7878'. 07078707878 

>07B78 787878)78787070787870797970787 

87078 ' :CUR£0« 0, :f -20 :F»7 !K*2 :COL(W .,7 

. :0f^'787a?0707071t7878707870787078 

■'-■ ■■ ■•< r jQL= :P»INT 'F ■ 



11.' 


1 .'..■ .. !> 


TO 


3 








■r n 


PRINT M 


'IF 


2E<1 


THLN 


GOTO 4 


Ifl 


■>0(r 


NFXT A 












■i ',i 


OtH 1(24 


)'0in JCM) 






ii,.' 


FOR C'\ 


TO 


74 








* at 


|[Cl«tBi 


J(C)-28 








■J00 


NtXT C 












lie 


fl I 


TO 


17 








%.'-• 


POINT HI 












.I,' 


NfXT B 












...,' 


CURSOR 8 


.2-1 


1PRINT 


0« 






,■■.' 


FOR 0-8 


TO 


480 








908 


IF D'2&- 


INT 


'0'28) 


THEN 


PAINT 


OHK-K- 


1 :C.0SUB 330 












970 


N£XT 












&N 


GOTO 790 












99j0 


CURSOR E 


.F- 


I :PRIHT •' 


"ICURSOR F.»l i 



F-?:PRINT " -:CURS0S E»I,F!PRINT " ■ 

680 UU-B:F0R G-0 TO 5 

S10 GET «4:JF («i--0"J*Cft»«"«")t(«4--B"J 

-C«t--8") THEM GOTO 738 

028 IF M-'t" THEN F-F-l :K-X-1 :IF F '.? TH 

EN F-2 

838 IF «•-"■- THEN F-F*l :K-K*I JJF F>38 T 



Htl' 



-38 



640 IF M-"B* THEN E-E+1 

SS0 IF P«--B' THEN E-E-l 

660 IF FiSC(ftl)-32 THEN GOSUB 2330 

678 CURSOR E,F:PR1HT ■TBCCD3" :CURSO« E*I 

,F-|:PRIHT "H-:CURS0R E* I .F» I :PRINT *U* 

688 IF E<-ICK) THEN TtUSIC "-0" :UU-I 

698 IF K<17 THEN GOTO 718 

768 IF E>=JCK) THEN NUSIC --D":WW-I 

716 NEXT G 

728 IF WU-I THEN CURSOR 1 8, 10:22-2?.- 1 :PR 

INT 'UIES ■ , ;2E:IF 22<1 THEN GOTO 1558 

730 IF UU=1 THEN U=0:GOTO 460 

718 C'JRSOR a.24:RETURN 

750 CURSOR E,F:PRINT " " ■■ CURSOR E+I ,F* 

1 :PRINT " ":CURSOR E»l ■F- 1 :PR!NT * " rGOT 

628 

760 Fi>l?:CUfi30R 0, 24 :H-1 :O-0:P-F :n-£ :R»8 

778 B-INTC3*RN0tU) 

798 IF 22<t THEN GOTO 4B0 

738 IF B-0 THEN fl«-"78" :C-0 :C«-' P 70 

B00 IF B-1 THEN fit-"??":pffi*]:C*e:t*°"?G 

'■:1F F.-20 THEN ft-fl- I =8-2 :G0T0 810 

810 IF B-2 THEN ft«-"75':c— I ;C»-"78" i IF 

ft-5 THEN B-1 :S0TO 808 

820 B*-"70 ,p ;ttM3-ft-1 

830 IF C»-" 78" THEN JCH1"P:>-,CT0 3jC 

840 JCH)=!IH) 

950 H.Hfl MF H-2S THEN H-1 

96? B*=B«»"787B" 

870 FOR 0-8 TO fl-5 



888 84 -Bt* 1 
B98 NEXT 
988 P4iB4-.fi* 
918 IF C4- 



78" 



78" then f-fh 



:0*-C«:WT0 33 



328 F-Fi:D*-C4 

330 FOR G>F*1 1 TO 38 

918 D4=D'»' ,, 70 

3bfl fE/T r, :D«»D«- ■'7870707078787878 

968 S4"Bt*0*:CURS0R 0,24:PRIHr B4:0-0~i: 

A-A*C:CURSOR H,P-I :PRINT CURSOR n* 

l,P-2:PRINT " ":CUfiS0R H-I,P:PRINT " " =C 

URSOR 3S,23;PRINT Q:CURS0R 0,24 = IF 0O< T 

HEN GOTO 1 ;28 

97P U-8:F0R L-8 TO 4 

988 GET n* = IF («•-■'»" )+t^4-"P" )*Cft*'"S-J 

-cft«-'9") then goto iiib 

938 GOTO 1848 

1888 IF ft4-"B" THEN P-P- 1 :JF P<2 THEN P = 

2 

1818 IF ft*=-i- THEN P-P*1 : IF P>27 THEN P 

1028 IF fi«--B" THEN M-tl-l 
1830 IF fl*--fl" THEN n-f1+ 1 
1648 IF flSC(ft»)-37 THEN GOSUB 2390 

1836 <- H^PMF K>24 THEN X-K-24 

10B8 IF n-<KK) THEN HUS1C »-0" SWU-1 

'078 N-JtiOUF H>N*2 THEH MUSIC «*!■ 

1088 CURSOR R.P.-PRINT -CBCCD3 ': CURSOR «♦ 



Suite de la page 19 



SPACE 



i 7i a prin 



■ SUCCCS' |CJ" ESSW1S" 

lOisaatNEXT I 
hbthEn return 



1228 PRINT" 

i?3a FOR |- 

1748 IF CO 

175C PR[NI"8" 

1268 ON 8G0T0 1298,1298,1238,1330,1338, 
1348, 1340 

1265 JF B>7 THEN 1399 

1278 PRJNT"B0BB8CQNSULTE2 WOTRE OCULIST 
En-'GCTO 1358 

1288 PRlNT-BBBaayOUS rtUEE EUITER CE PIR 
Ellt'iflOTO '3S0 

1298 PR1NV CQnnEHT SE SENT-ON OUrtNO ON 
EST nEDIDCPE" 
'295 GOTO 1 358 

1388 PR!NT"BBBBaL.A N.fl.S.fl, A BESOIN OE 
UCUSlil" 

1318 PRINT-tCrjNSULTEZ UOTRE AGENCE POUR 

LES- 

1328 PRINT-HEURES DE DEPORT J" :GOT01338 



* 



1338 PRINT"RESSflTE2 ET N£ UOUS DECOURAG 
, E2 PPS1D" 

1333 GOTO 1358 

1340 PRINT BB80UOUS AUE2 BEAUCOUP DE CH 

8KCIII" 
1358 IF (R2>-R7)*(R7O0)GOTO 1 488 
1368 USRf02) MNPUT-UOTRE NON?" |P?4 
1378 P7«-LEFT*(P7«, 1 3 J ;R7-R2iRR-l 
'398 IFr.R?<R6)fCR6-8JTHEH R-R6 iflft-R7 'R7 

-O :P«-pfi« ;P6»-P7« ,P7«-P* 
1330 IFrR0(R5)«tR3-B) THEN R-R3 :R5-R6 :R 

O-R :P4-P5« ;P5*-P64 (p8«-P* 

1410 PRINT'APPUTE* SUR '0' POUR UN NOUU 

FPU JEU" 



■PRINT 



XIJRSOR (1*1 



La toucne | de commande du curseur vou* pen-net on (Mptooe- 

mont de 2 positions vers la drotte. 

La louche 1 de commande du curseur vous permei un deptace- 

ment de 2 positions vers ia gauche, 

Les deux premieres touches permettent de passer sans danger au 

dessus dun point d'exclamation (modftlcaton possible aux nones 

1400 a 1440). 

La louche espace perme! d'arreter a tout moment le |eu jusqu'a ce 

que vous reappuyiez sur cette touche. 

cs ce re cs <-f C 

! «t ,.3 

'590 CVSW '8, I 'tipy ;«, F5C8CSE9 T6 C0 
F5C8CBE9 F5C9CSES c 

i ce ce re cs re ce 

CB Cfl CI05CID3 CSCBCS C8C8CSC9 

ca cb rece cs c 

*E9 FEC6C8C3 CI05 

FECSC8C9 CSFEE9 
1600 CURSOR I8,19:PRINT "UOTRE' SCORe EST 



-I •■!•{ 



Nl ■:! ■ 
1898 IF I 



I THEN CURSOR 10, 18:^2-22-1 :P 
"I'.' 'II ', "i^/iGOTO 486 
ItUU CUFSUR 8.24!l,UT'J "a 
1110 CURSOR n,P:PRINT " " TUSSL-R n»1,~ 

♦ |. 'PRINT " ^CURSOR rit|,P-l :PRINT ' .uO 
TO 1 066 
1128 P2'-8-PRlNT "OBOOmiUIBBfl" :00"24;(j0T0 

1708 
1136 Oil PI(2l,235] i 'l™25.P-6. , J U 
1 140 ft* ■707B70707079/07e707R>070?8707P7 
B ^8 787878 ■ CONSOLE I, 

24 

1150 CURSOR 8,8:PRIN1 ■■78787B707070707B7 
87870787878707870707670787076 78787070 707 
070787070 70 78 7878 79 78 ■ 
I 110 FOR ra*b TO DO 
1 178 PRINT At 
1 188 NEXT ftrtiDO^ie 

M30 CURSOR 3,0'PRINT "SCORE " ;SC ; CURSOR 
8.24:[F CSC>4990}*rsx<>1} THEN CURSOR I 
7,4:PRINT " BONUS " iCURSW ' 

7,6:ORi NT " UNE VIE EN PLUS ;SX«1 :CUR 



SOR I 
IC ■ 



RINT ' 



■■' : l8CDefl9CO£flBCOE■■ :22=22. I 
I288 IF 0>21? THEN FOR £1=6 TO 101NEX7 E 
1 =GOT0 1388 

1218 IF RR<>8 THEN FOR Rl=0 TO 2tRR.VFXT 
PI 

1226 BB^INTagiRNOCU)*!? 
1230 CURSOR BB,22=PRINT »S" :PltBB- 17-0J = 



1300 BB=INTt40*RNQCn) 

1318 IF B8<33 THEN GOTO 1340 

1328 BB=INT{19*RND£lJ)-!7 

1330 CURSOR B8,22:PRINT "Fe":t 



"F7"!P1(BI 



17.DJ 



I THEN 



13B8 D-D+IMF D»235 :P2^P2» 1 : IF Pi;-1 
GO 10 488 

1378 IF 0=235 THEN GOTO 1768 
1368 CURSOR 8,24 :PRINT A* :CURS0R fl,P-l-P 
RINT "." 
1398 GET B4 

'460 IF tB» = "a"J*(BM ,, B")*CB#-"n' , m9«-" 
0") THEN GOTO 1488 
1410 IF Bt = ' , B" THEN N=n-2 
1428 IF B«^"S" THEN fl-tl- 1 
1438 IF B»="8" THEN M«n.1 
1448 IF B4 = ,, B" THEN f1-n*2 
1458 IF ASCtB*)-32 THEN GOSUB 2390 
1466 CURSOR n,P:PRINT "U" 
1470 GOTO 1496 

148B CURSOR n,P:PRINT ".":G0T0 1110 
1496 IF CrK17)-tri>35) THEN ??-22-l J&OTQ 
460 

1506 F"D-16:IF F<6 THEN GOTO 1196 
1516 IF PUn-17,F)-2 THEN MUSIC **0" :?2= 
22-1 :GOT0 466 
1528 IF P1(rt-17,F)-I THEN sr-SC* 10 :NUS1C 

"-0" 
1538 IF PieM-17,F>3 THEN MUSIC "FlBCOE" = 
SS'.INrr.5*RHO(n):SS=SS*50.50:CURSOr 11-2, 
P-l:COLOR ,,,3:PR1NT SS:F0R S1=8 TO 358 
NEX1 SI :SC=SOSS:C0L0R ,,,8 
1548 GOTO 1 190 
1558 FOR A'0 TO 1888 

156B r»79tRNDC1) !TT»43»RN0t 11--SET Y,TY,7 
1578 NEXT fi'F>R]NT "P" 

1586 CURSOR 16,5-COl.OR ,.> "PRINT ' F5CBC8 
F9 f3CBC8£3 T8 C8 F5C8C8E9 

ce ca ca cbesfscb cb 

Ca C2C2 CBCBC8CB C8FEC9C 
9 C8C8CB ■*9 C8 CB 




* 



1545 PRlNl"fl MftGNEIO EN 22' 

1550 WOPEN'RECORO" 

'568 PRINI/T R4,eS,RO,R7,P5».P6« 

1576 CLOSE 

1573 <"»IN^'■B■■ 

1586 END 

'680 Si -UAL ( T « j 

1610 IF 04»9 THEN R4-R1 -GOTO 

'67B IF P4>R1 THEN P4-RP 

1638 iit-'BBaeae" 

I 848 T«8 
1058 R-Rl 



ISC 
1010 CURSOR 0,21 :PRIHT 'LE r>EILLf.UR SCOR 
E FTA|I-;5T 
1628 FOR C=0 TO 39 
1038 COLOR C, 19,1 =COLOR C2I.3 
1648 NEXT C 

1858 IF SKSC THEN ST-=SC:GOTO 1670 
1800 GOTO 1708 

1878 CURSOR 2.23IPRINT -yOTRE SCORE EST 
LE NEILLEUR SCORE II* 

ieee for T*e to 33 

1698 COLOR T, 23, I INEXT I 

1708 FOR A-0 TO 2000 

1710 NEXT A 

1770 FOR B-8 TO 25" 

1730 PRINT "O" * 

1740 NEXT B O 

1730 GOTO 78 * 

1766 Linll »F£06 

1770 POXE9 •FE0t,Z2 ^ 

1780 P0K£8 •FEOS.SX 

1730 POK£9 4FED5.RR 

1800 P0KE8 4fED7,P2 

1810 POKES •FED9.00, 

1826 SC4-STR«(SC) 

1836 LI =8 

1648 LL=LENCSC«) 

1630 IF SC-8 THEN LL=>9 

1866 P0KE9 «FEDB,LL 

1878 IF L1-1 THEN GOTu 

I860 S3=I1 =S2=-1 :G0T0 

1698 S3=S3>»2 

1988 S2=S2'2:S14-nlD«r.SC«,S2,2) J 

1916 S1-UALCS14) 

1326 P0KE8 •FE0FtS3,SI 

1930 IF S2>^LL THEN GOTO 1956 

1948 GOTO 1890 - 

1956 ST»-STR4CSTJ 

1968 L3=8 

1978 L2=LEH(ST») 

isee if st=8 then l20'L3*i 

1990 P0KE8 •FE0D.L2 

2868 IF L3-1 THEN GOTO 2866 

2010 55=41 :S4"-1 :GOTO 2830 

2028 SS"S5«t2 

2636 S4=S4»2:Slt=niD»r5T4,S4.2) 

2040 S1=UALCSI*) 

2858 POKES tFEEA'S5,SI 

266B IF* S4) l ',' IIH.N 801(1 7888 

2070 GOTO 2828 

2880 CLR 

2898 22-PF.EK8 C*Ff 01 I 

2188 SX-PEEK0 (4FED3) 

2110 P2-PEEK9 C4FF07J 

2120 LL-PEEK9 C«FE0BJ 

2130 D0=PEEK9 t»FE09) 

2148 RR^PEEKS («FE05J 

2150 L2=PEEX0 UFEOO) 

2160 IF L.L-3 THEN GOTO 2230 

2178 S3--*! ;GOT0 2190 

2!8B S3-S3-»2 

2190 S2=S?-2:S1-PE£K9 t»FE0F.S3) 

2208 S1*-STR4tSn:SC»-T,r.4.SI4 

2718 JF S2)'iLL THEN GOTO 2230 

222B GOIO 2188 

2238 SC*^LEFT*tSC»,LL) 

2746 SC^UALCSC.43 

2238 IF L2=3 THEN GOTO 2346 

2286 S5--«1=GOT0 2280 

2278 59-SS+92 

2280 S4--S4»2:SI=PEEK6 t»FE6rt*S3) 

2298 SU^STR*CSI):STt*ST*tSl» 

2388 IF S4>=L2 THEN GOIO 2378 

2318 OOTO 2278 

2328 ST9-LEFT91ST9.L2] 

23 18 ST' UAL(S>r»"l 

2340 IF P2'0 THEN GOTO '380 

2356 CURSOR 22. i&JFK Nl "ATTENTION ) 

2368 CURSOR IB, IB-PRINT "CA UA RFPftPTIP 

,.. 

2378 FOR Ul) H 10 STOsNEXI IJU 

73&a r.rjrg 1138 

2390 G("T 04 

2480 IF nSCfBt)-32 tHEH RETURN 

2410 GOTO 7390 ■ 
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Ml' 



POUR ■■■ IN' 



1420 PRlNT'l 
1438 GET A* 
1446 IF A*-'N" THEN154B 
1458 IFA«-"0" 'HENI478 
1468 GOTO 1430 

1478 PRINT " DBlIBOaaOBlBBBaPREPARE 2 UOUS P 
OUR UN NOUUEAU JEU" 
'488 FOR 1-1 TO lS80;NCXt 
1438 Tt-"Q8B00a'' 

I30O n*»T« 

'510 T-8 
1520 R7-0tj-| 

■3SS RETURN 

'340 IF RP-B THEN 1573 



".',;! 


GOSUB 


'988 








.'..■;! 


»4-l> 










iBsta 

T*,3 


PRINT' 
. 2 ) i " ■ ' 


BBHHflf 


-,(i 


mrii-iH 


iECORO 


1899 


PRINK 


H'.ni 11 


,s 


2);" 




1786 


T4-I3I 










1718 


R7-«2i 


UAL C 1 1 


) 






1728 


R-R2 










'.-...' 


Gosue 


1980 








1746 


Tl*-H 










1730 


R2-R 










1760 


PRINT" 


a^HHMHriui! :■"'. 


IOTAL 



1785 PRiNrni04CTi*,s,2) •>'■■■' 

1770 PRlNT"iBREr.0O[j-, , 

IJBB R-RS:P*=P5«. GOSUB 1B20;R5-R 

'738 R-R6 P4-P6*rC0SU8 I828;R6-R 



I 888 R-R7P4-P24-O0SUB 1B28 IR7-R 

'810 RETURN 

1828 IF R-8THEN RETURN 

1830 GOSUB 1309 

1846 PRINTTABCS);"' ;TAB(21);"« ' ;nio»(t 

*<3.2)i lftID«(T*,S,2Ji-'" 

1850 RETURN 

1386 IF P/l08-mT(R/l0B)).53THEN R-R*48 

1318 IF R<IB THEN A*>"BBa80' :G0T01 950 

1320 IF R<18BTHe« fi«-"B8BB" :GOTOI956 

1938 II ROaeVfrlEN a*=" aBB" :gOT01339 

1948 IF RdBBBBTHEH Ai-'BB" :GOTOI 350 

1958 T4-A««STP*IR) 

I960 RETURN 

7088 rHJSIC'E4R8e?R0AeRIE]A-C2A4R4 n 

2010 RETURN 

2188 ^•-■■RIO!R0DlRBD2'■ 

2iie nusic"D2",ri*,ni,n*,ri« 

7128 RETURN I 
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TENNIS 



Tennis tout I6te. sans equipement et pour pas cher, 
voila ce que vous propose votre MZ 799. Super non ? 

Christophe SARALE 
Mode d'emplot: 
D*p*aeem©fH: jooeur de gauche : 2 ( 1 ) et N ( f ). joueur de droite: 



Remise en jeu de la belle: Joueur de gauche: A. |Oueur de droite L 



ee caoe..?.a-cLs 
?e Ttrf*o ? 

8£ nuSIC-flM4*C«FttE««- 
» fCR T-e TO B 

iee «Eflc i**:ca.oft..!*ti?*'*f«:im»!.e 

118 F{« J-l TO 3S 

139 FOR TE"8 "0 2B:f€XT IE 
149 «xT J 

■. ■ ■• 
tee ftffiIC-C^H£FC7*t3F4EO- 

-.Tfl CURSORS. » -P«IMt*.8) 'WOULtZ-VOUS F 
AJR£ Un£ P«eliE OE TENNIS ?* 
189 GET A* 

199 IP ft*-*Q' lnE^JW 
2B9 IF M-'W' TH£N£nO 
2)9 G0T0199 
228 CLS:SCSUB 1158 
238 ftEH Uoriwlll 




2*8 : 



-2:ffW 



259 X2-7«'T2-24 

269 XB-1:T8-?S 

279 M>l:tD-9 

299 Jl— 1 :j2-38 

299 SEP 0*t t :r. 

388 COLOR. ,7,8'CLS 

318 FOR X-B TO 78 

329 SET X,3:SET X.15 

339 l**T X 

y*9 FOR T-3 TO 45 

359 SET 9,T:SCT 7«,T 

309 KXT X 

379 S£7 Kl.TI-l =SET Jtl.fl 'SET JO, TIM 

399 SET X2.T2-1 :SET X2,Y?:SET X2.T2M 

399 «£n WinactMfl <*»« ""M* 1 *' 



:,-.■ 


GET M 






'• .' 


IF M."-TM£N47B 




429 


•*■'■ 


then goto 


728 ff^ 


4 ■■:■■ 


IF M-*8" 


HEN GOTO 


748 ff 


441 


IF M-'l 


TuEN GOTO 


768 V_ 


■lie 


IF M--W- 


then goto 


760 ^v. 


4«9 


SET XS.TE 






479 REH D.PH 


c(K*nt <*• 


u ba : I • 


•69 BESET XB 


fB 




499 


XB-XB'XO 


TB-fB'TQ 




>■■; 


IF TB-4 TMEHfD»1 




Slfl 


IF TB*44TMENTD— 1 




529 


REn o*(< 


n a* la bo 


1* 


531 


SET XB,fB 




549 


REn Boll* 


-,-,.•;... 


igr un* rv*j» 


930 


IF X8-3 THEN5S8 




M> 


IF X8-75 


TmEHOSB 




579 


GOT 0068 






589 


JF TB-fl 


1 TNENfO— 


; GOT 0628 


599 


IF T9-fl 


THENfO-»:GOT0e2e 


see 


IF T8»f1 


1 TMENf0«l 


:G0T0628 


■■'■ 


GOT 0688 






628 XO-1 :GOrO60B 




838 


JF YS-Y2 


1 THENTD— 


; G0T0e?8 


649 


IF TB-T2 


THENfO-BiG0T0H?e 


650 


IF TB»T2 


1 TMtHfD-1 


:G0T0678 


603 GOT 0688 






878 XD— 1 






888 


REn Poln 






939 


IF tXB-1)*CXB-77nnEN8e8 


799 


GCT03S8 






719 


REP 0«*( 


f. at i raqu 


tmi 


728 


IF T2-43 


THEN478 




738 


RESET X? 


Y2-I :T2"T2 


H'SET X2.T2 



T0478 

749 IF Y2-5 THEN479 

798 RESET X2,f2*l ; T?-fJ-t iSCT W.T2-H00 
T0479 

700 IF '1-41 HEN4J9 

>ra SFSTT <T . r | - ■ ■ r I - r I . | :JtT Xt i MvPiM 
■ ■ 

789 IF T1-* 

799 REE! r -f i-i (00 
T047B 

888 REP CoMtat* -».i po.r-n 
818 IF tXB>l 1»IXB<77) THEN398 
878 nuSlCftBE' :RtSET XB. 'B 

838 |F X8-I !HEJ*»a-Jl-i IF JZ = 28 TMEC928 

848 IF X8>77 THECW8 

858 CURSOfij2,8iPRI«T(S,er ,: 0'iX8-75:TB-2 

SlOX*-] iOT»B 

B6B GET M'-lt P*--fTH£»398 

878 GO I 0868 

889 Jl-JltUlF J 1-9 THEN 1 928 

898 CURSORjl.BipRINTCS.Bl'fO^XSO'Te-yS 
:0X>l :0r-B 

989 GET fl«:!F **■-/»' TMEH338 
SI 3 GCT0988 
528 REP Ln jo«-«ur <* pti-su 

■; ra zsaatHejii i 

948 RESET Xl,T|iRESE1 XI .T|-: :RES£I XI. T 

1*1 

958 SET X2,T2,6=SET X2, f!-l ,6:SET X2.T2* 

1.6 

968 FOR TE-8 TO !BB8--HExr IE 

978 CLS=CX0R, ,6,8 

988 CURSOR 6,8 = PRINT-Li GftGN«*T «*t " JJ2 



;N«njT- XT OU 



-^•JENO 
1149 GOT0HI9 
'fSIf' 4£F ^i '«. ■ 
'■08 C0LDR.,6.8iCU»tCR*.l 

joueuo ot g«jch? • 

■ 

188 C0L0S..2.*iCU«S0R9, 12'PRINT * "Or 
E L' POWERS* IRE DC 'SJ1*I* m J*Ht 
1'9« CI.S 

1299 IF j-1 Then 13M 

1219 CUR£Mie.eiPRlNTl«.8)*P0U« uOuS DEf 
1.ACER'' 
1228 CURS0RI9, I8>PR1NT[:. 

WtTJ- 
1739 CURSORI2,28-PRINT:?,»)j2»J--CU«SCUR 

1249 FOR T-8 TO 5999 'NEXT T 

1259 as 

1799 CURSOR 9, jB:PRINU2,8 "POUR RtNUOTE 

R LA SPILE «PRES UN 

1278 CURS « ■ ' "SOR 31 

.l?:pRihl;6.B]'-- 

1288 CWfS0R9.:4:rRINT(6.B)j7«i::u«rS0R 31 

.14!PRIH1I5.B]*— -L" 

1298 FOR T-9 70 4899 : NEXT 1 

1389 CLS:CURSOR8,12:PRINl*ETES-vOUS PRCT 



i CURSOR !8,14.-PRINTC2,B]'SC0R£' 
'E38-J2 



;J1* 



1888 FOR T-B TO 2BBB'NEXI TiG0T0IB98 

181B FOR T"B TO 2BB8 "NEXT I 

1828 RESET X2,f2'R£SET X2.T2- 1 :RESET X2. 

T2t1 

1838 SET Xt.TI.OiSEI XI ,T|-1 ,6:S£T XI, Tl 

'1,8 

1840 FOR T£"8 TO iea8:HEXT TE 

1859 O.S = C0L0R, ,6,8 

1088 CURSOR 6,B:PRINT'L« GrtGNflNT lit * W 

It 

1878 CURSOR 10,14iPRINTC2,9J"SCORE: 'U1 

*i;- -;3B-J2 

1860 FOR T-B TO 2880'NEXT T 
1090 CLS 

1180 CURSORIB, r2:PRINTCS.8]'UNE AUTRE Pf> 
RTIE ?* 



1319 GET r>»; IF 
1329 CLS 

'■330 REIL'Rr* 

1340 REn DflTfl. Pr.«.nla; 

1358 DnTP- ' »»*»» feSttl 



1388 OMfl 

1378 DATA ' 
1388 WlTfl ■ 



0' THENI318 



1398 :•-■;■■ 
x xxtxx ' 

1408 DATA ' 
1 X ' 

1419 OATA ' 

1420 DATA ' 



SHARP MZ 700 



LETTRES GEANTES 




La possibilite d'imprimer des lettres geantes dans le 
sens vertical sur I'imprimante du PC 1500 est tres inte- 
ressante. mais on peut regretter que la taille des lettres 
devienne alors disproportion nee par rapport a la lar- 
geur du trait. I'impression de caracteres gras etant im- 
possible. 

Ce programme permet de s'affranchir de cette limita- 
tion, et d'ecrire toutes sortes de caracteres gras ou 
elargis avec une grande facilite. Le principe est simple: 
chaque lettre est imprimee plusieurs fors en etant de- 
calee a chaque fois de 0.2mm, en largeur aussi bien 
qu'en hauteur. II est possible de choisir independam- 
ment I'epaisseur de la lettre en largeur et en hauteur, 
ce qui permet de nombreux effets. Notons toutefois 
que le nombre total depressions est egal au nombre 
depressions en largeur multiplied par le nombre de- 
pressions en hauteur, ce qui augmente considerable- 
ment le temps d'execution; ainsi . pour imprimer une 
lettre dont I'epaisseur dans tous les sens serait quintu- 
ple de la normale, il faudrait 25 fois plus de temps que 
pour I'impression d'une lettre normale. 
Le programme permet un grand nombre de facilites: on 
peut introduire un message entier avant de I'imprimer 
(jusqu'a plus de 700 caracteres sans extension me- 
moire); tous les caracteres peuvent etre utilises, et 
meme certains qui ne sont pas accessibles par le cla- 
vier; du reste, on dispose de 36 tallies de caracteres et 
non seulement 10 (la taille 36 est la plus grasse qui 
puisse etre imprimee sans que certains caracteres 
soient tronques). Le texte peut etre modifie a volonte 
avant I'impression. 

R.ALESSANDRI 

Le PC 1500 commence par demander la taille des caracteres. entre 
1 et 36 (il est possible d'aller jusqu'a 255. mais les caracteres ne 
pourront plus etre impnmes en entier); ensuite. il demand© I'epais- 
seur (nomhre d'impressions en hauteur) puis la largeur et le deca- 
lage par rapport au milieu du papier (il nest pas necessaire de re- 
pondre si Ion desire un decalage nul. le texte etant alors 



partaitement centre quelle que soil la taille des caracteres). A cha- 
que demande, le programme indique la limile a ne pas depasser 
pour une impression correcte (il est par example absurde de vouloir 
imprimer en epaisseur triple un caractere de taille 1, le resultat etant 
parfaitement illisible). Apres cela, le texle peut etre introduit. Les 
touches SMALL et SHIFT s'utilisent normalement, et les caracteres 
introduits apparaissent a droite de I'ecran, et decales a chaque fois. 
La longueur du texte n'est limitee que par la taille de la memoire 
disponible (et la longueur du papier). Les touches d'edition < et > 
permettent de deplacer le texte et ainsi, de modifier un caractere: le 
caractere qui sera modifie est celui qui se trouve tmediatement 
apres le dernier caractere affiche. Notons qu'apres s'etre ainsi de- 
lace a volonte, on doit retoumer a la position initiale avant d'impri- 
mer le texte: en effet. le lexte ne s'imprime que jusqu'au dernier 
caractere affiche. Par ailleurs. il n'est pas possible d'utiliser les tou- 
ches d'insertion ou d'effacement, mais une astuce permet d'y reme- 
dter: si Ton appuie sur la louche DEF, un caractere d'insertion s'ins- 
crit. mais ne sera pas imprime; si on le met k la place d'un autre 
caractere, celui-ci sera done efface. D'autre part, on peut introduire 
de tels caracteres dans le texte de temp en temps pour pouvoir 
ensuite effectuer des insertions sans trop de difficultes. Ce pro- 
gramme fait souvent appel a des POKE qu'il est interessant d'expii- 
quer. Les lignes 2 a 7 correspondent a la demande des differents 
parametres. La ligne 8 initialise les indicateurs SHIFT et SMALL par 
un POKE& 704E. Le programme debute toujours en mode majus- 
cule. L'etat de ces deux indicaleurs sera ensuite memorise dans les 
variables W et V. L'adresse & 7864 contient la partie haute de 
I'adresse du dernier octet disponible, qui depend des extensions 
memoires. Le texle sera memorise en descendant a partir de cette 
adresse. a la place normalement reserves aux memoires. Les lignes 
9 a 1 1 initialisent le SHIFT et permettent d'attendre I'introduction 
d'un caractere. puis d'appeler I'impression du texte (lignes 40 et sui- 
vantes) si la touche enfoncee est ENTER. 

Les lignes 12 a 13: appel du defilement du texte dans un sens ou 
dans I'autre si I'on a appuye sur < ou >. 

Ligne 14: memorisation des caracteres correspondent aux touches 
de reservation. 

Ligne 15: appel du sous-programme "changement de couleur". 
Ligne 16 et 17: modification des indicateurs apres appui sur SHIFT 
ou SMALL 

Lignes 18 a 24: transformation des caracteres pour le mode SHIFT. 
Ligne 30 memorisation d'un caractere d'insertion. 
Ligne 32: abandon (touche OFF). 

Ligne 33: mise en memoire du dernier caractere introduit. 
Ligne 40 a 42: impression. 
Lignes 45 S 47: decalage de laffichage. 
Lignes 50 et 51: changement de couleur. 
Ligne 60 a 62: controle de I'affichage. 
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■ -UAJ1 8:CLS 1 [ 


/ 23 


IF C7.»)")"nND 




:?^9;GRtfPH : U — 


i-~^J ) 


7K', )0R (2»^ 




ROTATE IS INPUT \\ 




V)LLt 7* 




DIMENSION 11 ^c 




CHR* (fiSC 2**1 




» 36) ?";2 j 




6) 


1 


7=lNT f»8S Z. / 


24 


if 24 " "LEI 7 




o 0K:E 679F4, ?. t 




»--, ■ 




oRiNT -EPAJSSE 


\ ?f> 


IF ASC Z« ■; 




UR II Q-;7 <Z> 




It' i CNR* 32 




3t)*?tiZ-3! >i 


' 76 


IF OSC ^*=lfl 




i ' i . INPUT Y 




LET Z* "1" 


4 


CLS : v^oBS f. X 


2? 


IF OSC 71 1 ! 




-Y. "RJNT "LflRG 




LET i$- r 




EUR ( 1 rv ,7i ■ ) 


\ 28 


IF OSC 2*»24 




"i . INPUT X 




LEI /i-CHR* S.7 


5 


r.LS .^-OBS X. 




E 




GOSUB 50 


29 


n it ir u 


6 


U^fl.PRJNr ''DEC 




:li :4*""" 




ALflGE ("i -108-* 


38 


IF fiSC Z4 2S 




7«3']NI <y^2), 




PRINT PEEK f.78 




O' 1 , 108-^»3- 




64f25(, 




IHT <Y'?>; ■ ) 




•3 




"i INPUT U 


31 


■* ?? 


? 


CLCURSOR (108- 




1 F. 1 ,'1 | HR4 IS 




?t3 INI (Y'2>* 


~i? 


ir nsc /i is 




U, 0JJSORGN 




rtxr .end 


8 


CLS :»0KE 1701 




. 




i . PI 1 ■- l?04l 




. 




PflU il 




GOTO 3 




tEXTE 


18 


■ 




r-'M.K ft7Rr.i*256 

■ A I 




■i 


9 


J- I 


41 


. - U< ) >9 


ie 


?$ JNKEY9 - " 




1 TO .'.. 




HO IS 




■ rO Y: 


1 1 


8F.EP I :»0KE £7 




IR (U !. 




01E, c ^i l '. 1?04( 




■j 1 ' . 1 PR i 'I I 




«ND aFO. IF nsc 




i HR< PI F K n. 




ITO -18 




NEXT Ui '■■ 


17 


IF «SC Z9 B 




■ ■■ 




cnto 45 




OR t-V-*l 


13 


IF flSC n 17 




. X)-S0RGN 




GOTO 1? 


12 


. COTO B 


ii 


\<21 


•»5 






ONn fiSC 7«>i6 


■17 


GOSUB BB: 




: F r /% i HR* I 




t 




■■■:<, .. 




■■■.'[ ' COU 


i ', 


l**$ 




■ 




■ GOTO 




';U: ii r.RS (H- 




1 




. ■ ■ ■ B 


if, 


.,-. 


'»] 


i in OR u.u- i - 




■ 




> TURN 




1 . "1 1 v | ■■■ 


Ml 


1 




...il 10 




■ ■ 


17 


« 71 1 1 




2: If 




U Ui "in. ■ ■■■ ■ 




21 




nil -8 


61 


■ 




•u. GOTO 




■ 


IF 


i| 2| .' fU u 




HR* 




■ 




''. I ' ' ■■ ' 




■ ■ ! 




l| INKI VI 1 1 T 




■ 




■ 


. 


... 

. IF ,'t " ."I CI Z 




•il /.I u. "1 TURK 


M 








t " >" 


5IATUS ; 



SHARP PC 1500 



PAM 




L'utilisateur de ce programme peut avoir une Mev CE 
151 mais il dimensionnera AS (39) x 80 au lieu de 99. 
Ce programme est base sur le fait que. pour obtenir un 
bon dessin anime il faut le creer image par image, et 
repasser ensuite le tout & la vitesse desiree. Ici, une 
image est representee par la variable AS qui contient 
40 caracteres hexadecimaux, 7C 2B 7F 5A etc... 
Une image est done une matnee de 7 points. 
Tout se fait en mode DEF et par 3 touches INKEY afin 
de ne pas perturber lecran lorsque i'on dessine. On 
utilise le principe abscisse ordonnee (abs. de 1 a 40, 
ord. de 1 a 7). 

Dessiner point par point est long et fastidieux, mais le 
programme comprend 10 routines qui facilitent grande- 
ment le travail: montee ou descente du dessin en 
cours, totalement ou partiellement de la droite vers la 
gauche ou I'inverse. Matrice de controle avec transfert 







' ■■ 

. . ■. . 

- 

■ I : 

■ 
- - . : ■ 

■■ 

■: 

■ . . ■ ■ ■; 

3. IN 

; . ■ 

ill 

■ ■ 

■■ NT 001? 

N ■ . 



140: BEEP 

iSOR A. 

II 

-2«<0B : 

ro lea 

20 

■ I ■ 

... ■ . tie 

03 

1610 85; 

m 

■■ ■ 



.- . 

Nl POINT I 
'2- IF 

■ HEN 108 
■'■■.■■' : -GOTO !8 



38?. no i t • la 

08 

305: f=0R I ^46T0 85- 

GOTO 318 
?06:POR 1 ---85 ro 45 

STEP 1 
310;».=PO!N1 ■■■:■■ 
>/ 

2 64>*2 
320:OCURSOR J- 

CPRlNf P: IF 

INKEY* ='*' 

rHEN !88 

340. NEXT 

400. I 0=410: 

RSOR 87. 

- - INI ?5;28; I 
27:GCURS ■ 

.■CPRinr 122. 

CURSOR 8; INPUT 
485:WAJ r iJ:COTO 18 



total ou partiel, droite gauche ou I'inverse, etalonnage 
5 par 5 pour le repere d'abscisses sur la matrice de 
controle, etc... 

Un tableau de ces routines est donne. La plupart des 
routines sont sonorisees differemment. 

Alain MOREL 

Avec limpnmante CE 150. on peut faire des dessins de grande 
laille. Lorsque le programme PAM es! entre. on merge le pro- 
gramme DES. C'est une sorie de HAROCOPY. voir I'exemple du 
dessin. 

Important; Bien que DES soil merge, on peul modifier n'importe 
quelle ligne des deux programmes sans aucun probleme car ils 
n'onl aucun numero de ligne en commun. 

Le dessin peut etre d'abord fait a la main puis entre par PAM. Lors- 
que tout est terming on modifie la ligne 2140 en raioutant GOSUB L 
avanl NEXT I. DEF SPACE et la CE 150 font le reste. 
B etant la variable, indice de AS . il corwient de la mettre a la bonne 
valeur. Si un dessin comprend deux parlies de 12 variables cha- 
cune, comme c'est !e cas dans 1'exemple fourni en mode RUN on 
fera B = 11 pour la premiere partie (AS (0) a AS (11) = 12 matri- 
ces). 

Le dessm que je vous ai envoye est en deux parlies. Mais pourquoi 
pas 3 ou plus! 

Avec te programme PAM + DES, il y a des tas d'astuces que je ne 
citerai pas, ce serait trop long. Mais n'imporle quel utilisateur peut 
750: VBEEP 3,88; 

input ■•ftBI=-;H 

. ' 0R2- .- . '1- : 

="; I: J=2«tJ-J > 
768;C0R I=45-*HT0 1 

5-*KiCCURS0R 1: 

GPRiNT JOR 

POINT !;NEXT i 

:GOro 102 
900: D-BEEP 2, 40:l 

-8; INPUT -Orl = 
JH, Qr2=-;K 
805: INPUT ■'ftb*--'; J 



4J8:=0R 1=! 
;GOTO ■ 

■Sll.-OR I ■- 

step - 



3TO J2S 



<>15:GCURSQR I: 

GPRJNT POINT 1 
OR POINI (] -44 

•>: IF INKEY* *• 
"•THEN 188 
420:NEXT i:G0T0 10 

8 
500: N"F0R 1=9810 

123:GCURS0R I- 

44:0PRINT 

POINT JOR 

POINT '.I-44J. 

NEXT i :Goro 10 

8 
680: "S'SEEP I, ISO: 

0-523: INPUT ' fl 

bs?";C 
685: IF O480R C< 1 

THEN 180 
6I0:GOTO 1808 
620:FOR J-46T0 45-* 

LMGOTO 638 
62KF0R I-85T0 45* 

ESTEP -1 
630:GCUPSOR I: 

GPRINT 3:NEXT 

!:G0TO 108 
R' BEEP 5, 9, 48 

-■FOR I ^90TO 12 

9:GCURS0R 1; 

GPRJNT 0:NEKT 

1:G0T0 180 
J' BEEP f.tOR 

1=94 TO I25STEP 

5:GCURS0S |: 

GPRINT 650R 

POiNT I. NEXT 1 

-GOTO 180 



■ - > ■ - • 
8-7»<K>3) >• 
CHR* 
x£H>9)) 

2038; a*<E 

8*;NEXT ]:0 
0+1: BEEP 1, 
58:G0T0 100 

7180: input ' *. 



Big 



650: 



700: 



: X=J*45 

FOR 1=K-1T0 K- 
I :L=L+2-*I:NEXT 
I:P-P01NT J: 
GC'JRSOR J. 
GPRINT LOR P: 
GOTO 100 
1880;l=ASC INKEY* 
: IF LOSfiND 
L0129EEP I, 

ie,3;Goro 10 

08 
1818: IF L=12THEN 



1828: IF L=8THEN D 
+ J 

2802. 2- BEEP 1. 15 
8, 30:BEEP I. 
134, 38:BEEP 
I, 120, 38: 
SEEP 1, 73. 58 



21!8:>JftlT \a:"0R ; 

-8T0 B-l 
2128:GCURS0R 98: 

GPRINT fi*< 1 ) 
2138: IF INKEYt s' 
:n ]08 



les decouvrir autant que mo» 

On appellera M la rnatr.ee mfta'e de desstn et m la matfx» fa 
controle 

= Dessme point par pomt suivant abscisse et ordonnee (abs de 1 
a 40 el ord. de 1 a 7). Pour supprimer un pc**. entrer 
abs normale mais ord negaM. Ex: abs = 20, ord = - 3. Matnee 
M. REM les touches INKEY — et •- ont teur artente sonorisee 
par un cliquetis 
A: Fait monter le dessin dans M. Demande un WAIT pour La rapt- 
dile — . montee a partir de la gauche. — : Montee a partir de la 
droite. " ; Slop la montee et Retour a = . 
V: Idem DEFA mais DESCENTE— . — . * : Idem mais desceme. 
M: transfert de M dans m. demande un WAIT sj m nest pas vide * y 
a superposition — ; transfer! de gauche a dwte — : t/ansfert 
de drorte a gauche. * : stoppe le transfert et retour a ^ 
N: Transfert de m dans M. Egaiement superposition. 
S: Efface le contenu de M. demande abscisse .— Efface de gauche 

a droite — : efface de droite a gauche. 
B: Efface totalement m. 

J: Cree un repere d'absasse 5 par 5 dans m. 
X: Trace une droite dans M. demande les 2 abscisses et lordonnee. 
D: Trace une droite verlicale dans M. demande les deux ordonnees 

et labscisse. 
2: Traduit et transfere !e dessin de M dans AS (B). 
SPACE; Genere le dessin anime dans m.' : stoppe le dessm amme 

et retour a = . 
Remarque: Le nombre mscrit a droite de I'ecran est la valeur de B. 
soil celle de I'mdice de AS disponible. 



3200:'"OR Y--8T0 40 
:P=P01H1 

AND E 
3380: IF PO0LINE 
CY*5, ■ •■ 
Y*5-3, -X*5-i 
),0,e,B.LlNE 
CY*5, -X«5>-( 
Y«5*3, -X*5-4 

),e»a 

3408: NEXT Y:SLXT 
X:GLCURSOR ( 
8, -35) 

3508: RETURN 




7\4 



I: GOTO 



PROGRftfinE COHPLE- 
HENTfllRE A HERGER 
flUEC LE PROG. PRIN 
-CIPftL POUR CREER 
OES DESSINS DE 
GRfiNOE TftlLLE SUR 
UNE OU PL'JSIEURES 
BflNDES PAPIER 



I: "L"GRAPH : 
SORGN :E=I 

i:F0R X^8T0 6: 
E=E»2:1F X=8 
LET E=i 







PAC MAN 



Comme son nom le laisse deviner, il s'agit d'une ver- 
sion du celebre jeu "revue et corrigee" pour le PC 
1500. ce qui suppose quelques modifications. 

Joel ARMENGAUD 

Pour entrer le programme: 

Faire en mode PRO. NEW & 3C22 (module 8 Ko necessaire). 
Entrer le programme BASIC sans changer les numeros des lignes 
(attention aux donnees en hexadecimal). 

Faire RUN pour charger le programme en langage machine. Si le 
message PROGRAMME PRET ne s'affiche pas. vehfiez les lignes 
une a une. 

Desormais. Def J lance le programme. Vous dirigez alors grace aux 
touches FHhaut), D(bas). F5(gauche) et F6(droite) le point cligno- 
tant. en haut a gauche du premier cadran A droite de celui-ci, deux 
PAC MEN partem a votre poursuite d'une facon plus ou moins dis- 
traite, pour ne pas rendre votre tache trop difficile. 
Le but est bien siir de reaiiser tout le parcours. ce que Ton verifie 
grace a la deuxieme partie de I'affichage qui represente les points 
restant a effacer. Un beep est emis lorsque vous y etes parvenu: la 
difficulty est alors un peu augmentee seion la progression suivante: 
Premier parcours; vitesse lente. vitesse moyenne. 

Deuxieme parcours; vitesse moyenne. vitesse rapide. PFC9E8268509EO 

9CCF8CflF8CCF0B 
E3BO9CCF8COF0B 



380: 



10:CL5 :ON 
', 260 

28:?-PE£K 478B8*2 
56-PF.^ - 
J 

30»«-STfll ■ 
POKE 

, £5A, &C5, SBE, £ 
ED, &95, &81, 3, S 
51, £9E, 8, 45C,4 
3C, ?31,eC, 883, 



50:CALL STATUS 2, 

7 
60:UCilT 0: PRINT » 
OTTENDEZ UN nu 
HENT" 
78:Q-8:F0R I =&3BC 
5T0 &3C21:ft-A* 
REEK IJMEXT 1 
fi0:WAI T : IF fl< >]0 
85808EEP 5, 255 
:PRINT "ERREUR 
DONS LEG DONN 
EES" :END 
30: PRINT "PROGROn 

HE PRET'-iENO 

180: - J'UOIT 99 

1 18: IF PEEK £3C28'. 

>tF8P^ II 

;EN0. 

l20:fl*8:CftLL 138C5 



-.■:.. 

"SCORE »"}.fl 

148:WOI T 
\ Nl 

268; 4 e?7'l 05860388 
5FF1IB88348784 
flFfl85034IB3FF4 
1B580414JCCFBO 
0B983QE78FB682 
83B38 

270:"O42fiBEf.66BCCF 
BD56O04D988834 
83B40ElF0CO587 
7507760JF45B88 
85I6C35830DFD9 
9B570 

I21O464S807F I 
EFD1A88I748014 
ft27COF04O96CfiF 
2CflF448084OFFC 
0E2CftE4CD0fjr:34 
2CCF8 

FD5ABEE42C831 
048014000074] 9 
30F8712B10D480 
040B71683824OF 
F8E824BFFBE3BB 
9B330 

308: , 'BF83880O£F78F 
OFF892CCCFCFB9 
QC0F8B52E 12109 
4S977JF8824B0F 
F191ECCFC44C0F 
C5005 

318: T)ftJF'jD7F83135 
■•■■<m:\;w i (il ':■ r,' 



288: 



290: 



E3BD3 

328: "6B88BE39CF680 
1BE39CFBE30F9C 
CFB0005D9D020B 
58C282O6808CDO 
CCCF8BE3BD9BE3 
0F968 

330: "006O02COOC3EO 
I487840F258285 
OE8040E78D903F 
0C0FSF540E2FDC 
fll 5F3CCE8F0SAC 
CEOBE 

'■3B09810285FFO 
E7808CO03CCE8F 
050CCE04E888B8 
3048nFFOO881O0 



358: 



348: 



flECBE 

' 3B09810285FFO 
E280ICOD5CCE8F 
O5OCCEO4E80BB8 

684084fi008E0^P 

■:Hii ' ' ' ;■':,.;■:.!.' 

.... 

■■■ ■ ■ .'.■■■ ■ 
E780; I ■■ ■ 
928E07B ■' 
2EO78DI808B8OE 
□ 780288C d JE'1B''>H 
28E08 
378: ED78O2808BH.1B 
5018E26CCO5FD5 
OCCD70I 1641 ■ 



F3E1BED78D1808 

B15ED78D788898 

9CC03 

■'FD50CC07BE3B4 

631 13B5083E2FC 

CD3FD5OCC05BE3 

846ED28O2888B0 

69315B5018E1OC 

CD7FD 

330; 5Q8303CCD5BE3 
B4691 118E09CCD 
3BE3B46B508818 
2B58248784QD8F 
DCOD94D048805F 
D8RB0 

400: 395058785OFEF 
540E0FDCO2O5OE 
20403FDDOF5F55 
OF2FD0040D324F 
OCAF5F55656550 
85580 

418: BE3BD3CCE8BE3 
BD98O48744O005 
877S058609855C 
D88B80536F384! 
21O944C08888C4 
C8183 

420: "8-1 058)04 9fl09t 
3E4 I 8680860024 
87S4AF01536B30 
405168B81F9O4O 
B2B44888F6C808 
B850f 

430; "F0I8F990F018B 
E3BC6310C3OFO8 
8BE3B77FD10FD8 
8BE3B77F010849 
6838284 16F0O02 
OF DOB 

440: "8EF5DDF02004D 
9D3D3B325O77B0 
4BIB42'1BD8]202 
4FnEC90F0ft8CCF 
8BE3B852034BE3 
BB5FB 

458: 288383BDFrnDl 
B04 2ni4F828838 
38DFrODlftF0989 
4 1020588868880 
D5004FDIOFDC85 
80068 

468: 08142OCD50FO8 
ftF0CflFD2030F00 
828B5406O07O68 
88305888624 F 02 
O90F088814877F 
38F8B 

470: 81FBrD0O3OB44 
8770B0E9O848DF 
r4877098E9n803 
636308B6B68B23 
03088202070208 
03080 

4B8: 7777405O5O022 
E2E203636006E6 
0003602282E200 
O5O003O086F485 
85EI03626882E2 
02028 

490:"03S94OfiD600E2 
802F800" | 



SHARP PC 1500 



METEORS 



Detruisez les meteorites qui se cachent (on se de- 
mande ou, d'ailleurs!) a I'interieur de votre PC 1500. 
Oeil de lynx et nerfs d'acier sont indispensables pour 
reussir. A vos claviers!. 

Christophe FOUQUET 

Maniement du vaisseau spatial: 

La louche R (comme rotation) permet au vaisseau de tourner sur 

lui-meme de facon a pouvoir orienter le laser vers le meteorite. 

La touche 5 permet le iir. 

La touche 1 permet le deplacement lateral du vaisseau a condition 

que le canon du laser soit oriente vers la gauche. 

La touche 9 a la meme fonction que I. mats vers la droite. 

La touche H (comme hyperespace) efface le vaisseau spatial el le 

replace a un endroit quelconque de I'afficheur. Mais, vous pouvez 

aussl bien disparaitre a jamais dans I'espace, vous entendrez alors 

une petite musique macabre. L'utilisation de I'hyperespace est limi- 

tee a 4 fois. 

De meme. pour echapper au meteorite, vous pouvez aller a une des 

extremites de i'afficheur, grace aux touches l et 9 pour reapparaitre 

a I'extremite opposee. On ne peut utiliser cette solution que deux 

fois dans la partie sinon vous disparaitrez dans I'espace. 

Au debut du jeu, on vous demande le niveau qui est en fail la rapi- 

dite du jeu Au niveau II faut avoir de bons reflexes et prendre des 

decisions rapides. A la fin du jeu, le programme vous indique le 

nombre de meteorites abattus et vous attnbue un grade, ou un 

commentaire sur votre pilotage. 



20 i 

uojr o 



?■■{!). 



28. DIM 0*1 

DIM ntf8)*?f). 

RANDOn" 

I2.D0»I85: 

1J-.fl2.RI 93 
<i0;a»(0j | 

. i. . q*( i j ■ 3fl 

leu te lei ■' i 1 

4»( |) 
■.: 1636* 

, I83F64 i 

■ .. ■ . 

>0.*n RN 

I 

Hi!, i t |NKI ■t . " I' 
■Mi : AND N 
)J'(U ■ ■'■ 



100: N p ■. 

Lf ' P 0: k.*X*J 
1 in. II I'- .' 

tiif m r.riTCJ 400 
128. IF |t h 

350 
i Id: ii 2>23'iOTO 7H 

8 

M0;N u>> It R' >. 
[I „ . . | ■ N ., 
I*j0. II 11 

1 60. 1 ■ ■, 

,!■■. 

n '-■■■ 

' f0. I Ml-' .... ■ ,,,. 

; |N1 ■■ 
u!0!T 0. M i !l P 

. . <■!.' 

■ S0 
■ 



8LI >■ \ 

-' 
?00.ON (!■ ■ 

. . ■ /. >..:. ■;.' 

?]0.« : or k»p+) rn ■ 

■ OR " . 

■ I ■■ 

>70. M - '■Hf.nm 27 

■ ■■ 

230; N| - I tC:COT0 90 
740.' or K P l ro 2 
Mi r I .ClIR'.rit' 
<;PRINI 
2901 [| - 

8 
260: '■! - I KfGOTO 80 
■ ,-. ■ . ..■. 

81 l p i.n, 20; 
■ ■ B; '■• i . 
■ 
'80: i : "I IN in 
i : It ■ . 



,;,.: i 13: 

SI ORI - ;., (1 
E TEOR Iff! 
790; IF '.>■ 7HLI f rii 
(0) ■ UOUS 1)1 ui. 
'.. ■ ■innONiWNl 

380; II (S<20)fiNfl ( 

■ : . . i 1 ntCBJ 
i 1 1 ■, UN 
BON Pll DTI 
310: II cS< l6)fiN0 I 

s>i0)i i i nt(0) 

■■'■,-,'. ■■ 

■■:... ... 

378. II ■■' |0| i i rut 
■ ■ i XPUI SION 

01 L I ■ 
LI " 

(40 ; issta " 

STEP |:«flIT 
cCCUBSl " 

■ ■ '■■ 

: . r,oro IB 

!A8:i L! :i C+l N 
04PAUSI "pi b 

■ , | i ...-,■ | 

:.■ ■ .'MUM ,.,„, 
- I I, .,i .... , . , .,, 
■ 

. ■ • ■ rnt) 
HTPER-I 
> > > . 
J70:P PtRNT) .'■■ RNO 
25; II i >0ONi) P 
R| rURN 
.'. i - P ■'. 00, 100; 
til I i' j . . 
01 l ■■ ■ , 

81 if i . 'ii. ~w. 

HI I i' i. R| . 90. 

91 LP 1, R| , 270 

190; Rl LP I, DO, 90; 

■'!.■■ I, nil. 770: 

■ i i ■ |,SJ. 90. 

HI I '■ I. DO, ill! 

400.1 I ' .<i.. I ' ■:. 

' || ■ ','■!■. ,1 

MM' |I 

GCURSOR l: 

OHINf "C(l IUI 

. . ■ ■■ Nf.xr i 

,iun ,i 

Ml p 

■ 



■ 



SHARP PC 1500 
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Patois basic 



I adaptation dun programme dun 
ordmateur x sur un ordinateur v n'est 
pas toujou's chose atsee 
A pnon. presque tous les ordmateurs 
odividuels sonl program ma We s en 
basic, langage theonquement stan- 
dardise 

En reahte. et le basic par lui-meme 
nest pas en cause, chaque ordma- 
teur possede son basic "etendu" qui 
reste tres different des autres 
"our les mordus du langage machi- 
ne, aucune solution de ce type nest 
envisageable. el pour cause 
8ien entendu. remarques et ajouts 
seront les btenvenus a fin de comple- 
ter petit a petit ce panorama des 
oatois basic 




Copyright Hebdogtciel 



ATARI 



La seule instruction Basic un peu particuliere. c'esl TRAP; tors d'une 
erreur, TRAP deroule i'execution jusqu'a la ligne specrfiee (Equiva- 
lent de ON ERROR GOTO). 

SON: 

Une seule instruction sonore: SOUND C, P. D. V Product un son ou 

C represente le canal, P !a periode. D la distorston el V le volume. 

GRAPHIOUES: GRAPHICS (ou GR): 

Exemples: GRAPHICS 8: graphiques mode 8 avec ecran partaoe 

GRAPHICS 8 + 16: mode 8. plein ecran. 

GRAPHICS 8 +■ 32: n'effacera pas l'ecran. 

GRAPHICS 8 + 16 + 32: Combinaison des deux prece- 

dentes. 

COLOR: 

Dans les modes graphiques 3 a 11, cette instruction seiectionne le 

regisire couleur qui sera utilise dans ('instruction PLOT. 



SETCOLOR X. Y. Z: 

Attribue au regtstre X la couleur Y et la luminance Z. avec EX 
E3, EV £15. EZ E14. nomferas pairs seutemar* 
pour Z. 
PLOT X.Y: 

Affiche un poirt ou un ear acler e am co onJonnaa s X. Y 
LOCATE X. Y. 0: 

Rennet de retire dans la rnemorre ecran le contenu d'une case soe- 
ctfiee en X. Y et range te resurtat dans D. 
DRAVYTOP: 

Trace une ligne entre la demiere posrtjon du curseur at to point de 
coordonnees X. Y. 

GEST10N DES PADDLES ET JOYSTICK: 
PADDLE (0): 

Donne la position du boulon de ta comrnande a motefle 0. 
PTRIG: 

A si le bouton fire* du paddle est entonce. a 1 sinon. 
STICK: 

Donne I'etat du joystick 0. 
STRIG: 
A si le bouton "fire" du joystick est enfonce. a 1 smon. 



APPLE II 



ORGANISATION DU GRAPHISME ET DU TFXTE 
Trois mode d utilisation de I'ecran 

- Texte 

- Graphisme basse resolution 

- Grapheme haute resolution 

Chaque mode graphique peut etre total (tout I'ecran) ou mixe avec Ou 

texte (4 dernieres lignes) 

II y a deux pages de texte et deux pages graphiques 



Texte 

TEXT 

HOME 

V7AB 

HTAB 



24 lignes. 40 colonnes 
Seiectionne le texte 

Efface I'ecran 
Tabulation verticaie 
Tabulation hon/ontale 



Basse resolution 40 lignes. 40 colonnes 

16 couleurs 
GR Seiectionne le graphisme 

COLOR= Seiectionne la couleur 

PLOT Dessme un point 

HLINE Trace une horizontale 

VLINE Trace une verticale 

Haute resolution Page t 280*160 points 
Page 2-280*192 points 
HGR Seiectionne page t 

HGR2 Seiectionne page 2 

HCOLOR Seiectionne la couleur 

HPLOT Dessine un ou plusieurs points 



POKE ET PEEK COURANTS 

POKE 32.G Fixe la marge gauche de I'ecran a la valeur g 

POKE 33.1 Fixe la longueur de la ligne d'ecran a la valeur 

POKE 34. H Fixe la 1"* liqne de I'ecran a la valeur h 

POKE 35.B Fixe la derriiere ligne d'ecran a la valeur b. 

POKE 36 H Amene le curseur en position horizontale ch 

POKE 37.CV Amene le curseur en position verticale cv 



POKE -t 6304.0 Passage du mode texte au mode graphique 
POKE - 1 6303.0 Passage du mode graphique au mode texte 
POKE -16302.0 Passage du mode graphique + texte au graphi- 
que total 

Passage du mode graphique total au graphique + 
texte 

Passage de la page 1 a la page 2 
Passage de la page 2 a la page 1 
Passage d'une page graphique a la meme page en 
texte 

Passage dune page texte a la meme page en gra- 
phique 

Annule le flag pour onerr goto. 
Restaure le flag pour onerr goto. 
Prepare le clavier pour une lecture 
Teste si un louche a ete enfoncee 
Lecture de la position honzontale du curseur 
Lecture de la position verticale du curseur 
Produit un "clik" sur le haut-parieur. 
Lecture du bouton de la manette 0. 
Lecture du bouton de la manette I. 
PEEK(2 1 8)+PEEK(219)*256 X consent le numero de la hgne ou 
a eu lieu lerreur. 
X-PEEK(222) Lecture du code de lerreur. 

APPEL DE SOUS-PROGRAMMES EN ROM : 

CALL -936 Nettoie la fenetre d'ecran (home) 

CALL -958 Nettoie I'ecran a partir de la position du curseur. 

CALL -868 Nettoie ia ligne a partir de la position du curseur. 

CALL -922 Emet un saut de ligne. 

CALL -912 "Enroule" la page de texte (scroll). 

CALL -1994 Nettoie 20 lignes de la page l graphique basse re- 

solution 

CALL -1998 Nettoie la page 1 graphique basse resolution 

CALL 62446 Nettoie la page graphique haute resolution cou- 

rante (rtoir) 

CALL 62458 Nettoie la page graphique haute resolution (cou- 

leur). 



POKE -16301.0 

POKE -16300.0 
POKE -16299.0 

POKE -16298.0 

POKE -16297.0 

POKE 216.0 

POKE 216.255 

POKE -16368.0 

PEEK(-16384j 

CH-PEEK(36) 

CV-P£EK(37) 

X-PEEKM6336) 

X-PEEKI-16287) 

X-PEEKI-16286) 



CLEAR 
DRAW 
FLASH 
GET 

HIMEM 

LOMEM 

NORMAL 
POL 
POS 
RND 



ROT- 
SCALE- 
SCRN 
SPEED 
USR 

XDRAW 



OPERATEURS LOGIOUES 
5>l Donne vrai code 1 

5—5 Donne vrai code 1 

5<l Donne laux code 



Reinitialise les vanabJes 

Dessme une figure codee 

L'afhchage passe en mode flash 

Saisie dun caractere au clavier (sans return) 

Limite supeneure de ia memore de I'utthsateui 

(protection) 

Limite mfeneure de la memcre uMisaieur (pro 

lection) 

L'afnchage passe en mode normal 

Lecture de ia position de la manette de jeu 

Lecture de la position honzontale du curseur 

Nombre aieatoire de a " 

RND(O) redonne le dernier nombre 

RND(1) nouveau nombre 

RND(-l) redonne la meme sequence 

Angle de rotation d'une figure (draw) 

Tailie dune figure (draw) 

Basse resolution, donne la couleur du point 

Fixe la vitesse d'affichage des caracteres 

Appel d'un programme en assembJeur avec pas- 

sage dun parametre 

Efface une figure predefine 



DIVERS 



PARTICULARITES : 

CALL Appel dune routin 



en assembleu' 



- Lapp's (saut 1'apple 2E) ne possede pas de mi- 
nuscules 

- Les caracteres ne sont pas redetinmssabJes di 
rectement 

- L'apple ne possede pas de processeur poui la 
synlhese du son Les routines sont ecntes en as- 
sembler 

Ladresse 768 (300 en hexa) est souvent ladrcs- 
se de debut dun programme en assembleur (son. 
dessms ) car c est une zone mutilisee par le ba- 
sic 

- Les figures (shape! utilisees avec draw, xdraw 
etc sont codees sous une forme speoale elles 
devront etre redessinees ■ 



ORIC 1 



GENERAL rTES: 

STORE el RECALL (ATMOS uniquement): sauvegarde et lecture 
des variable. 
POP: 

Depile la premiere adresse d'un GOSUB lors d'un RETURN. 
PULL: 

Depile la demiere adresse d'un REPEAT lors d'un UNTIL. 
WAITX: 

interrompt I'execution d'un programme durant X cenliemes de se- 
conds. 

COKE X. HHLL: 

Equivalent de POKE X,LL et POKE X + 1.HH. 
? DEEK(X): 

Equivalent de ? PEEK(X) * 256* PEEK(X + 1). 
LOMEM: 

Fixe le plancher des variables. 
HIMEM: 

Fixe le plafond des vanables. 
GRAB: 

Recupere la place occupee par la haute resolution au profit des va- 
nables. 
RELEASE: 

Rend la place pnse par GRAB. 
GET: 

Interrompt le programme jusqu'a ce qu'une louche soit enfoncee. 
HEXS (Y): 

Foumtt I' equivalent hexa du nombre Y. 
KEYS : 
Fournit le code ASCII de la touche enfoncee 



BASSE RESOLUTION: 

L'ecran est divise en 28 lignes de 40 colonnes. La premiere ligne 
est la ligne des statuts (reservee aux messages systemes: sear- 
ching, loading...). 

La premiere colonne est reservee a la memo-re couleur de la ligne 
el la deuxieme est reservee a la couleur d'encre. 
il existe trois ecrans basse resolution: TEXT. LORES et LORES 1. 
Dans les deux premiers, les caracteres sont normaux, ators que le 
toisieme utilise les Prestels (paves geometnques). Les deux pre- 
miers sont tres semblables 
PLOT X, Y. Z: 

Place aux coordonnees X. Y le caractere Z. Si Z est superieur a 32. 
c'est un caractere normal, sinon c'est un attribut (double hauteur, 
couleur , cfignotemerrt...). 

PAPER X (X entre O et 7): determine la couleur de fond. 
INK X (X entre et 7) : determine la couleur de I'encre. 
SCRN (X.Y): 

Fournit le caractere contenu aux coordonnees X. Y. 
PRINT (ATMOS uniquement): 
Similaire a PLOT, mais le curseur suit, 

HAUTE RESOLUTION. 

Acces par HIRES. L'ecran comporte 240 ' 200 points. 

CURSET X. Y. Z: 

Place le curseur graphique aux coordonnees X. Y Z defimt la cou- 



Z = 2: inversion video. 
Z = 3: curseur invisible. 
CURMOV X, Y, Z: 

Deplacement relatif du curseur. sans trace, de X points vers la 
drorte et de Y points vers le bas. Z: voir plus haul. 
DRAW X. Y. Z: 

Deplacement relatif du curseur, avec trace (couleur determinee par 
Z, voir plus haul). 
CIRCLE X. Z: 

Trace un cercle dont le centre est la demiere position du curseur, X 
reprfesentant le rayon et Z la couleur. 
PATTERN X: 

Permet de iracer en pointille. 
FILL X. Y. Z: 

Remplit I'ecran a partir du curseur sur 6 * X pixels a droite. Y pixels 
en bas de lattribut Z. Sert particulierement a introduce des cou- 
leurs. 
CHAR: 

Place un caractere aux coordonnees du curseur. 
MUSIQUE. 
Sons predeftnis: 

EXPLODE: produit un bruit d'exptosion. 
SHOOT: produit un bruit de coup de feu. 
ZAP: son laser. 
PING: ping. 
MUSIC C.O.N.V: 

Produit une note de musique. C represente le canal, O I'octave. N la 
note et V le volume. 
SOUND C, T, V: 

Produit un bruit. C represente le canal. T le ton et V le volume. 
PLAY M. S.E.D: 

Lorsque le volume de SOUND ou de MUSIC est a 0, cette 
comrnande sert a determiner I'enveloppe (E) et la duree (D). M de- 
termine le nombre de canaux de musique et S le nombre de canaux 
de son. 

LES ADRESSES STRATEGIOUES. 

Elles sont donnees ici sous leur forme la plus usitee: en effet, I'Oric 

acceptani indifferemment les nombres en decimal et en hexa, il ap- 

partient au programmeur de decider quelle forme est la plus facile a 

retenir. 

ORIC-l ATMOS 

# FBIOson produit par le clavier. # FB14 
555: RESET 583 

# F89B: regenere les caracteres 

reconfigures # F8D0 

# E6CA,# ED01.# F960:inhibe la scrutation du clavier * E76A 

# E804.# E807: la retabtit E93D 



lew 



■ 0: couleur de lond. 
couleur d'encre. 



616 adresse du curseur 
48000-491 19: adresses de I'ecran 

basse resolution 
40960-491 19: adresses de l'ecran 

haute resolution 
# 208." 209: codage des touches 
18: acces a la ligne des statuts 

COOES DE CONTROLES FREQUENTS. 

CHR$ (4); double hauteur, 

CHRS (6): bascule le son du clavier. 

CHR$ (11): remonte le curseur. 

CHR$ (17): fait disparaitre lo curseur. 

CHRS (20): bascule majuscules/minuscules. 

CHRS (27) escape. 

23 



inutile (PRINT ) 



idem 

idem 
idem 



COMMODORE 64 

TIS et Tl: Horloge en temps reel. TIJ ■ '100530* met I'hortoge a 10 

heures. 5 minutes et 30 secondes 

OPEN, CLOSE: 

Ouvre et ferme un fichier. En general, l represente le port cassette. 

4 I'imprimanle et 8 le lecteur de disquettes. 

CMD4: 

Envoie toutes les sorties sur le port 4 (Equivalent de PR* 4 sur 



SF 



Prend un caractere au clavier. Si nen nest tape, la valeur est nulle. 
SYS: 

Equivalanl de CALL, appel dun sous-programme en langage ma- 
chine. 

WAIT X. Y, Z: 

Suspend I'execution du programme Jusqu'a ce que le contenu de X 
soit egal a Z el a Y. 
ECRAN: 

La memoire ecran est contenue enlre les adresses 1024 et 2023. 
Entre 55296 et 56295 se trouvent les mille adresses qui conliennent 
la valeur de chaque caractere. 
646: Contient la couleur de I'ecrilurtj. 
53280: Contient la couleur de la bordure d'ecran. 
53281 : Contient la couleur de lond de I ecr; n. 
650: Sert a la repetition des touches. Lorsque I octet esl a 0. seul la 
barre d'espace et les curseurs se repetenl; a 127. nen ne se 
repete, et a 128 tout se repete. 
De 43 a 46 se trouvent les pointeurs de debut et de fin du Basic 
Dans les instructions PRINT, les caracteres inverses servant a da- 
placer les curseurs ou a definir une couleur. 
SON: 

De 54272 a 54296 se trouvent les adresses qui contiennenl les ca- 
racteristiques du son emis pour les trois voix 
54296: Volume (de a 15). 
VOIX 1: 54278: Maintient et relache de la note. 

54277: Attaque et decroissance de la note. 

54276: Forme de londe 

17: trlangulaire. 

33: dents de see 

65: carree. 

129: Bruit Wane. 

54273: Haute frequence de la note. 

54272: Basse frequence de la note. 

Dans le cas dune onde carree. on utilise 54274 et 54275 
VOIX II: Memos adresses + 7. 
VOIX1II: Memes adresses + 14. 
SPRITES: 

53248: Debut de la zone memoire altouee au composanl gerant les 
sprites. 

53269: Octet contenant le numero des sprites utilises, avec le code 
survanl: 1 ■ sprite 1,2 = sprite 2. 3 - sprites 1 + 2. 4 = sprite 3... 
2040 a 2047 zone nllou6e aux pointeurs de sprites. 
64" N:zone memoiro ou sera stocke le dessin du spnte. 
47 registres sonl utilises I partir de I adresse 53248 
53248' coordonnee X. 
53249: coordonnee Y. 
53277: taille suivant X 
53278- taille suivant Y. 

53279 a 53286: couleur des sprites do a 7. 

La rudimontante du basic du CBM 64 expliquo lomploi frfiquont du 
langage machine. 



FX 702 P 



Le langage Basic utilise par le CASIO FX 702 R run des ordmateurs de 
pochele plus pertormant. en fait surtout une machine destineeauxetu- 
i1 aux soenlifiques. quoiqu'il constitue egalement un excellent 
moyen de debuter dans rmtormatique 

Ce Bas'C est actueliement run des plus rapidesexistant sur ces petiles 
machines Par rapport au Baste standard, il incorpore beaucoup de 
fonctions statisttques tres pertormantes et des operations passibles 
sur chaine de caracteres 

1 ) Fonctions statistiques 

X, Y STAT - rentre un couple de donnees destmees a un traitement 

statistique 

MX ou MY • donne la moyenne des X ou des Y 

SX ou SY - donne la somme des X ou des Y 

SX2 ou SY2 • donne la somme des X 1 ou des Y 1 

SXY - aonne la somme des produits XY 

CNT ■ indique le nombre de couples x. Y rentres 

SDX - donne lecart type des X 

SDY - donne lecart type des Y 

SDXN • donne lecart type standard des X 

SDYN • donne lecart type standard des Y 

SAC • remet a zero les vanables statistiques 

2) Fonctions scientitiques 

SGNX - SlGNX - donne +i ou -1 selon le signe de X 
SQRX - X puissance 1/2 ■ donne !a racme carree de X 
FRACA - A-INT(A) - donne la partie tractionnaire de A 
AHCX - arc cosmus hyperboiique = LOG (X+(X*2-1)-(1/2)) 
AHSX - arc sinus hyperboiique - LOG (X+{X'2+1)*(1/2)) 
AHTX - arc tangente hyperboiique = LOG f(1+X)/{1-X))/2 
HSNX - sinus hyperboiique = (EXPX-EXP(-X))/2 
HCSX - cosmus hyperboiique - (EXPX+EXP(~X))/2 



HTNX - tangente hyperboiique - -2'EXP(-X)/(EXPX 

+EXP(-X))+1 
LOGX - logonthme decimal de X 
LNX — logonlhmeneperien de X 
RND (X) arrondit a X Chiffres la partie fonctionnaire de X A ne pas 

contondre avec RND (X) du Basic standard qui genere un 

nombre aleatoire compris entre et X 
DEG (DD. MM. SS) : convertit les degres. minutes, secondes en degres 
decimaux 

DMS (DD.DODD) : convertit les degres decimaux en degres. minutes, 
secondes 

RPC X,Y ; convertit des coordonnees cartesiennes (X.Y) en coordon- 
nees polaires (R.O) 

PRC R.O : convertit des coordonnees polaires (RO) en coordonnees 
cartesiennes (X.Y) 
X! : calcule la (actorielle de X 

Toutes ces fonctions absentes du Basic standard peuvent neanmoms 
etre programmees facilement. 

3) Particular! les de certames instructions : 

Le Basic CASIO possede quelques particularites d'orthographe et de 
syntaxe qu'il est bon de connaitre pour la fransenption des program- 
mes ecrils pour toumer sur le FX 702 P 
IE...; -IE ...THEN 
IF. ...THEN = IF. ..THEN GOTO 
GSBX-GOSUBX 
PRT = PRINT 
RET - RETURN 
1NP- INPUT 

INP'.....".X- PRINT' "::INPUTX 

PRT m.A - PRINT USING j}|JS;A 

PRT CRS 9:A = PRINT TAB {9);A 

WAIT X determine la duree de I'affichage (-=PAUSE) 

RAN; = RND(l) genere un nombre aleatoire entre et 1. A noter que 

1 instruction RANDOMIZE n'existe pas dans le Basic CASIO. 

MID (X.Y) - MIDS(S.X.Y) extrait Y caracteres a partir de la position X 

dans la variable - chaine de caracteres S 



KEX - INKEYS 

* = elevation a une puissancfl aj?tcor>qu« 

+ — <> • different de 

> — > — • supeneurou egata 

S — — < - mferieur ou egala 

E symbole de lexposant en notation soentrfique 

VAC efface toutes les memoires 

GSBS2 ou GOTOS2 envoie au debut du programme ou du sous-pro- 
gramme dans la zone memoire nume> o 2. Rappe- 
lons que la memoire du Casio peul conlenir 
10 programmes independents qui peuv-: - 
moins s'appeler Tun laulre 

4) Instructions specifiques 

Quelques instructions specifiques augmentent considerabtement les 

possibilites du 702 P Ce son! ceiies qui pilotent le lecteur de cassette 

qui sont egalement programmables. Ainsi est-il possible de creer des 

fichiers de programmes et de donnees a accessequentiel sur cassette 

magnetique. 

PUT - sauvegarde des donnees sur bande magnetique 

GET — lecture de donnees enregistrees sur bande magnetique 

LOAD SO" XX": charge dans leCasio zone Oleprogramme "XX" enregrs- 

tre sur bande magnetique. 

5) Modes programmables 

II faut enfin rappeler que differents modes de fonctionnement peuvent 

aussi etre integres dans la programmation 

MODE 4 • Les calculs d'angles se font en degres 

MODE 5 - Les calculs d'angles se font en radians 

MODE 6 • Les calculs d'angles se font en grade 

MODE 7 * meten marche rimprimante 

MODES - arrete rimprimante 

6) Conclusion 

Cetteenumeration des differentes particulates du Basic Casio devrait 
permettre a chacun de recuperer pour son propre matenel. les pro- 
grammes qui fonctionnent sur cet ordinaleur de poche. 



Tl 99/4A 



CALL COINC 

(3L r. c. t. n) 



Le texas possede un basic particulierement different des autres ordi- 
nateurs mdividuels La gestion spedfique du graphisme et la nchesse 
des fonctions du Tl basic et du basic etendu nous tmposent de traiter 
cet ordinateur en 2 parties 

Nous n'avons pas. volontairement. precise les differences entre le 
basic simple ou Tl basic et le basic etendu : le basic etendu regroupe a 
peu pres toutes les caracteristiques du basic simple 

Organisation du graphisme et du texte 

Le texas utilise une page de texte de 24 lignes sur 32 colonnes utilisa- 

oie en graphisme basse et haute resolution a I'aide de caracteres que 

ion peut redefinir 

11 existe 16 couleurs dont la "couleur" transparente. 

Tant que la couleur d'un caractere n'a pas ete definie. le caractere est 

en noir sur fond transparent. 

Le texas utilise pour tout ce qui concerne le graphisme des sous-pro- 
grammes fermes (sous-programmes systemes predefinis) que Ton 
appel au moyen de Instruction CALL. 

II est possible de definir des "lutms" ou sprite, qui sont des formes de 
couleur dont on peut controler le mouvement (vitesse horizontale et 
verticale) Lors de I'utihsation des SPRITES. I'ecran est comparable a 
re grille de 192 lignes sur 256 colonnes. 28 futins peuvent coexister 
sur I'ecran, avec des tallies differentes Chaque lutin est anime d'un 
mouvement absolument independent du programme - on peut travail- 
ler en basic pendant qu'un lutm traverse I'ecran 



CALL COINC 
(ALL, N) 

CALL COLOR 
(SLC) 

CALL COLOR 
(JC, C, CF) 

CALL DELSPRITE 
(BL) 

CALL DELSPRITE 

(ALL) 

CALL DISTANCE 

CL.2L.N) 

CALL DISTANCE 

(SL. R.C.N) 

CALL GCHAR 

(R, C. N) 

CALL HCHAR 

(R. C. CC) 



Instructions geranl le graphisme 

CALL CHAR (CC. CF) permet de definir un caractere graphique. 
CC — CODE du caractere. CF - DESSIN du nouveau caractere. Chaque 
caractere est represents par une matrice de 8*8cases Chaque rangee 
est representee par un octet, une case pleine etant notee 1 et une case 
vide par Apres codage en hexadectmale. on obtient CF qui est une 
liste de 8 nombres hexadecimaux sur 2 caracteres (total 16 chiffres 
hexa> Si CF comporte plus de 16 chiffres hexadecimaux, le dessin est 
code sur 2 (ou 3. 4 ) caracteres 



CALL LOCATE 
(SL, R. C) 
CALLMAGNIFY 
(FG) 

CALL MOTION 
(JtL. VH. W) 



CALL CHAR PAT 
(CC. CHS) 



CALL CHARSET 

CALL CLEAR 
CALL COINC 
(SL. SL. T N) 



Renvoie {dans CHS) sous forme de 
chaine de caracteres binaires le motif 
du caractere de code CC (inverse de 
CALL CHAR) 

Reinitialise les caracteres decodes 32a 
95 a leurs couleurs et motifs standards 
Efface tout I'ecran (CLS. HOME...). 
Detecte la coincidence de 2 lutins (flL). 
La coincidence n'implique pas le che- 
vauchement ; 2 lutms coincident si leurs 
coins supeneurs gauches sont a 1'inte- 
neur du seuil de tolerance IT). N con- 
tient -1 s'il y a coincidence. sinon 



CALL POSITION 

(SL.fi.C) 

CALL SCREEN 

(CC) 

CALL SPRITE 

(SL.VC.CL. R.CCH.CC) 



CALL VCHAR 
(R. C. CC) 



Detecte la coincidence entre un lutm 

(SL) et un point repere par sa rangee (R) 

et sa colonne {C). (T) — tolerance. N — 1 

ou si coincidence ou non. 

Detecte la coincidence entre 2 lutins 

quelconques. N - 1 ou si coincidence 

ou non. 

Fixe la couleur pour un lutin. (Le fondest 

toujours transparent). 

Fixe la couleur d'un jeu de caracteres 

(JC). (C) - couleur du dessin. (CF) - 

couleur du fond. 

Suppression de lutins (SL). 

Suppression de tous les lutins. 

Donne le carre de la distance entre 2 lu- 
tins, dans (N). 

Donne le carre de la distance entre 1 lu- 
tin et 1 point de coordonnee (R) et (C). 
Lit le caractere situe en (R). (C) et renvoi 
son code ASCII dans (N). 
Affiche un caractere au point situe en li- 
gne (R) et colonne (C). avec repetition 
eventuelle horizontalement. (CC) est le 
code du caractere, 

Permet de positionner un lutin (SL) au 
point de coordonnee (R), (C). 
Permet de specifier la dimension des 
lutins. (FG) est le facteur de grossisse- 
ment. (1 pardefaut). 
Specifie la vitesse horizontale (VH) et la 
vitesseverticale(W) dun lutin (SL) Une 
vitesse negative fait reculer le lutin et 
lorsque le lutin approche du bord de 
I'ecran, il disparait pour reapparaitre a la 
position correspondante du cote oppo- 
se 
Renvoie la position du lutin 

Change la couleur de I'ecran et la fixe a 
la couleur (CC). 

Permet de creer un lutin (3L). (VC) est le 
code du caractere utilise pour definir un 
lutin, (CL)sa couleur, (R).(C) la hgneet la 
colonne. (VH) et (VC) les vitesses hori- 
zontale et verticale 

Place un caractere de code CC au point 
de coordonnees (R) et (C) et le repete 
eventuellement verticalement. 



Les instructions suivantes couvrent pratiquemenl toutes les p.iriicu!a 

rites du TEXAS 

CALL SOUND (D, F, V) permet la production de son. avec D - 

Duree. F — Frequence et V — Volume 
La duree est en milleme de secondes. la frequence correspond a la fre- 
quence de la note (da — 110) et le volume varie de Oa 30 
Instructions specifiques 
MAX (Nl. N2) 



MIN(N1.N2) 



POS(CH1.CH2, N) 



CALL KEY (T.VR.VS) 



donne la plus grande valeur des deux nonv 
bres Nl et N2 

donne la plus petite des deux valeurs Nt et 
N2. 

donne le nombre PI avec 11 decimales 
(PI -3 14159265359) 

donne la premiere position du premier ca 
ractere de la chaine 2 dans la chaine 1 
La recherche debute a la position specidee 
par N POS donne si la chaine nest pas 
trouvee 

Affecte a VR (variable de retour) le codedela 
touche pressee. 
La valeur affectee depend de la touche spe 
cifiee Si la touche vaut 0. lentree est accep 
tee de tout le clavier et la valeur de VR est le 
code ASCII de la touche pressee -1 Si la tou' 
che vaut 1. 1'entree est accept£e de la gau 
che du clavier, si elle vaut 2 de la droite 
La vanable VS (STATUT) contient Osi aucune 
touche n'a ete pressee. -t si la touche pres- 
see est la meme que la pr6c6dente. I 
Si une nouvelle touche a ete presse« 

CALL JOYST (T. RX, RY) renvoie la position des leviers de la manette 
de jeu. ouRX est en position X.RY la position 
Y et T le numero du levier 

CALL SAY (CH. CD) permet de prononcer des chaines de mots 

CH lorsque le synthetiseur de parole est 
connecte. 

CALL SPGET (CH. CHR) effectue la conversion de la chaine CH en 
chaine CHRprononcable par le synthetiseur 
Reinitialise le g6nerateur de nombres alea- 
loires Si N est present, la meme sequence 
de nombres aleatoires est produite 
Donne le prochain nombre aleatoire, qui est 
superieur a et inferieur a 1. 
permet de creer une chaine qui est n fois la 
chaine CH. 
affiche des donnees a I'ecran 



RANDOMIZE N 



RND 

RPT$ (CH. N) 



Le Basic du TEXAS est relativement puissant et les appels a des sous- 
programmes en langage machine ou a des PEEK et POKE sont prati- 
quemenl inexistants. 



DISPLAY 
IMAGE 

OPTION BASE 



SU8END 
SU8EXIT 



permet de d^linir un form.it dafficluige pour 

1'impresston avec USING 

permet de specifier le plus petit mdice de 

chaque matrice L'option par defaut est 0. 

(autre option est I 

appel a un sous-programme avec liste de 

parametres 

Fin d'un sous-programme 

permet de quitter un&ous-programmcavant 

sa fin par SUBEND 



DRAGON 



Le DRAGON 32 est riche en instructions graphiques, II possede en 
effet trois modes de graphiques: texte (16 lignes. 32 colonnes). 
basse resolution (16 X 32 ou 32 X 64) avec un jeu de caracteres 
graphqiues predefinis (code 128 a 255) et haute resolution (128 X 
96. 192 X 128 ou 256 X 192). 

9 couleurs sont dispombles; noir. vert, iaune. bleu, rouge, blanc, 
cyan, magenta, orange (numerotees de a 8). 

TEXTE: 

CLSC 

Netloie I ecran (couleur C) 

PRINT 

Tabulation (PRINT AT. LOCATE) 

Basse resolution 

SET X.Y.C: 

Allume le pant (X.Y) dans la couleur C 

RESET X.Y: 

Eteint le point (X,Y) 

Haute resolution. 

La haute resolution est utilisable en meme temps que la basse r6so- 

lution. II est possible de selectionner le nombre de pages (8 au plus) 

afin de realiser une animation graphique. 

CLEAR X: 

Reserve X page graphique. 

MODE M.P: 

M (mode) specifie le lype de resolution 

M vane de a 4: 



M - ecran 128 x 96 (1 page), 

M = 1 ecran 128 x 96 (2 pages). 

M = 2 ecran 192 *- 128 (2 pages). 

M = 3 ecran 192 x 128 (4 pages). 

M = 4 ecran 256 x 192 (4 pages). 

P specifie la page de depart. 

SCREEN T. G: 

T = type, G = gamme de couleur, T = pour le graphisme basse 

resolution et le texte, T = 1 pour la Haute resolution, G selectionne 

les couleurs en fonction du mode (PMODE). 

SCREEN permet de selectionner I'ecran texte ou graphique. 

PCLS : efface I'ecran. 

PSET (X.Y.C): 

Atlume un point en Haute resoution. 

PRESET (X.Y) ; eteint, 

LINE (X1.Y1) - (X2.Y2).PSET.BE ou BF: 

Trace un rectangle plein (BF) ou vide (B), (X1.Y1) el (X2.Y2) repre- 

senient les coordonnees des deux points en diagonale. 

PAINT (X.Y).Cb: 

Permet de peindre une forme debutant en (X.Y) avec la couleur C. 

jusqu'a la bordure de couleur b. 

SON ET MUSIOUE, 

SOUND P.D: 

P(de 1 a 255) regie le ton (DO cmquieme ■ 89). D (de 1 A 255) 

precise la duree (D ■ 16 donne 11). Cetle instruction provoque 

remission dun son de tonalitG P et de duree D. 

PLAY AS: 

Permet la production de mustque (note de la gamme). 

INSTRUCTIONS PARTICULIERES. 

FIX (X) : Copyright Hobdogiciol 

Partie enliere de X, 
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INT (X) : 

Arrondit a rentier le plus petit. 
POINT(X,Y): 

Verilie si le point (X,Y) est allume (basse resolution). 
PP01NT (X.Y): 

Comme POINT en haute resolution. 
RND(X): 

Donne un entier au hasard entre et X si X = 0, le nombre est 
compris entre et 1 . 
HEX$ (X): 

Donne une chaine de caracteres equivalonte (en base 16) au nom- 
bre X. 

STRINGS (N.C), 

Donne une chaine de N caracteres de code ASCII C ou des carac- 
teres entre guillements. 
INSTRfP.SS .T$ ): 

Scrute S$ a partir de la position P. Si T$ est dans SS . donne la 
position de T$ , sinon 0. 
TITLER: 
Donne la valeur du chronomelre (comprise entre et 65535). 




Suite 
page 59 



POLE POSITION T 




ILS SONT TOUS LA ! 

Retrouvez chez vous les super-stars desjeux d' arcade & ATARI, 
ils sont tous la : des celebrissismes PAC-MAN ou GALAXIAN 
jusqu'aux recents JUNGLE HUNT ou POLE POSITION. Le gra- 
pheme, les couleurs, la rapidite : tout y est, il ne manque que le 
monnayeur et I 1 'ambiance enfumee des cafes ! 



CENTIPEDE T 



FTTOUJCURS 
10 % DE REMISE 
POUR LES ABONNES ! 



GALAXIAN 

D'innombrables hordes 
d'extra-terrestres en rang 
d'oignons se pressent sur 
tous les ecrans de tous les 
ordinateurs du monde pour 
se faire descendre par des 
lirs de laser implacables, ils 
sont tous des enfants de 
SPACE INVADERS et de 
GALAXIAN, mais qui a ja- 
mais fait mieux que les es- 
cadrons de GALAXIAN qui 
attaquent de tous cotes et 
obeissent a un chef ? A bas 
le rectiligne ! 



ROBOTRON 

Plus on avance dans les ta- 
bleaux dujeuet plus ilyade 

monde pour vous attaquer 
et, comma i! faut se depla- 
cer et choisir la direction de 
tir de votre anti-robot laser 
gun avec le meme joystick, 
il vous faudra un grand en- 
tralnementpourarriveraux 
25 000 points qui vous don- 
nerons droit a une vie sup- 
plemental. 




DIG- DUG 

DIG-DUG, le petit mineur, n'a que son scaphan- 
dre et sa pompe a velo pour aneantir Pooka - la 
taupe hargneuse - en la gonftant d'air jusqu'a ce 
qu'elle eclate. Mais Fygar le dragon et ses freres 
cracrieursdefeusontaussilapaurl'empecherde 
recuperer les fruits qui parsement le sous-sol. 
Peut-etre arrivera-t-il a les ecraser avec des ro- 
chers ? 



PORT GRATUIT ! 



CENTIPEDE 

La commande par boule 
qui actionne ce jeu dans les 
cafes est difficile a manipu- 
ler. Avec un joystick ou me- 
me avec le clavier le jeu est 
encore plus attrayant : Les 
mille-pattes zigzaguent k 
travers I'ecran, la puce dia- 
bolique seme des champi- 
gnons partout face a votre 
pulverisateur de DDT. sans 
oublier les araignees sau- 
teuses et les scorpions ve- 
nimeux ! 




DEFENDER 

Difficile de prevoir d'ou va 
venir le coup, du haut. du 
bas, de la droite. de la gau-' 
che ? Lequel des 14 enne- 
mis presents va attaquer le 
premier ? Dois-je aller en 
avant ou en arriere. accele- 
rer ou freiner, voler en rase- 
mottes ou zigzaguer ? Utili- 
ser mes lasers ou une de 
mes trois smart bombes ? 
Aussidurdegagnerquesur 
I'original mime avec le 
scanner ! 





MS. PAC-MAN 
La petite amie de PAC-MAN 
a beau avoir une faveur rose 
dans les cheveux et user de 
tous ses charmes. elle n'en 
a pas moins les pires ennuis 
avec les quatre fant&mes 
qui la poursuivent, Et it lui 
faut. elle aussi. errer dans 
un labyrinthe en croquant 
des pastilles d'energie 
bleues. Ce n'est pas une 
vie, meme pour un glouton 
femelle ' 



MOON PATROL 
Qui ne connait la petite jeep 
bondissanteau-dessusdes 
crateres. pulverisant les ro- 
chers. abattant les meteori- 
tes, evitant mines, tanks, 
ovnis et plantes carnivo- 
res ? Deux niveaux : novice 
et expert de 26 etapes cha- 
cun. Tous les 10.000, 30.000 
et 50.000. vous gagnez un 
vehicule de patrouille sup- 
plemental. Objectif : pro- 
tection planete Lune • 




DONKEY KONG 

Mario, le charpentier, es- 
saiedesesperementd'arra- 
cher sa fiancee des pattes 
de Donkey Kong, le gorille 
geant qui la retient captive 
tout en haut d'un amas de 
poutrelles brisees. II lui faut 
affronter des cascades de 
tonneaux, demonter des ri- 
vets, emprunter des ascen- 
seurs fous ou encore errer 
dans un dedale de tapis 
roulants charriant des ba- 
quets de sable. Dur, dur ! 




POLE POSmON 
D'abord les essais pour sa ■ 
voir oil sera place votre bo- 
lide sur la grille de depart, 
puis c'est la course propre- 
ment dite. virages series, 
crissements de pneus et 
accidents avec voitures en 
flamme ! Graphisme, cou- 
leurs et trois dimensions, la 
star desjeux de cafes ! Trois 
niveaux de difficult^, deux 
vitesses et des compteurs 
partout I 




JUNGLE HUNT 
Sauter d'une liane a I'autre 
depouiller des crocodiles, 
se faufilersous des blocs de 
pierre, enjamber des ebou- 
lementset affronter desau- 
vages cannibales alors que 
vous n'etiez qu'un amou- 
reux transi et oisif ? C'est 
peut-etre la vue de votre 
petite amie en train decom- 
mencer a cuire dans cettes 
marmite qui vous a change 
ainsi ! 

STARGATE 

Plus rapide, plus difficile 
que DEFENDER, presque 
injouable 1 Les ennemis 
sont innombrables, plus ra- 
pides et plus sournois les 
uns que les autres et I'hy- 
per-espace n'arrange pas 
les choses. elle ne fait que 
retarder votre desintegra- 
tion I Esperons que vous ar- 
riverez tout de meme a sau- 
ver quelques-uns des hu- 
manoVdes qui comp tent sur 
vous pour rentrer chez eux I 



TOUS LES JEUX FONCTIONNENT AVEC LE CLAVIER OU 
AVEC LES MANETTES DE JEU. 



JOUST 

A califourchon sur une an- 
truche, une lance a la main, 
vous combattez les buzar- 
diers sauteurs, chasseurs 
et seigneurs. Mais ne 
croyez surtout pas que ga- 
gner une bataille suffit, les 
vaincus pondent des oeufs 
de frustration qui sont en- 
core plus dangereux si vous 
ave2 le malheur de les lais- 
ser eclore. La joute est ou- 
verte ! 





PAC-MAN 

LeseulJ'unique, ('incompa- 
rable : toujours copie. ja- 
mais egafe 1 19 tableaux dif- 
terents. de la cerise a la do 
en passant paries citrons et 
les cloches Slinky le rapi- 
de, Pinky le sournois. Inky le 
malin et Clyde qui vous 
coupe le passage, vous at- 
tendant. SI vous atteignez 
10000 points vous gagnez 
un tour gratuit et le record 
du monde est a bat Ire I 
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NOUS AVONSBESOIN DE VOUS! 



Remplissez et renvoyez-nous ce questionnaire, cela 
nous permettra de faire un hebdo encore plus attrayant 
poor (a rentrGe; c'est d6ja vous qui 6crivez les pro- 
grammes et qui votez pour les gagnants des deux 
concours, c'est un peu normal que nous fassions 
connaissance et que vous nous donniez votre avis, 
non ? Et pour ne pas vous faire travailler pour rien, 
nous tirerons au sort 40 questionnaires qui gagneront 
une machine a calculer Casio ou un des logiciels du 
Soft-parade. 





20 MACHINES A CALCULER 
et 20 LOGICIELS A GAGNER. 



QUELLES AUTRES REVUES D'INFORMATIQUE 
LISEZ-VOUS ? 



Ce questionnaire est destine' a un usage interne, il ser- 
vira a ame'liorer les prochains nunukos d'HEBDOGl- 
CIEL. II est confidential et ne sera pas diffusa, sous 
aucune forme que ce soit. Vous pouvez, si vous le d6- 
sirez, remplir le bon de participation ci-dessous et parti- 
ciper au tirage au sort sans rGpondre au questionnaire. 
Des bons de participations sont Sgatement disponibles 
en 4crivant a la redaction. Si vous voulez que votre 
questionnaire reste anonyme, ne remplissez pas le bon 
de participation mais r&pondez au questionnaire et ren- 
voyez-le nous.ca nous rendra bigrement service. 



De temps en temps 


Souvent 
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COMBIEN DE LOGICIELS POSSEDEZ-VOUS ? 



QUESTIONNAIRE LECTEURS envisagez-vous d'acheter un ordinateur ? 

DEPU1S QUAND LISEZ-VOUS HEBDOGICIEL? Nnn 



Depots le premier numero □ 

Depuis le numero (precisez le N° ) 

C'esl la premiere fois que je le lis D 

LISEZ-VOUS REGULIEREMENT HEBDOGICIEL ? 

Oui, toutes les semaines D 

Oui. tous les 15 jours O 

Oui, au moins une fois par mois.. D 

C'est la premiere fois que je le lis Q 

Non, je ne le lis que de temps en temps O 

COMMENT AVEZ-VOUS CONNU HEBDOGICIEL ? 

Pa/un stand du Sicob D 

Par un stand de Micro-Expo D 

Par Sciences et vie Micro D 

Par Micro 7 q 

Par 36.000 Micros de Microtel O 

Par un autre journal, lequel Q 

Par une emission de Tele, laqueile a 

Par une emission de Radio, laqueile □ 

Par des amis D 

A fecole. au lycee. a funiversite D 

Dans voire activile professionnelle o 

En le decouvrant chez le marchand Q 

Par un autre moyen, lequel □ 

OU VOUS ETES-VOUS PROCURE CE NUMERO ? 

Je I'ai achete dans un kiosque D 

Je I'ai achete dans une maison de la presse D 

Je suis abonne D 

C'est le journal de mon club d'inlormatique Q 

C'est le journal de fecole a 

C'est te journal d'un ami □ 

C'est une photocople D 

Je lar eu par un autre moyen, lequel □ 

OU ACHETEZ VOUS HEBDOGICIEL ? 

Toujours au meme endroit O 

N'importe oil □ 

Je le trouve tres facilement □ 

Je le trouve difflcilement D 

Ou habitez-vous, ville et departement D 

QUI LIT VOTRE HEBDOGICIEL ? 

Je suis le seul a le lire O 

Une autre personne D 

Plusieurs personnes, combien 

QUE FAITES-VOUS DES PROGRAMMES D'HEBDO- 
GICIEL ? 

Je les tape toutes les semaines O 

Je les tape regulidrement D 

Je les garde pour les taper plus tard D 

DEPUIS COMBIEN DE TEMPS TAPEZ-VOUS DES 
PROGRAMMES INFORMATIQUES ? 

Plus de 2 ans □ 

De 1 a 2 ans rj 

Plus de 6 mois □ 

Moins de 6 mois □ 

SUR QUEL MATERIEL TRAVAILLEZ-VOUS ? 



Oui, quelle marque, quel modele 

ENVISAGEZ-VOUS DE CHANGER VOTRE ORDINA- 
TEUR ? 



Logiciels de jeux tapes par vous-meme ... 
Logiciels de jeux du commerce achetes 

Logiciels de jeux du commerce copies 

Logiciels utilitaires tapes. 

Logiciels utilitaires achetes 

Logiciels utilitaires copies 

Logiciels professionnels tapes 

Logiciels professionnels achetes 

Logiciels professionnels copies... 



Oui, pour quelle marque, quel modele 

POSSEDEZ-VOUS DES EXTENSIONS POUR VOTRE 
CONSOLE ? 



QUEL EST VOTRE AVIS SUR LES RUBRIQUES 

D'HEBDOGICIEL? 



Non 

Oui, 

Lecteur de cassettes, marque et modele 

Television noir et blanc, marque et modele 

Television couleurs, marque et modele 

Moniteur noir et blanc, marque et modele 

Monitaur couleurs, marque et modele... 

Un lecteur de disquettes, marque et modele 

Deux lecteurs de disquettes, marque et modele.. 

Imprimante thermique, marque et model©.... 

Imprimante graphique, marque et modele 

Imprimante a impacts, marque et modele 

Imprimante a marguerite, marque et modele 

Modem, marque et modele 

Autres, lesquels, marque et modele 



BON 


MOYEN 


NUL 






























































Format du journal 







ET ENVISAGEZ-VOUS D'ACHETER DES EXTEN- 
SIONS ? 



Non.. 



.a 



Oui. d'ici a fin octobre 1984. a 

Oui, d'ici a la fin ris I'annee 1984 □ 

Oui, dans le premier trimastre 1985 q 

Oui. plus tard □ 

Si oui. quels seront vos achats ? 

Lecleur de cassettes, marque et modele 

Television noir et blanc, marque et modele 

Television couleurs, marque et modele 

Moniteur noir et blanc, marque et modele 

Moniteur couleurs, marque et modele .. . . 

Un lecteur de disquettes, marque et modele 

Deux lecteurs de disquettes. marque et modele 

Imprimante thermique, marque et modele 

Imprimante graphique. marque et modele 

Imprimante I impacts, marque et modele... 

Imprimante a marguerite, marque et modele 

Modem, marque et modele 

Autres, lesquels, marque et modele 



QUELLES SONT LES RUBRIQUES QUE VOUS Al- 
MER1EZ VOIR RAJOUTEES A HEBDOGICIEL ? 

Formation au basic n 

Formation a I'assembleur □ 

Formation a un autre langage. lequel 

Une autre rubrique, laqueile 

Une autre rubrique. laqueile 

D'UNE FACON GENERALE QUEL EST VOTRE AVIS 
SUR HEBDOGICIEL ? 



CONTINUEREZ-VOUS A LIRE HEBDOGICIEL ? 

Oui. regulidromont a 

Oui, de temps en temps a 

Peut-etre q 

Non, pourquol n 



QUELS PROGRAMMES D'HEBDOGICIEL TAPEZ- 
VOUS ? 

Les programmes pour mon ordinateur q 

Je les tape tel quel rj 

Je les ameliore □ 

J'adapte les programmes des autres ordinateurs a 

Je travallle seul □ 

Je travallle avec d'autres personnes □ 

QUEL EST VOTRE NIVEAU ? 

Debutant a 

Amateur initio D 

Amateur eclaire □ 

Professlonnel n 

QUEL LANGAGE CONNAISSEZ-VOUS ? 



QUI ETES-VOUS ? 

Sexe mascuim i | 

Sexe feminm 

Votre Age 

SI VOUS ETES ELEVE OU ETUDIANT, 

votre classe 

I'activite professionnelle de vos parents 



SI VOUS TRAVAILLEZ, 

votre profession 

votre secteur dactivitd 

votre niveau d'cludes 

votre niveau do remuneration annuellle... 



Sur du materiel qui m'appartlenl 

Sur du materiel que I'on m'a prete 

Sur le materiel de mon ecoie , 

Sur le materiel de mon club d'intormatique 

Sur to materiel de mon lieu do travail 

SUR QUEL ORDINATEUR TRAVAILLEZ-VOUS ? 

Marque 

Modele 



Debutant 


Chevronne 


Profess ionnol 












































LSE 













BON DE PARTICIPATION AU TIRAGE AU SORT. 

NOM: 

PRENOM: 

ADRESSE: 

CODE POSTAL: 

SI JE GAGNE UN LOGICIEL AU TIRAGE AU SORT. 
JE CHOISIS DANS LE SOFT PARADE LE LOGICIEL 
SUIVANT: 
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MANOIR 



COMMODORE 64 



Une lampe de poche. un crucifix et un grapin, sont vos 
seuls atouts pour sortir de ce manoir infeste de 
chauve-souhs. de monstres et de pieges. 

Nicolas TAVERN1ER. 

Pour charger (ou taper) le programme, il faut tout d'abord taper 
"POKE ".*:POKE" 256.0:NEW". ceci pour laisser I'emplacemenl de 
fa memoire haute resolution libre. 

Lonsque le jeu commence, vous etes dans la piece A-0. Le manoir 
est torme de 64 pieces, de A a H et de a 7. Vous disposez au 
depart, d'une lampe de poche pour vous defendre contre les chau- 
ves-souris. d'un crucifix contre les vampires et d'un grappin pour 
sortir des trous (its ne peuvent servir qu'une seule fois). Les chau- 
ves-souns vous transportent dans une autre piece les trois premie- 
res fois, la quatrieme est morteNe. 

Vous disposez a I'ecran d'un radar qui vous indique ce qui ce trouve 
dans les quatre pieces adjacentes. la sortie est rune de ces 64 
pieces, et elle est symbolisee par une croix. 

100 CLR FORN=139T014.3 P0KEN.RN1X I :■ NEXT 

llt< IFPE£K<44< 064THEN94S8 

120 PPINT-Tr F'C*E5 3230.9 P0KE33269,e 

138 P0KE33281.12 Q0SUB3398 

168 FOSH-81 92T0 16191 P0KEN.8 MExT 

:--■■ F0*M=nft?T0l369:-.TER4Q R0KEM4S, 123 POKEM*8+t,240 P0KEM*8+2, 140POKEM*8+3,1 

ISO pi>E?l»3*4.!Jt3 P0VEM«3+5.I42 F0--EM + 3*6 . 248 f-uKEM»y+7, 128 NEXT 

ISO F0R!:=J-.--44TG-151S4ST£P328 

218 POKEM+7 P0KE "* 1 ' 31 P0KEIH2.33 POKEM+3, S5P0KEM+4, 65 POKERS, 63 POKEM+6, 63 

220 FOPrl=?$i4T014344STEP3ae 

SI HEKlS 9 P* En * 1,89 POKEM+2. 39 : POKEM+3, 29 POKEM+4, 33; POkErt+5, 65 POKEM+6, 6 

c'4y c,, _k- n+ ,- . -..- next 

250 M=9504 POKEM. 1 POKEM+1 . 1 POKEM+2, 7 POKEM+3, 29 POKEM+4, 33 ■ PQKEM+5. 63 

269 FOKEM+6.63 POKEM+7, 67 

270 M=15264 POKEM. 69 POKEM+1. 99 POKEM+2. 28 PCKEM+3,3 ^POKEM+4, 16 POKEM+5,32 
236 POKEM+6,64 POKEN+7.128 

:>;> fofm=10O72TO151?23TEP328 

309 POKEM. 178 POKEM+1. 204 POKEM+2. 1 76 POKEM+3- 149 POKEM+4, 134 POKEM+5, 130 

310 POKEM+6- 130 POKEM-7, 130: NEXT 

329 M-9732 POKEM. 123 POKEM+1. 192 ROKEM+2. 176: POKEM+3. 140 POKEM+4, 134 

339 POKEM+5. 130 POKEM+6, 130 POKEM+7, 139 

340 H-13312 POKEM/ ITS POKEM+1 ,76 POKEM+2, 32 P0KEM+.3, 16. POKEH+4,8 

359 POKEM+5. 4 POKEM+6, 2 PQKEM+7, 1 

360 FORr:=i4960TO15176STEP8 

373 POKEM. 9 POKEM+LO POKEM+2. 0: POKEM+3, 8 POKEM+4, 0-POKEM+5.0: POKEM+6.8 
3tf0 F~>JKEM+i- .255MEXT 
398 F0RM*9529T03?36STEPS 



I340 FQPI-0T07 FOKEM+I-24 MEXT I 

1350 N* 12384 

1368 FORI»0TO7 P0*EM+I,24 -e*Tl 

1370 Cl*limPHD'.!)»3; C2»1HT<RHI : H 

1388 IF<Cl"0flNDC2-8>THEN1370 

1390 IFR/C1,C2>O0THEHI370 

1400 IF<fl<flB8<Cl-l>.C2)-80RR<<<(Cl+l>/8)-IHT< :.-: •■ 3 •« 

1410 IF(H<CI.BBS'C2-l>J=0ORflCCl. ff '.C2*l'/8'-IHT(<C2*I '/0*« >»0JTHEH1 

1420 RCCIfCZW 

1430 F0RM-9T062 RERBQ F0KE969+N.G NEXT 

1440 DRTR0. 0.0. 0.8.0.0.0.0.9.0.0.0.0.0.0.0.0.0.0,0,8.0.0 295.193 

1430 DATA6.0.96.6.0.96. 10.0.00. 10.0.88- 138.72. :S. 0.72. 34. 8- 63. 34. 8- 68 

1460 ItATA66.9.66. 66.0.66. 255,233. 255.0,0.0 

1478 POKE2042.13 PGKEV+41,10 FOKEV+4.164 POkEV+5-210 

i4c0 FNPM.gTn;^ pcslo P'.--=i?-4-;-...-. HE--.T 

1490 DRTR8. 0,0. 0.1.0.8. 133.0.0.133-0.0.242.8.0.52.0,8.48,0.0,0.0 

1500 EHTB0, 36. 0.O. 36- 8. 0.18. 0.0. 17. 0.0. 17, 0.0, 34. 0.0. 68. 0.0. 102.0 

1519 DRTR0, 8, 0,9. 9. 9. 0,0. 0,9. 0.0, 0.0, 8 

1520 P0KE2843.32 

1338 FORN-9TC62 REAM P0KE21 I2-N.0 MEXT 

1340 DRTR0, 0.0, 8.8. 0.0. 24. 0.0.24, 0.0, 120. 8.0. 124.0.0.179.0.0.128.0 

1350 DATR0. 36. 0.0. 36. 9, 9- 36. 9. 0.20. 0,0. 18. 0.8. 18- 0-0. 36.0.0.54.0 

1560 DATR0. 9.8. 9. 0-8, 9- 0.0. 0,0, 9, 0.0,0 

1378 POKE2044-33 

1559 F0RN-8T062 PERDQ P0KE2J 76*H, NEXT 

1390 DATAO. 0,0. 0.0, 0.0, 24. 0,0, 24, 0.0, 30. 0.8. 46. 0,0. 205 .0.0-1.0 

1608 DRTR8. 23- 8. 0.23. 0-8. 36. 8. 9. 49. 8. 0.72, 0.0. 72. 0.0. 36. 0-0. 108-0 

1618 DRTR9. 9, 9. 9. 0.9, 9, 9- 9, 0.0, 0.0. 0.0 

1620 POKE204B. 13 FOKE2041.14POKE2042-15 PQKE2043.33 

1630 P0KEV.163 : POKEV+1, 128 POKEV+2. 233 P0KE7*3. 100 POKEV+4. 163 FOKEV+5.210 

1640 POKEV+6.120 :P0KEV+7.28S POKEV+8,238:P0KEV+9. 170 POKEV-23- 15 FOtEV+29.15 

1650 FORN-0TO62 -PEn?-J - '.■■£'-il-i3.Q-ttEXl 

1668 F0RH-eT062 PEPirQ POKEM-2304,0 HEXT 

1678 F0RH-8T062 FEflCO PQK EH+2363, Q ^MEXT 

16S9 CRTR0.253.e. 1, 193. 123. 1 ■ 129. 128, 1. 153. 128- 1 . 133. 12S- 1 . 12?. 128. 1 . 193. 12? 

i6?e DmTP1.255.12B. 1.219. 123. 1 ,219- 128. 1 -219. 128- 1 -219- 128- 1 .219- 128. 1 .21?. 126 

1700 DfiTHl. 255. 128.0,255.9.0.8.0.0.0.0,0.0,0.8,8.0.8,0,8 

1719 DRTR0, 0.0. 8- 240, 8, 1,8, 3, 2, 0,8, 4, 8, 8. 4, 8-8. 56. 8. 8. 70. 0.0 

1720 DRTPil29,9,8, 123.123.8.128.64,0,128,32.9,128.16.0.0,8.0,0.4.9.8,3.235 
1730 DRTRO, 0,9. 9. 0.0 -9.9. 0.9. 0.0. 9-0.0 

1740 DRTR9. 56, 0.0. 36. 8. 0.56, 0,0. 36, 0.0. 56. 0.7 255.224.7.255.224.7.255.224 
30 1759 PRTS0.56, 0.0, 56-9, 8, 56. 8. 8.56. 8. 8, 36. 0.0, 56 -0.0. 36.8.0. 56,0 
1760 DRTR0, 36. 0-0. 56. 00, 56. 0.9. 56. 0.0. 36.0 

1779 POKEV+2 1 . S POKEV+39 ■ S POKEV+40 . 5 POKEV+4 1,10 POKEV+42 . 3 P0kEV*4j . 6 
1730 REM JEU EH UUI MEHE 

GR-1 



^ 




1790 X-0:Y-9CM-O LR=1 CX 

1530 ?0S'JB3839 

1810 IFV"0T>€HOOSUB2220 

1829 IFV<>0THEHGOSUB2040 
1330 IFX-OTHENOOSUE2410 
1840 IFX-7THEHGOSUE2510 
1839 IFXO0THENOO6UB2360 
1860 IFXO7THENOOSIJB2460 
1370 IFR(X,V)=0THEM1?6O 



2056 FORH°128e8T014728STEP32e POKEM, 128 POKEM+l , 128 POKEM+2. 128 POKEM+3. 128 

2068 PWEM+4,12SPOKEn>5,12S POKEM+6.123 Pf>,EM+7.i28 HEXT 

2070 C 0=<!=12-^.TO14776STEP320 POKEM. 1 POf.EM.l . 1 Ft>:EM+2. 1 : POKEM* 3. 1 

2030 POKEn+4,1 POKEM+5.1 POK.EM+6,1 PWEM+7. 1 :HEXT 

20?0 Fripri=124?6T01252S3TEPi?: POKEM. 253 POKEM+1 .0POKEM+2.0 PuKEM*3,0 POKEM-4.0 

2100 POKEM+5.0 POKEM+6.0 POt.EM+7,0 MEXT 

2110 M-15048 POKEM- 123 POKEH+1'128 POKEM+2, 128 POKEM+3. 128 POKEm4, 120 
(mw IF3(X.V>-1THEN00SUB3I18 2120 POKEM+5, 12? F0*:E«*6 12-; P0s-En-7.25*. 
1899 IFflCX.Y;-2TMEMG0SUE324O 2138 M=ir0.=6 POVEM-l POKEM+I . 1 POKEM-2. 1 POKEM+3- I P0KEN»4, 1 POKEM+3. 1 

1909 1FH<X,VJ=37^EHGC3UB3340 2;4n pr^EM--.i POKEM-7.255 

1910 IFfl<X,V/-4THENG0^US3459 2196 rt- 13776 POKEM.B POKEM* 1,0 POKEM+2.0 POKEM*3,32 POKEM'4.253 P0KEM*3. 32 
1928 IFfl<X.V)-3THEJ«0SiJB34S9 2160 POKEM+6,0 POKEM*7.0 

930 IFfi(X.V>-6THEHGOSUB3310 2170 M- 12488 POKEM, 255 P0»,E»*-1 , 128 POKEM+2, 128 POKEM+3- 128 POKEM+4, 128 
:-3Q 2330 P0-.En-5.12S P0KEM + 6.12S Pn>EM*7,128 

219G M-12536 POKEM, 255 POKEM+11 P0KEM*2,1 FOKEM+3, 1 POKEM+4. 1 POKEM+5. 1 
2208 FOKEM+6.1 POKEM+7.1 
2210 RETURN 



i POKEM+4 .16 P0KEM*5 . 32 POKEM+6, 64 



3.1- POKEM+4, 1 : P0KEM*3, 1 i POKEM+6. 1 



428 M-15576 G-3&JB440 

439 M-15888 GOSUB440 GOT0469 

440 P0KEM,1 PfJKEM+1,2 POKEM+2,4 ■ POKEM+3, E 
450 POKEM+7,123 FETURH 
460 M3i^Q40 GOS'JB480 
470 M-16166 .yj-VFISO GQTO500 

488 POKEM. 123P0KEM+1.64 POKEM+2. 32 POKEM+3, 15 POKEM+4, 8 POKEM+5, 4: POKEM+6, 2 
498 POKEM+7.1 PET'JRH 
508 M-9184 GO3'JB480 
510 M-8856 OO3UB480 

529 M=332S GO3UB430 

530 M-8299 G03UB489 
540 M=9432 ■ MT;UB440 
530 M=?128 CJ3SUB440 
-.'.■: -■■■'■:.--■)-■, ■.'vt-..B445 
■570 M*3496 GOSIJB440 

?,39 FOPM=12356TO14776STEP320 

590 POKEM, 1 POKEM+1.1 POKEM+2, 1 P0KEM+' 

600 POKEH+7.1.HEZT 

610 M"I3096 POKEM, l POKEM+1 . 1 : POKEM+2. 1 POKEM+3, 1 POKEM+4, 1 POKEM+5, 1 

620 POKEM+6. 1 POKEM+7, 255 

630 M"12336:P0KEM,25S POKEM+1 . 1 -POKEM+2. 1 PO/EM+3, I POKEM+4, 1 POKEM+5, 1 

£40 POKEM+6. 1P0KEM+7,1 

65*3 FOPM=12496T0125283TEP8 

660 POKEM. 255 POKEM+1 .0 POKEM+2, 9 : POKEM+3. POKEM+4. 0- POKEM+5, POKEM+6. 

678 POKEM+7. 9 flEZT 

680 M-12488 POKEM. 255 POKEM+1 . 123 POKEM+2, 128: P0KEB*3, 128 POKEM+4, 128 

690 FOt EM+5. 128- POKEM+6. 123 POKEM+7. 128 

■-?■>■ -f i;-.,:.,-„^;:;:- ; ■,_-.--_:;z?' i ii- 

rio POKEM. 128 P0KEM+1.I28 POKEM+2. 123 POKEM+3, 12S^P0KEM+4. 128 POKEM+5, 128 

720 POKEM+6 ,129 POKEM+7 , 1 23 HEXT 

738 M-15843 POKEM, 128 POKEM+1 , 123 POKEM+2, 128 POKEM+3, 123- POKEM+4- 128 

;-40 POKEM-f. \;-:.l POKEM + 6. 123 POKEM+7, 255 

750 M-13776 POKEM. POKEM* 1 . : POKEM+2 .0 POKEM+3. 32 POKEM+4, 255 POKEM+3, 32 

760 FOKEM+6,0 POKEM+7, 

770 F0RM-8T062 FEHDO P0KE332+N.Q MEXT 

788 KRTflO, 0.0. 0.O. 0.0, 9, 8. 8, 0.0, 9.8. 8, 8. 65. 0.0. 99, 0.9, 62.0 

,-?3 IifrThi 1 27. 2:5,255 ■ 63. 255. 254. 31. 235. 252. 15. 255. 243. 7. 255, 240, 3, 255, 224 

300 DRTftl,255. 132.0.247. 128.8.34,9.0,05.0,0,0,0,0,0,0,9,9.0 

310 '.'=53243 POKE2049.13 POKE'.', 290 POKEV + 1.158 PQKEV+23.1 FdKEV + 29.1 

320 PQKEV+39.3 

330 M=I3998 POKEM. [ POKEM+1. 1 POKEM+2. 5 POKEM+3. 9 POKEM+4, 17 POKEM+5, 33 

340 POKEM+6.63 POKEM+7. 129 

350 M-13238 POKEM. 123 POKEM+1, 192 POKEM+2. 160 POKEM+3, 144 POKEM+4, 136 

369 POKEM+5. 132 POKEM+6. 130 POKEM+7,123 

370 F0PM=1 3326TO15566'>TEP320 

330 POKEM, 1 POKEM+1.1 POKEM+2, 1 POKEM+3. 1 POKEM+4, 1 POKEM+5. 1P0KEM+6, 1 

399 POKEM+7, 1 NEXT 

980 FO*M=136O8TO15343STEP320 

910 POKEM. 123 POKEM+1. 123 POKEM+2. 123 POKEM+3 . 123 POKEM+4, 123 POKEM+5, 128 

329 POKEM+6. 12'^ POKEM+7,123 HEXT 

?39 F.3PH.0TO62 PEmCO POKE336+fl.O HEXT 

340 DRT*0. 0,9. 9. 0,8. 0.0- 8.0, 0.9. 9, 8,9. 0,193- 1 36, 4, 34. 23, 14. 28, 62 

998 P0KE2841.14 POKEV+2.200 POKEV+3. 129 POKEV+23,235 POKEV+40, 7 POKEV+23,253 

960 DflTftJ] .62, U7.63.93, 123.107,127,115,129, 190.97.9, 162, 193,8,62, 129.0,28,0 

?79 tJflTfi0,O.0,0.9.9,8,0,0,9,9,9 9.9,9,0.0,0 

33^3 GO3OB2780 

390 PRIHT-nWrtOW -V0U9 VO<j^ DEPLflCEZ BVEC LES TOUCHES ' 

1009 PRINT" H-NORD" 

1910 PRINT" S-SUD" 

1020 PRINT' E-E8T" 

1339 PPIHT" 0-fJtJEST- ° 

1940 PRINT" RPPUYEZ 3UR UNE TOUCME" [ 

1050 OETR* IFfll-""THEH1059 S 

I860 PPIMT"T V-33243 00SUB2229 G03UB2419 O 

1070 PO/EV+21,9 P0KE33272.29 P0KE33263.59 ( 

1939 POVE3320O.0 003UB2368 

1098 UlMfK7,7> 

11 80 FORH-1T04 

1118 CI":NTrPND(I)#8j C2-IHT'PND' 1 >*fti 

1120 IF(C1=0HHDC2-9>THENI119 

1139 IFflai,C2K>0THEH1118 

1149 fl(CI,C2J"l HEXT 

1130 F0RM-1T04 

1169 C1-IHTTPHD(1;*0.' C2-IMT'PHD- 1 •*?,■ 

1170 IFfCl-0ftNDC2-0iTHEH1160 
1130 IFfli-Cl,C2,<>0THEH1160 
1198 flrci,C2)-Z HEX! 
1280 F0RH»1T04 

1218 ClaIHT<RMDMJ»8^ C2»IHT'PHD' I ,'»3..- 
1228 IF(Cl-0flHDC2-0JTH6H12I0 

1239 IFR<Cl,C2;<>eTH£M1219 

1240 R<Cl.C2>-3 MEXT 

1250 M-l 1800 -POKEM- 8 POKEM+1, 16 POKEM+2/9 POKEM+3,4 POKEM+4,40 P0KEM+5.I6 

1260 POKEM+6, 36 POKEM+7. 16 

1270 M«11944 POKEM, 8 POKEM+1. 16 POKEH+2,8 P0»EM+3.4 POKEM+4, 48 POKEM+3. 16 

1209 POKEM-6.36 POKEM+7, 16 

1230 M-12129 POKEM. 4 -POKEM+1, 81 POKEM+2, 18 POKEM+3. j6 POKEM+4 : 

1309 POKEM+6, 126 FOKEM+7,69 

1319 n-12264 POKEM, 4 P0KEM+I.31 POKEM+2. 16 POKEM+3, 36 POKOt+4.129 POKEM+9,239 

1329 POKEM+6- 126 POKEM+7 -69 

1339 M- 12440 



1940 IFfi(X,V>-7THEHGOSUB3330 

1950 POKE198.0 POKE203.0 

POKE197.0 

1960 GETR*- IFfl»-""TH£N1968 

1979 IFfl(«-N-THENGOSUE4~70 

1989 IFfl«--S"THENGOSUB4759 

1990 IFR*-' , O"THEHGOStJB4600 
2090 IFR«""E' , THEMOOSUB4520 
2010 F0PM-8392T08432 : 
POKEM, 9HEXT 

2920 GOS'JB3339-GOTO1S80 

2939 END 

2049 REM POPTE RU FOND 



2220 REM MU 
2230 F0RM=12«$ 
2240 F0RI-8T07 

. ,;.-, F0Rf! -i; , 

2260 RORM-123? 
2279 RORI=0TO7 



STEP320 

■0 MEXT I. H 
FOKEM.0 HEX! 

: I ■- -- 20 

POKEM+1. 8 HEXT] .M 



1.0 POKEM+3. e 



2-300 
2310 
2329 
2330 
2340 
2350 
2 569 
2379 
2330 
2399 
2400 
2419 
2420 
2430 
2440 
2450 
2469 
2470 
2480 
24?o 
2580 
2519 
2529 
2539 
2549 
2350 
2560 
2570 
2589 
2390 
2600 
2610 
2629 
2639 
2640 
2650 
2660 
2670 
2630 
2630 
2 700 
2710 
2729 



..9 POKEM+5. 




M-13776 POKEM, POKEM+1. 9 POKEM+2, 8 POKEM+3, 0POKEPI+. 
POKEM+6. 8 : POKEM+7, 253 
M- 13776 

FORI -9T07 POKEM* 1.0 NEXT 

MM3096 POKEM. O POKEM+1, - POKEM+2. POk.EM+3 , POKEM+4. POKEM+3, 

POKEM+6. O POKEM+7, 235 RETURM 

REM POPTE fl GflUCHE 

FORM- 1 3323T0 1 5368STEP320 

FORI-0TO7 POKEM*!. 1 MEXT I. M 

M-1380S POKEM. 1 POKEM+1. 3-P0KEM+2, 3 POKEM+3- 9 POKEn+4. 17 POKEM+5. 33 

POKEM+6. 65 POKEM+7, 129: RETURN w 

REM MUR ft GRUCHE 

N- 1 300? POKEM . POKEM+1 . 1 POKEM+2. - POKEM+3. 1 POKEM+4. 1 POKEM+3, 

POKEM+6. 9 POKEM+7, 

FORM-13328T01SS68STEP328 

FOPI-0TO7 P0KEM+I.9 MEXT I, M RET1WM 

REM PORTE A DROITE 

FORM= 1 360STO 1 3048STEP320 

FOP I -9T07 POKEM+ 1 . 1 28 NEXT I . M 

M- 1 3288 POKEM. 123 POKEM. 1 , 192 POKEM+2, 169 : POKEM+3, 144 POKEM+4, 136 

POKEM+3, 132 POKEM+6, 139 POKEM+7, 129 -RETURM 

REM MUP fl DROITE 

FORM=13609TO15848STEP320 

FOR I -0T07 POKEM* 1.0: MEXT I , H 

M- 13288 

F0RI-8T07 POKEM+1 .0 HEXT RETURH 

REM RFFICHRGE 

M=8240 POKEM. POKEM* 1 . 56 POKEM+2, 68 - POKEM+3. 64 : POKEM+4 , 64 : POKEM+5, 68 

POKEM+6, 36P0KEM+7. 8 

M-8243 POKEM. POKEM* 1 . O POKEM+2-56 : POKEM+3- 4 pn^EM+4 . 68 POKEM+3. 68 

POKEM+6. 5fl POKEM+7. 

M=3236 POKEM. 9 POKEM* 1.0 POKEM+2, 69 POKEM+3 . 64 POKEM+4 . 36 POKEM+5, 4 

POKEM+6, 120 POKEM+7, 

U^8J64 PpKEM.e P0KEM+I.0:POKEM+2. 56 POKEM+3. 68 POKEM+4, 124 POKEM+3. 64 

POKEM+6 ■ 56 POKEM+7, 

M-9280 FOKEM.0 POKEM+1. 2 POKEM+2,4 POKEM+3. 8 POKEM+4, 16 POKtM+5. 32 

POKEM+6. 64 POKEM+7, 

[1=8344 POKEM .120 POKEM* 1 . 68 POKEM+2, 63 POKEM+3, 1 29 PUKEM+4, 80 

POKEM+5. 72 POKEM+6. 68 POKEM+7. 

FOPM--: '.. - ■ - .IfcPK 

p'. '•*■" -' ' ■'-■•■■ •' POKEM+; ■'■'. POKEM+3.4 POKEM+4.68 P0KEH+5.6E 

fl KEtl**:- ' ■ tr.,* E!«+7,o me:-:tm 

11=8360 POKEM, 4 POKEM+1,4 PONEM+2.4 FOKEM+3. 52 POKEM+4. 76 

POKEM+5, 63 POKEM+6, 69 POKEM+7,0 

H-8376 POKEM. O POKEM+1, 8 POKEM+2, 68 POKEM+3. 96 POKEM+4, 64 POKEM+3. 64 

FOKEM+6,64 POKEM+7. 

M-3334 POKEM. POKEM+t .8 POKEM+2. 8 POKEM+3. 9 POKEM+4,0ROKEM+3.8 

POKEM+6, 8 -POKEM* 7-0 PETiirm 

PPIMT"rW»WB» 1-V0U8 VOUS TROUVEZ DrtMS UM MRMOIR" 

PRINT" -C0MP03E DE 64 PIECES <3»8>" 

-VOUS DEMRRPE2 OE LR CRSE fl-9" 

ET DE'^2 TPOMVEP l.fl SORTIE DO MRNOIR" 

CELLE-CI ETRMI L'UNE DES PIECES" 
-MMLHEUREUSEMEH7 LE MftHOIR ESI [HFE8TE 

DE MONSTRES ET DE TROUS" 

-vous dispose;: w oeprpt ■■ 

-D ONE LflHPE life POCHE" 
POUR VOUS I'EFENDPE C-JNIRE LES" 
CHRUVES 80URIS.' 

-D un crucifi: ■■ 

>:■ DEFEHDRE CONTW LES" 

VRHPIRES." 
-ET D UN OPRfF'In i ■ 

pes ra us- 

PRlHT"JOW -J.PFUVE2 sup ijHE TOUCHE" 

GETM IFfll = ""THEN., - 

PRINT-inwiiWtl -■..mm .NIPEP " 




3130 FORH-120TOI70POK£V + ].HPOKEv.l63-':/H-l !'"•.:(-. 
3140 HEXT^CH-CH+l IFCH-4THEH4830 

3130 FORM-I70TO8STEP-1 POKEV+1 .N POKEV+7.H+J0 HEXT 

3160 Cl-INT(RMDf 1 )»8< C2-IMT <:PND' 1>»8 > 

3170 IF(H(C1.C2)K>0TMEM3160 

3180 X-Cl V»C2 Lfl«0 G0SUB3830 

3198 POKEV. 163 POKEV+1. 120 POKEV+6.120 POKE' ' 

POKEV+21 .8 RETURM 

3280 POKEV+21. 8 GOSUB50I8 

3210 C1"INTCFNDM>»8> C2-IMT.'RMD< I )*8> 

3220 IF<P<C1,C2>>O0THEN3210 

3230 fl'Cl,C2>-6 Lfi«0 G0TO3196 

3240 REM UN VRMPIRE 

3250 V-33246 POKE2044, 37 POKEV+21, 10*tCX»I6> 



PRIHT" ■ 

pr hit "u 

PRINT" 
PPIHT" ' 

PRINT" 
PPIHT" II 

FPiir 



TROIS CHfiuVEI SOURIS 

CHRCUNE D'ELLES VO ■ ■ 

PE VOIRE SflNO ET VOUS IRRHSPORTEPR" 

■i AUTRE PIECE" 
H L« OUflTPIEME VOUS SERE2 MORI." 
W -LOPSOUi 

; : i- 1 ;t. RERUtCE DftNS" 
UME AUTRE PIECE" 
■UN ijEJET HE SEK1 OU'OHE FOI&v 
AW [VERE2 VOUS A REVO IB 1 1 BOLE I L 
'(BOUNE CHANCE, 



i PRlNIfl 

I OETAf [[.'»- 

I RETURN 

I V-33240 POKE2044.33 P0KEV*21 ,3*<LA«16J 

i IFLA-1THEH3280 



'. •' ■ -■:-:■•.'' -' ' --■!-■'■ ■ N III i .- ■:):' 

3290 POKEV+21. 8 POKEV*2.230 POKEV+ I8S 

: ;.-." i. ■■■ ,■ 

3310 Cl-INT. -RMD' 1 H8> C2-lHT<ftHII' 1 >M 

?329 IF MHj !l:(|ii 

3330 ft<Cl.C2>-4 RETURN 

3340 V-33248 POKE2044.36 -POKEV+21 I2*'0h • I • 

3350 FORH-120TOI63 POKEVtf N 

33fO F0RH-288T0239 P0KEV+7.H NEXT O0SUB519B 

3378 IFOR-1THEH3390 

3380 OOTO4830 

3390 FOPH-255TO200SILK 1 POKEV+; N HI II 

3408 F0PH+163TO120TIEP-1 POKEV+S.N HEXT 

3410 GR"0 

3420 Cl-IHT^PHD' I )«8) i ..' IHT< RND(I • 

OOSU83010 3430 If . : _ ., . „ a 

3440 A(C1-C2 '"5 POKEV+21. 9 RETURM *«"• P*0* <° 



27 



CHOCHINUMIA 



Une petite ville d'Alsace. Chochinumia a ete contami- 
nee par des rats etranges nommes "Rats dioactifs". II 
faut done detruire la ville (solution radicale mais etfi- 
cace) avec le minimum de bombes possible. Malheu- 
reusement, chaque fois que vous touchez une usine, 
des ga2 radioactifs s'echappent. 

J.Francois KIEFFER 

Pour I'uiiiisation d'un joystick a la place du clavier, rentrez les lignes 

suivanies- 

2500 JY = PEEK(56321) 

2505 IF (JY AND 15) = 14 THEN Y= Y- 4. 

2510 IF (JY AND 15) = 13 THEN Y= Y+ 4. 

2520 IF (JY AND 16) = THEN FF= FF+ 1, 

Changer de meme les lignes 20509. 2060 et 2061. Le joystick doil 

etre connecte au port 1. 



1433 

14-10 
1450 
1469 

1465 
1470 
1468 
1483 



1640 

1650 
1660 
1670 



F0F:I = !3«64T01?*64-6 £ 
PEADA POKEI.fl HEX! 
FOPI=0TO3 POKE t 043-l. 1 l 
POI E53298+I.7 NEXT 
F0>.E53277.36 P0KE5327I .80 
F0KE53276.255 P0KE53275.9 
P0KE53285 14 P.T'1E5":2^6 L5 
F0RI-14H64T0 I 4*64*62 
RERBfl P0KE1 .fl NEXT 
PGKE2040 14 POI E53287 2 
FtjFI = 13*64 TO^*^-:'.. 
REflDfl POKE] h HEX! 
PQKE2041, IS P0KE53288, 1 
BATR 0.84,0. 1.77. 64, 1.32-88 
DRTR 4,176,64. 1?. 32. 80. 72, 142.20 
BATH 34-35,21. 16-140,123,23,8.9 
DATA 4.242,34,1.128,64.8.83.16 
DATfi 0-5.64,0,0.0.0,0,0 

DATA , 

DRTR 8,255,8.3,215,192,13.85.112 
DRTR53, 253. 92,223.87,247,245.35.35 
DRTR243, 85, 95, 223, 07, 247, 53, 253.92 
DRTR 13,35.240.3.255,9,1.163.0 
DftTB 1,169.0,1,1.0,9,0,0 



PREsENTL 



100 REM »«•••••••••«»»«*•«• 

REM •» PRESENTATIONS »* 

...•••t.i.MMMM* 

125 PRINT"rjIr".CHRi< i-*2.>, P0KE638,128 

l*8T011 
135 PUE^^e :-< P0KE53Z81.1 NEXT 
137 PRINT ih£': 10 >-**••**•*•*•*•••■•***••*' 

133 PRIWTTmE' is: »* **■■ 

148 PRINTTfiB<18>"« JFK ELECTRONICS «*" 

- ['I7TAB' [0J"«* 

142 PRINTTABUiS.'"** 

143 PRINTTflB(ie)*W 
;44 -PinTThB<: 10.. ■'**•••«****•««••»•»•**»*" 
145 F0RI=1T0389 NEXT 

158 PRINT PRINT 
169 PRINT, "JT " 
165 PRINT. "S " 

UNT, "■ ■ 'A N C K I H U 11 I flS1 M 
175 PRINT. "S " 
189 PRINT. "^a " 
185 PRIHTCHR*C8> 
130 FORI* 1TO300; NEXT 
195 PRINT PRINT-PRINT 

280 PRINTTHB(ll>"«_fl VILLE CONTHMINEE ... 
295 PRINT PRINT PRINT 
210 GOSUB305 

220 PRINT":]* ENREGISTREMENT DRTR 3 SEC. 
239 GOSU81005 

24* BOTosees 

388 PEM MHtWIIIWMMWH 

381 PEP1 M ROUTINE RTTENTE *» 

382 REM ********************* 

335 PRINT PRINTTRBUir'kS RETURN 1 POUR 

SUITE... - 

310 ROKE198.0 

315 GETRf IFfiJOCHR*<l3>THEN315 

328 RETURN 

1008 REM ***••*•«•*•*«•***#«•*••**** 

1881 PEM ♦• DATFtS VILLE C SPRITES #* 

1032 REfl WMWII MWM WtWWWW 

1085 PRINT 

1018 F0RI-I2544T0I2543*25»8 

" ■-:■■ POKE I ,k NEXT 
1058 DRTR ,,,,,., 

1068 DRTR 109,100,163.32.160-32,32.204 
1070 DRTR 10.10,10.13,10.10,10,10 
1838 DRTR S". 5, 179, 155, 165, 167. 165, 165 
1930 DRTR 32,22.160,160,160.160.160,160 
1188 DRTR 8-8,1.3,23.13,18,10 
1110 ItflTR 28.35.125-255,255.170,178.3 
1128 DATA 0.0,64,39,212-168,169,32 
1130 DRTR 136,106,127,127,106.106,64,64 
1140 DflTR 64,54,64,64,80,80,38,39 
1153 DRTR 35-85.35.50-30.38.90,98 
1160 DftTfl 35-35-85.170,250.170,179,170 
1170 DflTR 35,85,35,85,35,85,35,85 
■i 0.0.3-15,61.21,26,30 
ftTfl 0.68,255.85-05,85,105,105 
1200 DRTR 16,16,208/248/124/04,164,165 
1218 DRTR 170,179,170,178,178,85,00,249 

rfl 8,88 U£ ] 16, 34. 84. 69, 240 
12:0 [ifilH 15- 6- il. 21, 21, 21, 21. 5 

'• : 192. 240-203-80. 30. 08, 89, 64 
1250 DRTR 240. 240. 255- 21?, 217, 217, 213. 255 
I26t? DftTfl 68.68/232.92,156,136/92,252 
1270 DRTR 40/28.53.238.93/138.1 

13,1 13.5J.5i. 13 
1233 DflTA2S5.233, 

■ *.***••••*■•**«»*••*•«•«•* 



1713 DflTR ,, , 

1730 DRTR 0,85.0,0,150.0,8,28,0 
1740 DflTR 8,68.8,0,255.0,0,255.0 
1750 DRTR 0.255.9.8,68,8.3.40,9 

1769 DRTR ,,,,,,,,,,, 

1770 DflTR ,,, ,,, 

1788 F0RI-54272T034296 POKE 1,0 NEXT 

1308 RETURN 

1350 REM »• RE-COULE'JF GF*PHI!jUES »* 

1355 FORI = 53243TO53263'POK.£I,0 NEXT 

1368 POKE53233.0 P0KE53281.il 

1370 PCKE53263.3 POKE53292-0 

1375 P0KE53284.8 

1389 P0KE33235.14 

1990 P0KE53286.15 

2838 REM ** DONHEES JEU ** 

2905 PR.INTCHF.Ja4J 

2006 PRINT'^a LH VILLEn - If"- !-.' ,--.** R ETE CONTRMINEE" 

2810 FRINTTABMr'PRP DES P.RT3 ETRRNGES N0MME3 " 

2823 PRINTTRB'.ll;"Ik^-?l» -,r*-| %_• ..." 

2825 PPINT-JEH XOTRE DEVOIR EST DE DETRUIRE RU HAXI-" 

2038 PRINT" MUM LR VILLE AFIN D'EnFECHEP LR CONTfl-" 

2040 PRINT" MINRTION.^OUS RVEZ POOH CELR ? ES3AIS" PRINT 

2058 PRINT" 3n LES CCfflfflNDES HHUT = -H- 

2868 FRINT" 3 BRS = -B- 

2061 PRINT" 3 TIR = - - 

2865 PRINT"IMI *M - /l-.rV RUX NUPGES RADIOBCTIFS DE-" 

2878 PRINT" SAGES PAR LES EXPLOSIONS ..." 

2875 INPUT"iB -OEFF. DE DESTRUCTION (1/3)", CO 

2858 IFCOa0RC0>3THEN2875 

2885 INPUT"Jfl GRANDEUR VILLE <1/3)",GV 

2998 IFGV<lOftGVy3THEN2035 

2934 P1*5-":3~C0)+GV 

2895 PRINT"kJI VOUS RVEZ DROIT fl" ,P1 . "PRSSRGES ..." 

2936 GOSUB305 

2100 REM f*** TRBLERU »*•* 

2110 PRINT'^r 1 . P0KE53281. 11 

2120 G0SUB4595 

2140 P0KE52.43 P0<E56.48 

2143 POKE53270.PEEK'.53278jOR!6 

2130 PO/E53232-0 P0)'E53233,S 

2160 POKE53272.'PEEK^53272^RND240)OR12 

2170 F0RI-1B24TO1543 

2172 P0KEI.36 : PQKE54272* I . 9 ■ NEXT 

2180 FrjRI = lS24T01333 F0KEI.56 

2132 P0KE54272*I.2 NE;<T 

2200 Fnpi=lT013-PPINT NEXT V=71 

2205 PPINTTRB'IES.B* PPINTTRB<ES)flf 

2206 P0tfE53278,3 
2218 FORH=1T02 

2212 IFH=1THENG=56 X=8 

2213 IFH=2THENG>53 -C-15 

2214 IFG-53THENyV"INTtRND(l)*6; 
2243 F0RI-eT0W:pOKE1861*4e*I,G 
2250 POKE35333+I*40,C NEXT 

2253 F0RI=VV*5TO12 POKEI061*48*1 ,G 

2269 P0KE55333* I ¥49 , C NEXT NEXT 

2270 P0KE53269. 1+PR X-15 
2275 P0KE33248,X;p0KE33249.V 
2380 OETRS IFR»=""IHEN2300 
2400 REM ** BR'JIT VRISSERU *• 
2410 POKE54276-0 P0KE54296. 15 
2420 P0KE34276-129 

2425 P0KE54277,128 P0KE34273.241 

2430 P0KE34273.1 P0KE54272,! 

2450 IFiiH=9IHENGR=l 0OT02418 

2388 GETRJ 

2305 IFR*="H"TH£NV=V-4 

2510 IFfl*""B"THEHY-Y*4 

2520 IFRI=" "THENFF=FF*1 



2325 IFFF-:^gTME.'«J0SUB2788 

Z33B ■ >; 

2532 IFV<29THEHV«20 

2335 lFV>14ITfCM^*f« ^'E^ -<i.E 'PC* BflS ..." 00TO3888 

25<<-? IF.-'/£557f€MTE»l GOSVK35M 

2543 I r, C-«3flWW<S8flMHFEE- Ett29B8 

2550 TP-PEEl'53273- [FTB ^'44188 

26>?3 P0KE33248.X P0KE53245 • 

2618 GOT02588 

2780 PER •* IIP •• 

2705 PE=3 

2718 K» >: IF 255TICJ«E»a 

2729 P0KE53269, > — 

2715 IFTE=2THE-l^0'E5:-26J 3 

IFFF=[TME't.'-.^v f?=: 'JB=t»+l 

IFVB.136THENOOT 02888 

FWE53250-X-PE FCrE53251 YE SETUPti 

FF=0 

Ta=INT'.X/3.--2 rV-IHT((VB-91>/8> 

IFFEEK/5326-«y = ;TrtENT:.: = IltT. ;.<;r : -. 

HB-PEEK<1824+TX*4e«TY) IFRS=56oPRE=32TMENTV-TV*l PCKES3251 I 

*E=FEE>" 1824 + TX-40«TV ■ IFmc=5-;--S = _-2--E:.- . -l5V269.I»FR FETLFh 

POKE54263.8 P0KE54233. 123 

F0KE54234 , 1 23 PQKE542S5 . 20 

POKE54273.30«CO P0KE54288. 3O800 

POKE1824*TX*40»TV,54 PP^PP*! 

IFCO=2THENPC-*E:-?2?*:::-40«TV.54 PP-PP-fl.5 

IFCO=3THEfJPCKEI923'TA*40tTY,54 PP»PP*2 POKE 1 825* T Xt404 Tv , 54 

P0KE53269, 1*PP RETURN 

REM •»• HOUVEflU PRSSROE ••« 

P0KES3264/8 PCKE53269.PR- TE=8 

EX=i»T. fX*250>.'3.'-2 -EV=!NT'.. Y-45J/8) 

IFPEEKC1824*E»EV*40.=55THENPHt=- ET LE OUR, (WEN FRITES VOUS ?■ GOTO3088 

P3=FS+1 

IFPS=P1THENFHS=" VOUS RVEZ FINI VOS -*STR*<PU** PRSSRGES ..." G0T03888 

FuF-: = 1327+13«49TO1020+28l40 

IFFEEH< i ;-»54THEMPC'K E : - 32 FWE3 -1024*55236. 1 1 

IFPEEKaX>32THENKL=KL*l 

NEXT I 

IFKL=0THENPHf=- Lfl VILLE EST DETRU1TE ! - PP«PP» 5 00103888 

FF=9 FI=3KL=9 

IFPS>=8THENPR=I20 h.i = 4 GOSUE4088 G0T02210 

IFPS=6THENPR=56 fU>2:0OSUB4888 G0TQ2218 

IFPS=4THENPR=24 RJ=3 GOSJJB4088 GOT02218 

IFPS=2THENPP=3 RJ=-2 GOSUB4808 

DOTO2210 

REM »* EXPLOSION •• 

-■: :■■■■■: -;.-:- :\ ■-..-,- ■ .■ - . 

F0RI=1T05 P0CE5328]*I.2 NEXT 

FOR 1 = 1 TO 1988 NEXT 

FCr.E53272,21 

P0KE53263-8 

PRINTTWiPH* 

P0-INTC1B8*CPP/BE '•103i/100-NE-CO.'2 

PRINT-BB TflUX DE DE«OLi TION/BOHBES ■ -;P0 

IFP0?3BTHENPRINT"U0I LR REGION EST SRUVEE ' . MERCI l* 

IFPO-C50THENPRINT-fcJ» Lfl REGION VR ETRE AUSSI CONTfttllNEE ..." 

PRINT-^IM NOnBRE DE BOMBES UTILISEES "-NB 

PRINT"WO0 UNE mDUVELLE RVENTURE 

POKE198.0 

GETfl* ■ IFR*«" " THEN3078 

IFfl*» M N-THENPRINT , T]". END 

IFA»«-0"THENCLR GOT01950 

GrTO3078 

REM «•• EPS PART IE BROI TE ••• 

IFTE-1THENTE-2 X-X-233 

P0K£33264,1 RETURN 

REM *• UN NUflGE S'ELEVE •» 

P0K£53269,PR 

POKE54276.0 

C:<-INT(55*RND<0j-200) 

CV=INT<58*RNDC0)«108) 

P0KE53256+flJ,CX 

FORI-198T0CVSTEP-1 

!FINT<l/3)-I/3THEN4P50 

P0KE54298.17 

P0KE5423 1 , 36 P0KE34232 , 1 23 

P0KE54237. 255-1 P0KE54286- 255-1 

POKE34230 . 

57*HJ, I NEXT 
PETL-RN 

REM •• TEST NUflGE »• 
IFTP«17THENFI=FI*l 
IFTP-gTHENFI-FI*! 
IFTR=49THENFI=FI*1 
IFTR-25THENFI"FI*1 
IFTR»I13THENFI-F!*1 
IFTR-41TRENF1-FI*] 
IFTR»65THENFI*FI*1 
IFTR=-73TRENFI=FI*1 
IFTR=33THENFI=FI*I 

IFFI»2THENPHI=" CE NURGE ETRIT FRTRL ..." OOTO3808 

G0T02689 

REM •• CHOIX VILLE «• 

0NGVG0T045 1 , 4548 , 4570 

2391 45 H *CHR*<34;*"»»'' "" 



2^40 

2750 

IT^ 
2S03 
2319 
2815 
2=20 

23:-? 

:-__-;. 

2833 
2834 
2340 
2342 
2844 



23-35 
2910 
2915 
2917 
2320 
23:0 
2935 
2949 
2942 
2344 
2345 
2950 
2369 
2370 
2375 



3818 
3028 
3325 
3835 
3848 
3842 
33-:- 
3845 
3858 
3868 
3870 

:-?«-:: 

3833 



484; 

4844 
1344 
4948 
4949 
4858 



4115 

4120 

4125 




4145 
4158 

M55 
4168 

4585 
451€ 

4520 
4538 
4348 

.-■/■.,: 

4568 
4378 



»■' 



:;■■ ■ 



ES-10 -8B-I' 
flf=»01 If* •• ... !34S ■ i1"*CHM« (4 
8»=" -./-./ <'. %«■"/.*■' 

ES-7;SB-3S RETURN 

4523"*CHPt'34>."il0] i«.,». .... 



■M"*CHR*<34)**M" 



i ■ ■■■ 



!=47 RETURN 



■./-./ ' 



:.■ 
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MANOIR 



3450 ''=*. j, KE2844,37 P0KEV*21,24 CX«1 R-X.V/-9 

3460 FORN»8TOi50e NEXT P0KEV+2I.9 

3478 RETURN 

3409 V"53248 P0KE2844.36 PUKEV*21,24 GP-l A'X.V*-0 

; M-8TO1300 NEXT POKEV+21,8 
3588 RETURN 

3510 V-33248 P0KE2944. J3 P0KEV*21.24 LR=; 
3328 FORH^0TO1588 NEXT R(X VJ-0 FDKEV+21,8 RETURW 
3338 7=53243 P0KE2843. 32 POf E'/*2I -0 
3540 FORB=9TO590 NEXT P0KE33281.14 
3553 P0KE53272.2I P0KE53263. 27 PRINT'T 
3560 F0PN*9TCi62 RERDO POK6832+N,0 HE) 

3579 PrjKE2049,U PDKEV*21/0 POKEV+39.? POVEV-23. 1 P0KEV*29.I 
353R POKEV/163 POXEV+27.1 

3398 FOPT=1704rO2323 POK-ET, 160 P0KET+34272.6 NEXT 
3600 FOWj*240TO788TEP-.16 POKEV+1.0 POKEV+21.1 -N6XI 
3610 FQRL=34272T054296 POKEL.0 NEXT 
3620 V-54236 H=34276 R-34277 HF=54273 BF-54272 8-54270 PH-54273 PL -54274 

3638 FQKEV.15 POfER-03 POCEPH. 15 POfEPL.15 P0KE8/8S 
3643 PEPDH IFH— 1TNEN3778 
•650 PERDL.D 
3669 POKEHF-H POKEBF.L P0KEW,65 

'- r=ITQE NEXT P0KEU.64 

3639 F0PT»1T059 NEXT 
3698 GOTO3630 

3708 DRTR4. 66, 32.66,36.64.4^. 36.138.8.0, 12,4. U6. 48. 2. 235. 9, 37-255, I Jl 
3718 DATA2/ 255.220. 3,235, 192. J.255, 192/243.295,223,3,233, I92«27/235. 192 
3729 DRTR225.255, 156,8.255.3.6,126,0,24,0.43.225.37.12,2,36.130.4,66,64 

3739 DPITR34- 75, 258, 43, 52. 250, 51, 97, 375, 43. 52- 125.51.37 

3740 DRTR250. 57. 172.250 

3759 DRTR51, 37. 593. 9. 9, 125, 43. 52- 250, 51, 37, 250- 57. 172 
3769 DRTR1000.5! -37,5009,-1.-1.-1 

3779 PPINT"*»MPi»»PHnCKH«m«CCF,-HiI)Pfi , , , u VOUS RVEZ VDINCU Lfifl 
37fj8 PVINT-'lMMMMMtfiONSTPfi DM I1RN0IP" 



PRINT"! 

PPIHT"»i»»MiM»M"JN3rPL-, 

PRINT "I 

GETRI IFRI-""THEN3I 
3310 IFfl*a"0"THENRiJN 
3829 END 
3330 PEM 

3340 M-8392 FORN-0TO7 POKEM*f 
.■- 




COMMODORE 64 

I F V=0THENGOSUB 3920 

0NXG0SUB3349 - 3968 . 39W . 400.;- . 4029 . 4049 . 4068 

OHVOOSUB4080/4100.4120,4140,4160,il >Ki.42'iO 

G0TO4228 

M-8283 POKEM , 9 POKEH+1.56 POKEM+2,68 POKEIH 68 POXEH+4,124 

P0KEM*5,63 P0KEM*6. 68 P0KEM»7, 68 PE IURN 

M=.0304POKEM,8 P0KEH*1,36 PWEfH. • -: pi.iin- :.■.- P0KEH44/68 Ftjur. 

P0KEM*6. 63 P0KEn>7 . 56 RETURN 

n=8288 POKEM-9 P0KEH*1,1Z8 POKEH+2 68PtmEM+3/68P0KEM*4, I 0^POKEM*5,I 

P0KETH6.68 POKEH+7,128 PEIUPN 

M=8283P0KEM-9 POKEM+1,36 POKEII+2,64 P0KEn*3,64 fhu.ii-4.--i P0K6Ht3.64 

P0fE«*6.68 P0KEW*7,36 RETURN 

fl=3283 PGKEM.8 POKEH+1,112 P0KEn*2,72 POKEM* 1,61 ;H»4 ■■ .n-',.. 

POKE1U6/72 POKEM+7,112 RETURN 

N"8288:P0KEft,8 POKErt+1.124 POl-tri'2.64 POKEH+3,64 P0K6M»4/lU h»hi*'..mi 

P0KEH*6,64 POKEM+7, 124!RETURN 

)KEf!,0 P0KEM»1,|24 P0KEM+Z.64:POKfch"+3.«4 P0KE(1*4,lli POKEM ! 
P0KEM*6.64 P0lfEM*7.64 RETURN 

M«8288'P0KEM-9 POKEM+1.56 POKEIH2-60 POKEH BM*3 I 

P0KEM*f.,6B P0KEM*7,68 RETURN 

M-3288 PQKEM.0 P0KEM*1 ,68 P'.'i-m*. ■ ■ P0KEM+3,i POKEM+4* 124. umii-'i 
P0KEM*6.63 PrjK6M*7,63 RETURN 

M-8304:pOKE",0 POKEMM .16 P0KEM42.48 POl H1- ■. i- P0X£H*4.16 POKErH-3 l< 
POKEM+6. 16 P0KEM»7,56 RETiJRN 

M-838-1 P0KEM.9 P0KEMH.56 P0KEI1+2,6e P0KEn*3 < POXtH+4, I P0KEn*5, 16 
P0KEH.6. 32 POKEM+7, 124 RETURN 

M-8384 POKEM.0 P0KEM*1,56 POKEn+a.« P0KEIH3 * i.iMti-4 -: n.iLH*3.4 
P0KEM*6.69 P0KEI1*7,3G RE IURN 

M-8304 POKEM.0 POfEM*i .0 poke"*-;:. 24 POK'EM*3.40 POKEN+4,72 POKKH+5. 124 
P0KEM*6,8POKEM*7, 8 -RETURN 

fl-8304 POKEM.0 PDKEM*!, 124 P0KEM-»2,fc4 P0KEM*3. 120 P0KEM»4,4 POKEM*5-4 
P0KEm«,68 P0KEH*7,56 RETURN 

M»8304 POKEM.0 P(jKEM*l, 56 P0^'EM*2,64 P0KEM*3,64 POKEM-4, 120 PUKEM*3.68 
I 01 i H+1 66 P0)'EM*7,56-RETURN 

K*83e4 POKEM.0 P0KEM*1,124 POKEM'2,4 POKEM*3.8 P0Kfcf1>4, 16 P0KEM*3,16 
■ OKI ■•■■■-. 16 P0t(EM»7,16 RETURN 
PEM 

M-3392 PI-X-1 P2-V IFR1 .0IMtH42y« 
G0SUB4253 GOI04289 
[Fi-.Pi ,R2>a8TH6NReTURN 

i.iNR' Rl . P2 .W=.iJB4 J30 - 4409 , 4420,4449 . 4460- 4489, 4300 
RETURN 
Rl-X+1 P2-Y IFRi:-/TNfcN4380 

i.„.,-.|ir.|,-' y\ 

Rl-X P2-V-1 IFR2<:eTHUM4J29 „ 

OO3U84230 Suite page 20 



CONVERSION 



- ppiN 



I HEMU - ' ■ 



t .. .■ ■ ■ . it) L'J M 



Ce programme sert a effectuer des conversions de 
nombres binaires, decimaux et hexadecimaux. 
II atfiche toutes les explications necessaires a son 
(onctionnement. La longueur des nombres a entrer 
n'est pas limitee: vous pouvez aussi bien entrer un 
nombre de 2 caracteres qu'un nombre de 9 ou 10 ca- 
racteres. les caracteres entres sont controles: vous ne 
pouvez pas, par exemple, rentrer d'autres caracteres 
que 1 ou en mode binaire. 

Olivier BEX 




. ■ - 




I'E C0HVERSI0N ,, 8PC<I61"-BfiSe 2 -BF.SE 10 -BRSE 16 



i»>i: 



■ ■ . 

>.. prim 

95 C6Tftl 

■ ■ ■ 



roijres ces 

•* DEC WW. "O HEXADECIMAL" 

* DECIHRL —3 BINhIRE" 

■«0 MEXFilJEClnfiL" 
1 8IHRIRE ".- DECIURL" 

4 HEXfiKClMftL = = -■ DECIHflL" 
» HEXMSCIWiL -■> BIHRIRE" 
11 D EWRER L.E MOMBRE :■■■.- 
>»f .■■. ,:<LEZ ERFECIUEP UNfc CONVERSION" 
in.- .. . E2 RU PROORftHE Lm nhTURE CE CE" 

m*. ei flppuvwn ■jur ■ 
HMWlwa •_» f i> \ iNHiFt" 
>»»i»i:<uh_9 POUR DEOinftL" 
»M»»I3 H ■ POUR HEXflDEGlHftL" 

n:«c fk c; . : .;J une TOUCHE f-ijuf f Hiltltrn.EF 
HW-""THEN93 



CONVERSIONS " 



JflJCDEF' 
I J-.' OETftJ IFRM 'THEHI40 
143 ic -i. fH Mi ■■ 
156 If RJ I ■ IHEH - 
135 I* mi- | IHEH 
■ . H 

. 8-fjEC-BlH ***** 

173 

■ 1:-.' FF-I-it -.-■:■;;. ■-;---_ ■-_ ■■ - ; v t *= = 
X rftl IFRJ-* 'THLMI85 
1 .-,' LFfll-CHR*' 13 

■■ if, :480ftftSC<ftI T/r'iv RSC<W 
. 65URftSC' -«..■■ B/THtHlS5 

_..,.; Hj»H»*ftI i- ;■ : . 

EH h-j.-i 
218 FORJ»0TOI5 

213 IF IHW<H*.I*I.l>»M[D*tHH».J»l.UlHEMHD= 
ND*J4< .16ttt£HXH#>-l-l»J J=u 0010225 
226 he: m 
....■■■ : 

238 PRINT"IBMMk»»>S DECIHflLl = = 'NX 
LIZ OOiUB 410 

246 FF-;iJT".iJI»mr.>=. = BIHRIREa » HBI 
245 GOTO (20 
250 

«:■;.■:. F-F-.fi ..... ■__!.■ tEC-SIN-riE.-.* •»••* 
268 

265 G0SUB388 
270 PRINT" I 
275 HT-DI GOSUB470 

289 PPINT"J»P»N=>S HEXftDECIMHLTl ==:■ "Hi 
235 GO TO 120 
298 
235 F:Er: ..**» njN', &In-;i£C-he>.h ***** 
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.Z BIHfllRES = 



■ 
IFHl . ■ "■ ■■■■-. 

: 
■ ■ . ■ . 

I6tl 
i ND*HD-Z4 



MANOIR 



Suite de la page 28 



Le numero de la rentree 
sera en vente chez votre 
marchand habituei le 31 
Aout, N° 46, 8 francs. 



[FR2>7THEH4339 
'£4250 
4340 R£ri 

■ .-■..■ ■ 
I -■ -■> 
4380 PWEfl.0 POKEH+1,36 PWEfJ+2,24:P0KEm'3-255 POKEM+4, 126 :POKEM+5,60 

■ '.n*6,3t POKEM+7.0 fWH8 RETURN 

- -;".+ :.-:• F-r.rEM+2.34 P0KE«*3/127:P0HEm4/221:pQKEn+3,137 

■ ;■ --:,:23 P0r-Et J .+ ?-iii ft=f1+fi RETURN 

■ ' :-EPl+l,0 P0KEm2.S8 PQKEKt3-36-P0KEn*4,182:pOKEHt5,jea 
KEJH6.163 P0KE»»7/16S n=H+0 RETURN 

24 P0KEn+2.i2e RCy:EM*J. 126 -POKEM+4,24 POKEM+3.24 
■ • KEH*S 24 P0KEM*7,24 IWWB RETUPN 

KEM.24 POKen+J,70:POKEm2*176:POKEn*3. 1<H) RWEM-.4.2 P0KE(t*5. 1 
POKEH*7.0:fW»+8 RETURN 
J4iig POKEfl^ee-POKEH+l^iea POKEM+2#S6 POKEM+3.66 POKEH+4,102 POKEM+5.126 

: .-'- :i'€ P0KEH+7-12S n=n*8 return 
4^ee P0KEM.12? -P0fEt1+l,K6 P0KE«*-2,3« POKEH+3-24 P0KEI1*4.24 -PCiKEM+5,36 

-■■•-■. ei prjKEH+7,123 M=M*S-RETUPN 
4528 V-V /=:<•! 
JT;i? IFX>7THEM458e 

4540 7=53248 F0RH-128TO2S5 P0K£Vt6,H NEXT 
45J-8 POKEV+16,8 F0RN-8T033 P0KEV*C*H NEXT 
4560 POKEV+ie-8 F0RM^5TOI2e-POKEV*6,N-NEXT 
4570 QOSUB5240 RETURN 
4580 X-K-l C00SUB5298 
4530 RETURN 
4688 /=:-:- 1 V=V 
4619 IFZ':0THEN4660 

4628 '.-5324? P0KE2843.33 FORN=120TO35STEP-1 P0KE7-6.N NEXT 
4630 P«EV*16-8:F0RN"35™STEP-.3 P0KEV+6,H:HEXT 
4640 POKEV+16,8 RDRN=255TO120STEP-.5 -POKEV+6,n NEXT 
4650 P0KE2843-32 C-OSIJB5240 RETURN 

-1 V»V:Q0SUB5238 RETURN 
4670 :<*¥. V=V-1 
4638 IFV--9THEN4740 n 

■■■ RM-l28T0l63:P0KEV*6 f N-HE>n 

4700 FOP'. <EV+7,H HEX! 

i?ic: F0RN-2MT028e8TEP-.3 R0KEV*7,N NEXT 

I H"i63T0I283TEP-1 POKEV+* I 
4738 OOSUK 248 RETURN 

,:y-i ;., SUB3298 RETURN 
V«V»I 
. ■ . ... 

4770 v-53; -. i^,n NEX1 

•i,RH=288T0253 P0KEV*7,H NEXT 

. ■ . ■ ; ■ 

■■ l63T01288TEP-,5 POXEV+* I 

■■ 

'■■ -WI.IRN 

.. ■■ pebtW 

. 48 .- ■ ;. ■ ■ .■■■■ ■■ :..■,.■ 

.... ■ : 

. . ■ : 

■ ■ ■'•■S.65 
4888 F0RNH*IT012 

4=j?0 POKE 1 

4?00 F0RHI1=1K'-JW NEXrillt 

Ew*t.n 

■ ■ ■ 

BB>-40 
4?40 HEXTNM POKEV ■■■ 
(958 POKI -' *263,2? 

4968 PRINT"3pMtW<Maani«B«f/0U.E2 V0U8 REJO'JER >" 
i ■ ■■>- BETM IFRt = "-'THEN45.70 
49B8 [FR*-*0"THENRUM 

4998 POKE53288-14 P0KE5328I-6 fPlHVZZ" 
W00 END 

.■!.:■. 
5020 POI'E'/v.b.F' ROfE7V*5-205 
5838 POI EW+J .48*INTt28RHH<0>) 

.:;,■ ;.. i;. -.; 

5050 FORNN-JT02B8 P0tteW*1.48*INT<2f»fl 
5868 FQWtl-lTOie MEXTHH 

5878 HE, TUN P0VE7V.4.9 

5088 PET'JPH 

5050 '-.'V54272 FOiE'/v.^^.y p(jcevv*24, 15 

5109 P0KEvv*6.9 prjp.-EVV*5.'? 

5119 POKEW.4.17 

5129 FORNN-=S0TU149STEP4 POK.EVV*! .NN Nfc/TNtl 
5138 POfEVV+4,0 PQKEVV.5.74 

'•i-u< fmc.,in=m rot/0 ne:- ni» 
5158 Fru E7V.4. 17 

;■ : ,1-ni, ■;./.■■■.:. .-■..- 1-. ■■■• ; . m ■ ■!■ .' ■■( 
5170 F0RNN-I28TO698TEP-.4 POfEW*l,nn nextnn 

5130 POKEVV*4.0 RETURN 

5130 7V-54272 R0FE77.2J.9 PCF-E7V24, 15 
5200 P0KE77*6,9 P0KEW*3,12 
5218 POKEVV+1.20 P0KEV7.4.123 
5220 FQRNN-1 702506 HEXTNN 

5239 PWE7V.4.0 RETUPN 

5240 W*54272 P0KEV7*23.8 P0XEVV*24. 13 
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3258 POKEW+6/0 P0KEW+5.3t 

5260 POKEVV. 1.180 POKEW+4/33 

5270 FORNH=I rO100 NEXTNN 

5280 P0KEV7*4,9 RETUPN 

5259 77=34272 POKEWt-23.0 P0KEVV.24, 15 

PQKE7V*6.240 

5398 P0KE7VM.4 P0KEW*5. 8 : POKEWH ■■' 

5310 FOPNN-1024TQ5I2STEP-8 

3329 P0F , E7V«l.NN/256 Pfjf EW.NNPN0233 

5330 NEXTNN 

5348 POKEV7.4.0 RETUPN 

5330 W*54272 POKEW+24, M P0KEW+23.I 

5/69 P0KE77.6.9 POKEW*22.10 

5370 FORRM-1TO10 

5330 POKEW+1.24 P0KEVV*3-31 

5393 POVEVV+4,129 FORNN-I T05e-n<1 NCXTNN 

5409 P0KEW*4.8 FOPNN-1TO100 NEXTNN 

5418 P0KEV7.1.16 POKEVV.3.21 

5420 POKEW.4,129 TORNti-l tO400-i9»Mti HEXTNH 

5439 POKEW.4,0 F0RNH»1T0288 NEXTMN 

3448 NEXTMM RETURN 

5456 PRINT "miMW0»/rnj5 nvEZ ouBLIE DE rflPSR' 

5469 PPiHT"* P0KE44.64 P0KE;:36*64 .0 NEH " 

5470 PRINT" IWAMMIIL FfliJT PECOMIIEHCER. " 
3488 END ■ 



HIPAINT 




Ce programme cree de nouvelles commandes en 
Basic qui simplifient ("utilisation du "HI-R6solution" 
-mode. Dans ce mode, on a 320 X 200 points, qu'on 
peut allumer ou eteindre. 

Le point (XO.YO) se trouve en haut de I'ecran, a gau- 
che, le programme est ecrit entierement en langage 
machine. II occupe les adresses COOOH jusqu'a 
02C0H (49152-49856). 

Michel JANK 

Mode d'emploi; 

Syntaxe des nouvelles commandes: x variant entre el 319.y va- 
riant enlre el 199. 

'GRAPH: I'ordmaleur se Irouve en mode "Hl-Res". 
rTEXT: I'ordinaleur se retrouve en mode normal. 
1CLRG; cette commands eteint tons les 64000 poinls 
ICOLOR a: cette commande met les couleurs du fond et des points, 
a = couieur fond - 1 - 16 couleur points. Exemple a -= 29 : COLOR 
29. Couleuf fond = 13: vert clair et couleur points ■-- 16: blanc - 29. 
!SET x^ Allumer un point des coordonnees x et y. 
[RESET x.y Eteindre un point de coordonnees x et y. 
!RVS inversion de tous les points. 
IGSAVE'NOM'.a SAVE resp.LOAD d'une image. 
!CLOAD"NOM".a a = 1: cassette, a = 8: disquetto. 
Attention, quand il arrive une erreur dans le mode "HI-RES", (par 
ex.SYMTAX ERROR ou OVERFLOW ERROR), vous ne pouvez pas 
lire ce qui se trouve ecrit sur I'ecran. Frappez ensurte: SHIFT CLR 
et [TEXT pour revenir en mode normal. Apres un listing, vous devez 
trouver I'erreur vous-meme. Quand vous ne trouvez pas I'erreui. 
ecarlez les commandes IGRAPH et 'COLOR, Laisser maintenant 
passer le programme encore une fois. Le programme se ddroule 
maintenant sans passer dans le mode "HI-RES": ce qui vous donne 
I'erreur. 

Si ca ne fonctionne pas la premiere fois. ne vous decouragez pas. 
Verifiez si vous n'avez pas oublie le signe T. 

68 REM ENTREE DU PROORRWIE 

70 S-8 RESTORE FOR1-49132T049956 

88 RERTi* ^-S*X POKEI.X 

98 NEXT 

190 IFSO83298THEN120 

118 SVS49152 NEW 

[28 PRINT-ERREUR URNS DflTK 

1000 REM TRTR% DU PROORfinrlE 

1001 DHTftl69.12,l41.0.?.16?'.192.141.9.3.96.2?4.32.113.0.201.?3.240.7,?2.121 

1002 CRTR8. 76. 231. 167. 234,1-6. n?. l?3-234.2?4 .234 ,2^4. 1 73. 1 7,208. 141 , 1 12. 1?3 
1983 DPJfll 73, 24, 290- |4i.ii-<. 193. 169<59. 141. 17.208/ 169>24, 141.24. 208, 162. 16 
1804 0RTR96. 234,234. 160.9,162.32,132.233,134.254, 132,234,143,233,288.289.231 
1803 DRTR230.254>202> 200. 246,96,234. 234, 234,32.158. 183. 160,0.11 '.4,13 

190"? DBTR133.254. 138. 162. 4, 145, 253-200. 200. 251. 230,254. 282. 200,246. 96. If" 
ltl0^ DHTftO. 169,32, 132,253, 133.254/162, 32, 177, 253. 73.255. 145.253,200,200. 247 
1008 D«T0230, 234, 202, 20P, 242, 96, 169, 129, 44. 169. 0,1 33. 131.234.234.234.32.233 
1809 DBTfll83,224,200, 176.238, 163. 21 ,291 . 1 - 144. 9, 299. 230. 163 20,201 -64, 176 
1310 DRTR224. 1 38. 74. 74 . 74 , 18, 160. 193, 235. 192, 141 . 1 13 . 1 93 . 1 93, . 1 93, 1 41 . 1 16 
1011 DRTR193. 130,41,7,24, 109.115, 193,141.115, 193. 165,20<41j24O. 141. 114. 199 

1912 DRTR24, 169.9- 109. 113. 193. 133.^33 1 6" . 32 . 109. 1 16. 193, 133.254.24. 16! _ I 
1013 DRTR199, 114, 193, 133,233. 165.234, 101 . 21 . 133 .254. 163.20.41 . 7. 73. 7. 1 70. 199 
1914 DRTR49, 193- 160.8.36, 131 , 16,5,73,255.49.253.44,17.253,145,253,96,0,0,64 
1013 DRTflt. 12S, 2. 192, 3, 0-3, 64. 6- 128, 7. 192, 8, 0,19, 64.11 . 129, 12 192. 1 3.8- 15 
1816 DRTP.64,16.!2R.17.192, 10,0,20,64,21 , 128.22. 192. 23,6.25, 64, 26, 129,27, 192 
1017 087023,0,30,1 .2.4,8. 16, 32. 64, 123,234,234, 234 , 32. 21 2,223 162.9. 160. 64 

1919 DRTRI69.0.133.253,169.32.133.234. 16?. 233, 133, 183. 76.216.233.234. 234,234 
1HI9 DRTR32,212,223.169. I, 133. 105. 169-8, 76 . 213, 253, i<?, 27, 141 , 17.200, 169,31 

1920 CRTR141, 24, 200,76. 60,239,234,234, 155,21,96,1,0,0,234,32.115,9,301,67 

1021 CftTR240,28.201.7!,240,66.291 . 92. 209. t. 76. 13. 194-291 ■83.298. 3. 76.97, 194 

1022 PflTH2H]. 94, ?40.3.76. 164. 194. 76. 1 16, 194. 32. 1 15. 9. 2«1 79.240.3,76,6,179 
1823 WTR3? .115.0.201 ,76. 240, 3, 76. 8, 173. 32- 1 13. 8,201.1715.240, 3. 76. 8. 173 32 
1024 fiRTfll 13,0.32.81 . 192. 234.734,234 76 174 , 167. 37. 1 13-8. 281 147 248. I 1 .281 
1823 D9Tfli48,248.16.28i.92.240,2i ,76<0. 175,32, 115,0, 32,02, 193,76. 174, 167.33 

1026 ItHTHl 15.0,32. 37. 193.76.174.167,32,119 B 201 65,240 I 76 6 1 ■"■ ■ '7 113 

1027 DRTR0.291 .00,240,3,76.0. 179.32, 1 19.0.201 72. 24fl, 3. 76. ». 173- 32. ">n. 192 

1023 DRTR32,ll5.9-76. |74. 167.32. |19,9'291, 69,249,26,201 96. 248,?. 76, 8, 175 
1P29 PRTR32, 11 3. 0,201. 83. 240, 3, 76. 8. 173. 37. 189. 192, 32 113.0 76. 174, 167. 32 

1030 DNTAI 15.0,201, 03,240.3, 76. 9.179,32 119.9,291 69. 240,3, 76.0-175.32 M"* 

1031 P8TR0.29! ■ 94. 749, 3. 76. 8, 175. ?2, 113 9.32. !f4. 192.76-174. 167.37.113.9.201 
1332 DRT869.24«,3,76 9-173.32. 1 13,0,20] .04. 240-3, 76.8- 175, 32, t 15. 8- 32. 137 

1913 DRT8192.76. 174.167.32,115,9.291 69-249.3.76-9. 179,32, 119,9.201.90,249 
1934 DRTfl3,76,8. 179,32,119,9,291,04.249,3,76,6 179. 32-97. 193.32-1 19. 9* ?6. 174 
103? DftTfll67, 234.234. 234. 234. 234. 234, 234,234. 234, 291, 196.249,3, 76, 9, 179,32 
1836 DflTfil 13. 9. 201. 71, 240, 3, 76. 8. 175, 32- 68. 192 ■•'2.1 !•■■(•. 7^ 174. 167,234,234 
1937 DRTR234 ■ 
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LE PETIT-FILS DE MINOS 



Plongez vous dans la legende grace a ce programme 
qui fonctionne sur un VIC 20 de base. Suivez le 
guide' 

Alain DOUAI 
Regies dujeu 1 

tl s'agit d'avaler le plu9 de signes < < + > > avant que le lo- 
sange ne res avale ious. On peut poser des pieges qui emprison- 
nent le losange. ll faudra pour f eliminer. passer dessus pendant le 
temps qu'tl est emprisonne. mais attention, au bout d'un momen! il 
se deliwe. 

Un signe <<-*•>> vaut 1 point. 

Le losange vaut 10 potnts quand on I'avate el qu'il est enferme. 
cela provoque un changement de tableau. 

Si on avale un piege n'ayani pas servi, on perd 2 points. S'il etait 
occupe par un <<-<->>, on perd 5 points. 
Quand vous avez eu tous les < < + > > dans un tableau, pour 
changer de tableau, il taut enfermer le losange et I'avaler. Les 

? Dints s ajoutent automatiquement. 
ouches de deplacement: < : Gauche, > : Oroite, A: Haul, Z: Bas. 
pour poser des pieges: Barre d'espacement. 
Nous vous souhaitons bon amusement. 

N.B.: La rencontre avec le losange qui n'est pas enferme vous fait 
perdre. Alors attention car vous n'avez qu'une vie! 



19 PvXW88S ■JKXj'I «ft»35 HF-32 PB-MF 

15 P0KE36378.14 SP-36S76 DH-7703 BM'36377 

31 P0KE3e879.23 

32 PRINT- .TSSia m n .E BPETIT 9F(L8" 

3* FORi-iToseee^icxi 

35 P0KE3637^.25 

36 P9iHi-nmmmmamvz\jiLLS.z pktiehter sw 

36 FORI-ITO10090 NEXT 

39 POKE36679, 104 POKE6S0. 128 -HV«1 

50 p<X>*7888 D<X>-1 Hfi-33 riF-32 PB-riF 




55 P0KE36878-14 SP-363't DH-7793 BH-3« :■ 

103 FN I HT " ^MHMIW •««■■«»" , 

128 print ■*>**■*+ ****m—* *•*•■***, . 

138 FRIHT"»***»t-"»* ..... -**..a- 
140 ppiht" — i— ■ *m+m+m —iw 
134 PP1HT "E+ «*+ *+ »B*»»«»» +*++ ++r 

170 PR HIT" »♦■♦*♦»*■..**♦*■> *.*.*•■ 

130 pf?TnT"a***»**aw+i»* *•* + **♦♦»■ 

150 PP.IHT" — — ».■*»■..■*— *f 

208 PRINT"**** •**. + «*■••**♦ **♦*♦»■ 

210 PR 1 NT " B* •***»+ MM* •** ****** «' 

220 PPJNr"S**«a****B«S»+***B**t«' 

230 PF PIT ■«••■■+»•.. >fl>M-l« 

240 PRitti"m*+*m**tm+tm*wm+***++*" 

230 PRIHT"S* a**** ******** ****** r 1 

270 PPIHT"»**t***»»+t++»+****-..»" 
288 PRINT"— ' — ib-i ■!■>!■ i«" 
250 PRINT■'a+♦*»♦**+♦*♦^■♦***»*+»r , 
300 PRINT'•B-a*B+S+»*a»-a***a+B*■' , . 
310 PRIHT"*********.******** 
320 P0KE313S. 1 82 ■FOK.EDM.Mfl 
388 Dh-D<X> P0KESP.8 
503 IFDrt<?792ORDM>8164THEH2200 

505 GETM* IFnsO""THEN2088 

506 [FPEEX(POO>*91T>CHliee 
519 NY-INT<RWKTI?«3)+8 

515 IFDfl«220RCFl— 22THEN0-1 GOTQ550 

329 IFW-IOPDfl— ITHEH022 X0T0338 

358 IFNV-0GOTQ1089 

369 IFNY-lTHENliH«0 GOTQI088 

379 IFHV-2THEHDR— 00101099 

1060 IFP£EX(P<X7+m?>10ZTHENaH»-9n;OOTO9ee 

1010 IFP(XJ>7732FINDP';K;<:8164THEH1018 

1011 IFPrX)=t76S-0THENPOKEP<:X>,l1F:p<X,»-8174 G0T01819 

1012 iFPf.Xj-7591THEHPQKEP(XJ,KF:pc.X)-8173 COTO1015 

1013 IFP(X)»9174THEffl=rj^EP';x^MF Pr>:>=763« G0TO1918 
1914 IFP<X>=3J75THEHPrjKEP<:x^MF:p(X>"769rGOT01828 
1815 Dfl— 22 G0TD1819 

1818 P0KEP<XJ,32 

1919 lFPSK<P(X>*SR7-mrHEM08e 



1020 iFPEEK'.P(X>.DH>-87THEMP(XJ-P(Xy*» POKE? ■ 

m'-owwo" ootosw 

1925 P0*E<PWDfi>.99 FOKE5P.290 D<X)-W 

oorosee 

nee iFTiJ.'-eesees-ThCNPOKEPtx.'.M pt-pt-s wtwib 

1119 GOTO380 

ii29 povESP.aee pt«pt»io FosL-eTo-ja forer-btois 

1130 P0VE36S73-EP NEXT 

1140 F0RER>13T0eSTEP-l 

1159 POKE36879,0 NEXT -NEXT OOTCrSO 

2080 IFn*-"fl-THENCIt— 22 OUTO2100 

2910 IFM*="Z - TMEICD=22 00102199 

2929 IFI1«="."THEjirp"-l &OTO2190 

2930 IFM».-.-THEMCD=l G0T02iee 

2040 IFn*-- -THENTlf=-8e00ee- Pf-97 GQTO2150 

2030 GOTO500 

2199 IFPEEK'-Dt1*CU' = 102TKII5O0 
2185 DM-DH+CD 

2110 IFPEEK>:Dn>»30THEI(3eO8 

2128 IFPEEK<Dt!)-43THENFr=PT*l 001 !1 

2138 IFPEEK<DH)»81THEt*0*E'D«-CI".32 G0T0I128 

2140 IFPEEC<I*1>-37THEt#'T»PT-2 

2158 POKECWI-CD.-.PB P0KEW1.HP-P8-32 OOTCr5O0 

2200 IFWi=76?9THENPt>Er.iM.PB W-3152 GOTG2110 
2218 IFM1=?691THENP0KEIIM.PB W1-8I53 GOTO2I10 
2220 IFDM«8174TH£MP0K£IIH.PF m=??U X«UTtKi ly 
2230 IF['H=3175THENPOKEDM.P(i 1*1=7713 GOTU21 10 
2240 'ViTO500 

5000 P0VEM1.8I P0K£'.IM1-r,'ft>.HF F\+E6N,173 Fr>; IVn0TO5«« 

HEXT-POKESM.e 

5005 KV»NV-1 

5010 IFW=0THE»OOTO5€il5 

5015 PRiriT"^OM»«wf/0Ui. MVE2 PERIO PWWMHr-M.'Hi 

'iut-J5ytJ y 

5938 FRinr-,TaaM>w il reste-.hvi-viecS) 1 

3040 FORTV=0TC'19i>0 NEXT OOTO10 

5050 PPIHT"«»1 V0ULE2-V0US PEJOUER- DVD 

5068 OETCH* lFCHf-""THEIWb.' 

W78 IFCHJ--0-TKEIC-5 

5086 IFCHI-"H"THEf*RIflT"^0«W»»l THtll PIS'" 

5090 GOT 05068 

READY. 



QUASIMODO 



Dans ce jeu, vous etes le he>o bossu QUASIMODO 
et vous devez secourir Esmeralda par-del^ les rem- 
parts. A vous de trouver la methode pour franchir 
chacun des 4 tableaux. 

Eric AUDY 

Mode d'emptot: 

Avant de taper ou de charger le jeu. tapez: POKE 648,30 (4- RE- 
TURN, + RUN -STP/RESTORE). et POKE 8192.0: POKE 44,32: 
NEW (+ RETURN). 
Poor jouer avec le davier, changer: 
Ugne 35: Entaver POKE 37154.127. 
Ugne 1703: anlever POKE 37154^55. 
Ligne 1815: remplacer PEEK (37151) par PEEK (203). 
UQne 1820: Rempiacer Z = ItOpar Z = 33. 
Ugne 1830: Remptacer par IF PEEK (653) - 1 THEN H - I. 
Ligne 1840: Remptacer par (F Z = 26 THEN = 1. 
Vous foueraz avec tat touches Z. X et SHIFT pour la saut. 
Vous pcuvez I'uttrser avec une extension 8 ou 16 Ko at un Joys- 



is P0K£7674.4 POKE7675-244 

29 PPIKT-3*£SS STOP ON TflPl" WHIT37151, 255-62 POKE3687?- 14 Oorrj2e90 

21 P£M 

22 PEM-flFFICHHOE PEPS. 

23 POKEi'1.228 POTEE, 2 K>t££-22.1 PO«t*307iM,3 POKF£»J«690.5 KjKES*i,0 
» OML&OOTO9W-3e7.5'3e-1222-l?00, 1946,1990 

29 PE» 

39 PEM-INiriftlWTIOH 

31 PEM 

33 V«2 F"l PO-1 RO-1 Vl-V PQKE37154, 127 

47 OEM 

Ah «N-BOHUSK«.CULS 

49 REH 

50 FCftft-iT05«) r«xr 8C^C*C8 Pur.E'W.235 

5i ppiHT- .jMim aaai m i — 



COMMODORE VIC 20 




rm D« < STfi« < SO, 2.>: POKES. 



aejaik-.K-. J-. CS-I00*L^*30 MIJ-HU*1 IFI*J<5IMEN58 
32 PO*P0*riW-l IFVCVITWLHW 

53 FOPfi-ir0'.P0*L^^»75STEP4 POV£S.240 SC-SC♦■4:PPIHT■ 

34 IFPO/3-INT<RO/3yTMEW/-'/tl OOSUB1000 V/.'V/.*\ IFLX>3THENLZ-3 
56 Vl-V 

58 PPIHT-a-TPB':4;MI0»':STPS':SCJ.2;rflB'.16yMID«fSTR*';PUJ,2JIfiB'. 19jMIB« f .3tR«(NU),2J 

59 K-SHrXJ' E-7322 PRrMT"S»»«8Sja««ar OMDef>or0299, 1400, 1400,1740 
68 F0Pfl-iT0241 PRINT'S"; NEXT 

80 P0KE3! 35,8 -POKE 38505, 7 WMttl2S9 PWE7355. 3 F0Pft-7877T073433TEP22 POKEW, 17 
85 POKEfl* 30720. 3 NEXT, RETURN 

296 PEH 

297 PEft-TftSLEflUX 1*3 
296 REM 

299 Otryjl60 
308 00101399 

395 GOSUB333 OOTO390 

373 POTEE. 32 -FC«fi-lTO10 P^EEK<E*f»S22) POKEE*m22,l FOPS-1T059 NEXT P0KEE*ft«22.P 
372 POKES, 299- 3«fi ■ NEXT ■ POKES , 0OT0I 150 
379 PEN 

390 PEH-ENMENIS 

391 REN 

393 IFK-1TMEN418 

387 IFRH0aJ>.4THENPEH*« 

389 M-Ui/2*1 LI-7322 K-l C-8 TM-a 

392 IF0€"ITHENL-7?43 POKEL.fl P0KE3W«3,7:I»|—| CO-7 rjB-8TH-17 RETURN 

394 L«L1 01*3 DI-L H-I 

396 CO-3 IFPNDC n>.50R£<79240prjE-2TMENL*7343 0B"4 01 — 1 TH*l7H-tX/2»I 
483 IFBe-3fiHDE<7939TMen.-t-22L>73«9 

407 POKEL.08 POKEL*30720.CO RETURN 

410 FOPR-ITON PWEL.TN POK£Lt30720.CX-L*DriFLaiORL>Ll*20TMENK-. RETURN 

413 IFPEEK<LJ-20PPEE>:a;-ITMENK-. POKEE-22.32 00T0378 (3 

420 C-PEEf<L»30728> TH-PEEK'L> POKEL-OB POKEL*30720,«TNEXT RETURN 

697 PEN O 

698 PEM-TPBLEffJ 2 

699 REM 

700 FORQ-lTQS-U OQTQi30g 
785 00SUB383 

710 NEXT F-2/F PO-26/'P0 F0RP-7926T0733SSTEP4 P0KEH,F»5 P0^E«-22. P0*6 NEXT OOTO70 

847 REfl 

848 PErWHBLEfiU 4 

849 PEN 

839 IFJ-1TMEM313 
833 00T0188C 




860 IFH-1TMEN980 

362 1FD-.TMEN930 

863 IFB0-1THEN883 

878 IFE*D<79220RE*»>7942THEN938 

873 P0KEE,3J POKEE-22.32 E-£*D- IFE-7923THEN370 

380 L0-1-G0T023 

883 IFE*0<79470RE*D>7962THEN93t 

890 POKEE-22,32-POKEE.10Pf>:EE»9072e,3 E-E*D ■ IFPEEK(E)-48TMEMCS-CS-15 

892 POKES+1 , 128 

893 P0KEE-22,1P0KEE,9 POKE£*39699,3 POKEE»30728,7 POKES»l.. GOTO930 
900 H-. POKEE-22,32 IFB0-lflNr*<7962THEME-£.l GOT0378 

993 P0KEE.TE-E-21 LO-2 GOT023 

907 IFE-7921THEH50 

919 J-l 0OT0939 

915 J". :P0KE£. 32^ POKEE-22.32 E-E*22- IFPEEK(E»22)-9THEMBO-l T-9 E-E*22 POKEE-22. 1 

^00T0939 

928 IFBO-1TMENB0-. E-E-22 T-32 

923 L0-3 00T023 

930 POKEE*30698.31FK-ITNEH943 

935 S-INT(PND'1>*9*1> IFPEEK(P(.fl)>-13THENL-P<H>:K-l 

940 00T0963 

943 FORft-lTOUi POKEL.I6 P0*EL»3e729.3 L-L-22 IFPEEK (L >-9rHtlJPi>fcU-22, 32 K«9 GOTO 

370 

968 POKEL.13 P0KEL*39729.7 IFL<7966TNENK-. -PQKEL.48 ft-LIi 

962 NEXT 

963 0M-7946*«HIia)S17 Z-PEEKtOHJ IF2-190R2-I lTHENP0KE0H.2/(2-9>+9 
967 GOT0859 

1090 !FR0/3<:>lNTi:prj/3)URHUOlTHENRETURN 

1095 PfllHTTW :POKES-7,240PRINT-JS«-aBBRffVOt VOUS RVEZ SHUVES Lfi BELLE ES«RHLD 



_._■ RETURN 
1130 V-V-1IFVC8THEN1700 
1160 CS-. MU-NU-1 0OTO59 
.228 LO-4 00T023 

1222 IFV-.THENRETURN 

1223 FOPZ-iTOV P0Ke?679*;M NEXT PETLVH 
1397 REM 

1393 REW-CEtOft-i 1.2,3 

1399 PEN 

!^?S S2^ F ° ww »«T07961srEP4 POKfcfl,^2 POKEN*^2.32 FtXI lH<t-3THEH399 

Mil FORK- 7926 TO .'939STEP4 PuKEN.7 P0KW22.6 P0ttfl»44,6 HEXT F0P«.3^46T"J3w»3^T 

>*I3 P«Eft,3 P0K£ft»22.3P0KEft*44.3 POKEft-22.3 NEXT 0UT0799 

1696 P£N-0Prt£ OVEP 

1699 REN 

1790 RE8TW* PRIHT'aarsHMr A««-TRUS VXSH" FUR(*-1TU19 PRINI ~'riHK6>niDS«M. 1 ,« 

!™ ™Ki 78 " t * XT FW *-l Tr J3«W NEXT P0K£37I34, 255 IFV„<-MI THEf*t»U/12 

1799 Kf 7,74 ' IHr<flC ^ 38 * , " WB7 « 79 '« & ^ s «»> MTt w^M> Ruiiria 

1710 REM-OPDPE TRBLEFWX 

1711 REM 

1712 S-36876 FORR-1T04 

l^STSiea'"'" fMa -"«'-' I'SH<»)-«M«)«H»IT».I71. 

1737 REN 

1738 REM-JjecOft 4 
1733 REN 

1740 W WT 'WsWJjj JJJJJJJ JJJJJssf J 

1750 F0RP-1T09 PPINT-#99kPPPPPPPPFPPPFPPPa»M-, ICXT PRIHT-ses^PPPPPPPPPPPPPPPPSl 

1760 GOSUB80 F0RR-1T09 Z-PHDC U«14*3168 P(ft>-ZPuKE2. IS P0KEZ*39729,7 NEXT T-32 

1770 OOTO850 
1797 ""' 

1790 

1799 



' REM 

REN-TESTS JOYSTICK 

REM 
1W« D-. IFJ-ITMEN1930 
1810 CS-CS-LX IFCS<1TMEN2150 

1815 PPINT-«k-TflB<l!)NlD*'STP»'XSj,2)-t- Z-PEEK<371S1» 
1829 IFZ-I10TMEHD— 1 

1839 IFZ-94THEHH-I 

1840 IFPEEK(37132)-119THEHD-l 
1855 IFDE-4TMEne60 

I86S IFH-1THEN1920 

1867 REN 

1860 REN 

1070 lFD-.O*tE*D<7922ORE*D>7942THtHl*80 

18?0 POKEE-22. 32. POKEE. 32 E-fcfD [FFfEK(22*E J<>0OPP£EK(EK>32THIH|rl 

1093 LO-5 OOT023 

1917 REM 

"918 REM-SflUT 

1919 REM 

1920 H-. J-l NS-23 Sfl— 22 IFD-lTMEHSfl— 21 XS-CS-ia 

1927 IFrjE-3flNDPtEK<E*23)-32HNDD-.TMtHS«-45 RS--43 OOT01935 
1930 tFE»Sft>7943THENSfl— 32 

1935 POf.EE-22.32 POKEE. 32 E-E*SN IFPEEK-'E- > ^' mi Hit < 7 921 THEN3/0 
1943 LG-6 0OT023 

1946 IFE-7921TMEHCS-CS+20 OOT039 

1947 IFE€^>2OPD<>1TMENI380 

1930 >. POKIE.32 P0KH-22.fi E-E»RS 

1960 IFPEEK'E^. j2G*PEEK<E.22>O80RP£EK<E-.V.'. J.TMEN3/0 

1978 LO-7 00T023 

1998 ONDEOOTO305. 705. 303.860 

1987 PEN 



SuHBpagt 91 



TUNNEL ET VOLTIGE 



Glissez-vous dans ce tunnel diabolique et detruisez 
les lems qui vous barrent la route tout en evitant de 
percuter les parois. Mais attention. ..Le jeu s'accelere 
a mesure que vous progressez (il est possible de mo- 
difier la rapidite du programme en changeant la valeur 
F ligne 80). 

Frederic NACCACHE 

Pour vous depiacer: A pour aller vers le haul. Z pour alter en bas 
et X pour tirer. Le programme se compose de deux parlies: !a 
premiere. Ires courte, rte sert qu'a charger la routine en langage 
machine de defacement du decor. II suffit done de (aire NEW 
puis RUN (apres I'avoir sauvegarde, bten sur!).la deuxieme partie 
(ait tout te reste Ne necessite aucune extension. 



5 P0KE32-27 PW.E5-, i< 

10 FOR1=6912TQ6940 REfiDF POKEl.F NEXT 

28 IWTm69. 1.133.251. 169. 9- 133,232. 166,251,189,198,38 

36 DfiTHl6«.232. 157, 198.30.238.251.230.252, 165. 

251 .281 . 88.268. 236.96 



le pRiwnammmma- pqx&3637&.i5 poke368?s-- 107 

28 POKE52.27 P0KE56.2? P0KE36869,255 

38 R-7168 FORI-fiTCfl+511 P0KEI.PEEKU+25686J NEXT 
40 FCRL-8T063 REftDF POKEFi+L.F NEXT 
75 F0RW836T0787? POKE!. 5 NEXT 

88 F0RI=73*6TQ7987PuKEI.6 NEXT CLft fW3il DF"35 
" " VGOSUB706 



210 IFHH-0THEN258 

213 IFPEEK(M)«8THEN220 

216 POKEH.32 

220 H-H't oosuBaee 

230 GOSUB90fl : OOSU8780 

268 P0KER.32 H"H*t G0-;uB37e fl»fl-l . 

POKER* 1.4 2=2*1 SVSC6912) 

261 IPHH-0THEN275 

262 IFPEEKCH-IK>4THENPQKEH-1,32 
273 IFQ-0THENFORI-1TO64 REftDF NEXT 
276 GOSUB906 GOSUB700 

280 FDRI-0TO3 REfiDF PCKE?eS9-22II,F- 

0-0+1 -NEXT 

234 GOSUB908 GOSUB7B0 

290 IF0«44eTHENRE5T0RE G»8 

380 GCTQ28e 

789 FQRI-1T0BF NEXT DF=DF-SGNCDFV8 

710 RETURN 

880 1FPEEKCH-1>=0THEN810 

883 IFPEEK(Hj-32TNENP0XEH.7 G070e38 

810 HH-ePOKE36876.8 IFPEEK(HK>8 

Th£NP0KEH,32 

628 lFPEEK<Hj = lCPPEEr.CH;»2THEN 

B38 RETURN 

see p-PEEKa97):iFP064THEnocsuBieea 

910 RETURN 

970 IFPEEK(P>J032ftMJPEEK<Ft.)0?THEN3eee 

988 POKEB. 4 RETURN 

1 088 IFP- 1 7AN0PEEK '. Fi-22 > 05THENDR-— 22 ■ 

GOTO 1666 

1010 lFP»33fiHDPEEKCP.*22jQ6THENW"=22- 

GOT01866 

1828 IFP-26fiNDHH«eTHENHH*IH»R+i: 

PGKE35876 . 200 ■ GOTO 1070 

1846 RETURN 

1866 POKEH.32 B-fl+DP, ■ GOSUB9?e 

1070 RETURN 



MULTIFICHIERS 



Ce programme intitule multifichiers est concu pour un 
VIC 20 de base, sans aucune autre extension que le 
magnetophone a cassettes. C'est un programme de 
creation et de lecture simplifiee de fichiers. II permet, 
en effet, de creer ses propres fichiers et de les relire 
de deux fagons possibles. 

Christophe RICHEGUDE 

Mode dempJoi: 

Le mteux est de prendre un exemple pour itlustrer le fonctionne- 
ment du programme. 

Vous. monsieur, voulez ficher vos conquetes leminines ou vous, 
madame. vos conquetes masculines. Multifichiers vous demands 
te nombre de rubriques desirees et teur libelle. Une fois le fichier 
ainsi defini, vous pouvez remplir. puis enregistrer celui-ci. En mode 
lecture, le programme redefinit tout seul le fichier et vous demande 
sort, de lire par article (entendez par la I'ensemble des rubriques 
qui se rattachent a la meme personnejsoit de lire par rubrique. 
autrement dit la ou les rubriques qui serviront de choix au tri vous 
sont demandees. Ainsi. monsieur, vous pouvez retrouver toutes 
vos conquetes aux yeux bleus en chotsissant la rubrique appro- 
pnee et en specifiant "bleu". 

Vous pouvez avec ce meme Multifichiers creer autant de fichiers 
que vous le desirez. II les relira tous. Sachez que vous ne pouvez 
creer plus de 10 rubriques de 21 caract&res au maximum par arti- 
cle et <jve le contenu des rubriques ne peuvent depasser les 88 
caracteres. Toutefois vous pouvez modifier ces parametres aux 
lignes 520. 550 et 645. 




3 print-; 



i r~ 



MULTIFICHIERS 



6 PWE36879. 36 PRINT 

7 PRINT' I r 

18 pRiMT-aDoaai (...creation 1 

28 PRINT- 2... LECTURE" 
33 PRINT" 3...FIPRET 1 



35 print pRn/T-«aaaBiwn fhite votre choix- 

«6 GETB» ■ IFB«=""TH£N40 
56 IFB«='T'THEN568 

ee iFEf^-z-THENieee 

70 IFM»-3"THENPOKE36873.27 PRINT-.-380WU RE' 

38 GOTO40 

508 ^Er<*«CR£flTIGH»4 

583 PRINT-TIB 1 T PRINT" 111 

586 PRINT" I r 

318 PRINT- PRINT'S HOT «J FICHIER" INPUTF* 




2888 WT«23S. 253. 235. 235. 233. 255. 253. 233- 6. 28. 26. 62. 28. 34, S3. S3 

2818 DRTB63. 65. 34, 20. 62. 28:28.8. 0. 32. 62.232. 63-122^5"^ 

2828 DflTfl|24, 16. 184, 124. 125, 124. 56. 0.0,6.8.0.0.6.255. 233 

2838 DFTR255. 255. 0.0. 0.0. 8, 8, 8. 8. 8. 8. 24, 0, 9,8 

2648 DflTfW. 6.32.0.8.6. 1 .8. B. 8, 1 .8.8.6.32 8- 32. 32. 1 .0,32, 32.3a, e 

2856 WTR32. 32. 32. 0.32. 6, 6. 8. 1.8. 8. 8, 1.0. 6.6.1. 9, 6.8.32. 32. 9.9. 32. 32c 



2880 DflTfl32. 32, 6. 0.2, 9. 0,0, 2, 32.8,8.2.32. 8. 0.0. 32.8,0. 32. 32. 32. 6. 32. 32. 32. 32- '2 
2938 E'HTfte, 1,32. 1.8, 32. 1.0,0. 32.32.32.6, 1 .32.32. 32. 32.0, 2. 3i.;-2. 2 32- 0.8-2 
2100 DHTfl32,0.0. 2. 32, 6, 6, 8. 1,8, 0-6. 1.6. 8. 9. 1, 8-8-6- 1.9. 32. 32. 32. 32, 3*' U 



1. 32. 32. 32. 32. 32. 32. 32-32. 1.8,2, 32. 1.0- 



328 PRINT-NB. DE RUBRIQUES" INPUTR*: 
NR-INT(VRL(MJ) IFNRO8ORNR>10THEN328 
338 DIttNR»<NR>,ft«<NR) 
548 PRINT-3B" F0RT-1T0NR 
545 PRINT:PRINT" TEXTE CE Lfi" 

538 PRINT" RUBRIQUE*-, T."l~: INFUTNRfm 

NR»(T)*LEFT»<NR*(TJ,21) NEXTT 
353 PRINT PRINT -|DK<0.N>?" 
555 GETX* IFXfO"0"ftNDXtO"N'THEN333 
356 IFX»-"N"THEN540 
368 PRINT-JOTI J1ERCI" 
363 PRINT"«I ENREGISTRQNS 
VOTRE FICHIER" COSUB2000 

388 PPINT'TT P0KE36879.26 0PEM1.1.1-FI 
398 PRINTtl,NR,CHR$(l3) 



2118 DPTR32, 1.2,32. 

32.32 

2128 DHTR32, 1.8.6,32,8.0. 32. 1 ,0,0.32, 32.0,0. 1.0,6,6. 1 .0.8.32,32.8.9.32. 1.8,6.1 .8 

L'.:-? :---:-! :z :. :-; : ?L ?: :v ; 1.2,1 2.1 2,1,33 9,2,8,32 32*32*32.2,32.32.32. 

0,1.6,3 

2148 DftTR32,32.32,32.32.32.32,32. 1-8. 1.8.32.32.32-32.32.32.^ 32.6.2.6,1 

2130 DRTP.32. 32. 32. 32. 32. 32 32.32.32,9,1,6.1.0.32.6.32.8.1.8,1.8.1.0.32-32.32.0. J 

2-32 

2160 DHTFil. 0.8. 1-0,0.32.32.0.0.32.1.0.0.1.0.0.0.32.--.. - .-. _.. .. .-_ <t.3i.*.Zi.Zi. 

32 

2178 DRTft0,0,2, 1,8,32, 32 ... 6, 1.2, 1,0,8,0,^2,8,8,32, 1,8,6,32,1, 8,32,1, 8,8,32, 1,6 

.0,1 

2188 SRTH8. 0.8.32, 32, 0,8, 32. 32. 8 

5093 PCFE36?r6.0 P0KE36877, 138-POKEM-3 P0KE36879,41 F0RI-1T02566 NtXi 

550? FC--EI:873.27 FZ<E2 i 3£.- 2-:0 

5818 PR I NT "300/005 RVE2 PfiRCOURU',INT-,^10j PRINr-*lIL0nETRE~... 

z :,-■: -:-•:-:-. :•:-:■■: ui : ?-■ E:-:6S77,0:P0KE19t B 

5325 PRINT-JOOOajS-E Ftl.(TR£ iO^OSKir INPrjTRJ 

5039 IFflS^-O-THENPRINT-BD)*****! O.f." FORI-1T02888 NEXT RUN 

5040 PP.INT"EB DEGONFLE "" ■ 

COMMODORE VIC 20 

606 FORT"lT0NR:PRINTtl,NR«a>;CHR*(13>;NEXTT 

62P FC<E3SS?S.3d PSUiT"^iacPRNISS0NS DONC CE FICMIER' 
623 PRINT"£NTREZ 'FIN' ft Lft 1ER£ RUBRIQUE POUR FINIR" 
636 F0RT-1T0NR:PRINTNR*CTJ INPUTR* 

646 IFFW-"FIN-THEN630 

645 R»<:T)-LEFT*tR»,88)-NEXTT:PRINT:PRINT" 0K?<0XN)- 
546 0ETX*:IFX»O-0"RNDXfO"N"THEN646 

647 IFX»-"N-THEN630 

648 F0RT-1T0NR PRINTil,R»a>;CHR*(13) NEXT 00TO638 

650 PRINT#I,fl«.CHRftl3) CL0SE1PRINT PRINT-FINI.flERCI" F0RT*lT016ee NEXT RUN 
1666 REHMLECTUREM 

1665 PRINT-rSO I T PRINT" I aLECTUREBI r 

1606 PRINT" I r 

1616 PRINT PR1HT"« NOT DU FICHIER" ■ 1NPUTF* 

1620 aOSUB2066 

1640 POKE36879.26 PRINTTT 0PEN1,1,8,F» INPUTtl ,NR DIMNRHNR) DIMiM(NR) 

1838 FrjR7"lTQMMMPUT»l,NRS<T) MEXTT 

1878 P0KE36879,38 PRINT-3B VOUS VOULEZ LIRE" 

1688 PRINT:PRIN7"M1...PRR RUBRI0UE 2,..PfiR ARTICLE' 

1696 GETXI IFX»""-THEN1098 

1093 IFX«--1-THEN1366 

1166 REM PR* ARTICLE 

1116 PRIKT-.TBi NOMBRE D'HRTICLES ft LIRE (6 POUR TOUS)" 

1126 INPUTNFU NB-VRL(NR») IFNR-6THEN1288 

1138 FORI-1T0NH PRINTNR«(l);INPUTHft«I;NEXT 

1140 INPUTtl-Mtl) lFfl*<l>--FIN"TKEN1296 

1138 FORI-lTONfi IFft»<l)ORB*<I)THENNEXTI C0-1 00T01176 

1166 C0-6:RR-HR*1 

1170 F0RT-2T0HR INPUTtl -ftf (T> ^NEXT 

1188 IFCO<>lTHENPRINT , 'T' FORT-l TOUR PRINT PRlNTfl»(T) NEXT OOSUB22O0 

1199 IFRR-NRTHEN1298 

1195 00T01148 

1286 RE71 TOUS 

1292 INPUTfl.H*(U 

1263 IFRf(l)--FIN"THEN1296 

1286 PRINT-T- 

1210 FORT-2T0NR INPUTtl ,R*tT) NEXT 

1228 FCRT-1TONR, PRINT PRINTfl»<U NEXT GOSUB2200 OOT01282 

1296 pram- ma w m imnx mmms* cest le dernier- 

1293 0ETX» IFXf-'"THEN1293 
1296 RUN 



313 OETX*^ IFX»O-0-RHDX«>"N-THEN1313 

326 IFX*-"N"THEN1350 

338 PRINT" 8LIBELLE3" 

340 INPUTR* Nfl-Nfi*I HRfCNfl)-LEFT»(ft*,ee) FKNFIJ-T 

330 NEXTT 

360 INPUT»1.R*(1) IFft*(U-"FIN"THEN1296 

370 F0RT-2T0NR INPUTtl .fi«(TJ NEXTT F0RI-1T0NR 

388 IFM(ft<I)K>Hfl«CI)THENHEXTIOOTO1360 

398 PRINT"^" F0RT-1T0NR PRINT PRINTRt(T) :NEXT G0SUB2266 0OT01368 

066 REM CASSETTE 

010 P0KE214-16 PRINT PRINT" REBOBINEZ VOTRE" P0KE214. 17 PRINT" 



2028 PRINT PRINT PRINT" PRET 7" 
2030 GETFi* IFftl»""THEN2036 
2840 RETURN 
2200 REM P.TTENTE 

2220 C'ETX* IFXI = ""THEN2220 
i230 RETURN 



QUASIMODO 



Suite de la page 30 



COMMODORE VIC 20 



Le numero de la rentree 
sera en vente chez votre 
marchand habituel le 31 
Aout, N° 46, 8 francs. 



1988 REM-tHJSI'J'JE 

1389 REM 

1996 DftTft228. 221. 223. 228- 8. 228, 225. 228. 221,6 

1397 PEfl 

1998 PEM-PPESEHTP.TIQH 

1999 PEM 

2080 pRiNT-namBB il v ft tres LrrnoreitPSB dphs un lointain 

HR*<8; 

2085 PRIMT-fflBB JDUftSIMODOB «01 FiDftPTE PRR ERIC WJDV ■ 



Jt CHRTEftU VINT...-C 
(CJ63-'1984 



2022 FORA-1T018 PEfiDBHEXT FOPP.-7368T0/631 POKEH-PEEK(fi*23600> NE/T F0RR-7168TO7 

367 

2030 PEflUB POKEfi.B NEXT FORh-1 roi«8« Nt^.r hOVjl'tW 

2057 PEI1 

2058 P£H-OPflPHISnES 

2053 REM _ 

2068 CftTft2'^. 23*, 239. 8-127, 127, 127. 6, 48. 120- 252, 24^,232, 2^2. 204, 68 

2665 DRTR56.124, 124, 124.36.48- 12. 108. 16,40. 63,04, 188-138.68.56 

2876 DflTP.0,32,64,234,64.32.8.0.0-4,2, 127,2.4.9,0.16.16.16,16-16,16.16.16 

2875, DATHI6- 56, 34, 16. 16, 16, 16- 16- 32- 112. 252. 255. 255. 252. 112, 32 

2830 D^TF.8, 255. 129. 66, 235- 255. £55. 255, 0.0. 6,8, 137, 255. 255. 233 

2693 rjftTR8, 8, 0,69, 239. 255- 255. 255. 24, 126. 66, 193. 193. 66, 126, 24 

2898 DF.TR16. 60, 228. 126. 47, 119. £0.8 -0.8. 0-0' 0-4. 76, 223 

2033 DHTP.--,*:. !<,■*. 183, l«l . 173- 157. 195.255,255-^55.255.235-233,233.255,255 




2198 LflTflO. 43. 48. 48. 43, 48. 48. 8. 16, 8, 4. 4. 10. 18. 62, 63 

2183 DRTA138, 124.66, 112, t.4. 66, l,:4 [ ' 1 :■<:. 134. 137,63- 126 

2118 DRTR129. 66. 182.96.66,66.6b. 129, 1 .94,34.66,66.68,122,128 
2115 DFiTfl56.68. 68. 124.98.88. 73. 190.65- 34.63. 34, 34, 28.28,8 
2149 PEM-TEMPS ECOULC 
2138 PPINT-WTRBniJ-Ofl" 
2135 GOSUB383 GOT02155 

2137 REM 

2138 PEn-NIVEWj 

2139 REM 

2166 P0KE36869.248 PPINT"nM EHTPfcZ VorPt NIVEPHJ 



VICE" 



I Nil 



mi- | ..I' : 



2163 PRIHT-B 2-MOVEN" PPINT-W J-EXPEPT" P0KES»2.I3? PRIHT"! 

2167 PRINT'IW CEB>JT PftR 'CTRL'" LX"1 

2168 HI«PEEK( 7674 ■•236*PEEK 17675' PRINT "MQ HI»*"MIDI' >TPI-Hl /,2>-TTTTTT 
2170 IFPEEK(283K^64THENLX-L;i*l OOTO2180 

2172 IFFEEK.;653..C^4THEN2I78 

2173 RESTORE F0PR-1T010 lm-i'I-, [. 

2178 REflDB PC^ES.B FURZ-1T0*'!'.' NEX1 n rURH 

2186 IFL^-4THENLX"1 

2182 PRINT'T'TRB*!©^:; FOPH-1TU100 NEXT OOT02172 

2200 FPINT 'TM "'.iif-t SCOftfi EST DETEH1IHE M PHPTIP DU t'JfiPTI 

2293 PRINT ; 'iir ZERO-VOWERfl r-ttrjPt UNfi Mt." PRIH7"«« \ '■•<•> i«JtE2 EH ftVRHC 

"lit VOUS 

2210 PRINT" IRE2 PLU'= LOIN. mi ■ PRINT"* It Fl 

flCOPDE " - 

2213 PRINT" DE LH CLOCHE POUR PIHIR '.<•• rflBLEAU, " PPlNf'iM RPI 

WftIT633.4 
2226 00T017I2 

Rcnnv. ■ 
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REVENDEUHS 
NOUS POUVONS VOUS 
FOURNIR TOUS LES LOGI- 
CIELS DE CETTE PAGE A UN 
TARIF PREFERENT1EL N'HE- 
SITE2 PAS A NOUS CONTAC- 
TERAU ; 16 (1)294.28.50. 
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DEMANDEZ LE PROGRAMME 

Achetez vos logiciels les yeux fermes, nous les avons testes pour vous I 

Nous avons selectionne pour vous les mellleurs loglclelz actucilcmcnt dlsponlbles en Franc* Nous nt 
pretentions pas que cette llste est complete e t definitive et Heat evident que nousy rajouterons regu- 
*\t llerement des programmes au lur et a mesure que nous les testerona. Pourtant, vous chercheret en 

vain certains programmes qui joulssent d'une bonne reputation et qui te vendent surtout grace a la 
publlclte et aux consells dea vendeurs qui ne peuvent pas connaitre tous les logiciels dlsponibles. 
Nous avons classi a part les logiciels educatllt et, par soucl d'honrtetete. nos propres produtts : les 
Hebdoglclel Software. 

Letprlx aont, noua I'esperons, les mellleurs du marche surtout pour les abonnes - ancient el nouveaui 
- qui benetlclent en plus d'une remise de TO V SI vous etes nombreux a nous sulvre dans cette expe- 
rience nous pourrons rapldement arrlver a fetre balsser les tarits des tournlsaeurs pour attelndre 
I'oblectrf que nous nous sommes fixe : ramener_t_es_prlx_b une plus juste valeur I 
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GEOMETRIE 



Module I ou I!!. Dessinez sans probleme et sans 
crayon des formes geometriques en deux ou trois di- 
mensions, c'est facile. Un TRS 80 et ce programme 
suffiront! Un mode d'emploi, tres simple d'ailleurs, est 
dans le programme. 

Jean Luc PERNOT 

16 CL3-P*1KT127*,*C i C K £ T R I E" PRINT PRINT 

:Z PROCRAMAE VOUS P£Rf«TTRft 0£ VOIR ET DC Cft.CUi.ER OUELQUES FICURES 

GEOcnttauES" 

en ;euvrE'- 

•"<t D'UN TRIANGLE" 'PRINT" ft L« QUESTION' ENTRER ft ET B flVEC L 
ft H£?C -■: : E 103.CN.48.CH" 

146 INPliT"UN AUTRE CALCUL TfiPER 1 SIMON 8".C 

IB .UC13);iK18).Sie> 1*7 IFC-1THEN139EL3E22 

■:'-Ta2e."CeCf«TRIE- (48 CLS<PRINTI28, "SURFACE D'UN TORE.." 

14? PR1NTJ223,"'" PRIKTK87.-!"'PRINTe4J3,-rPRINT|543."'- PRIHT959e. ■»— >-PPI 

24 PRINT 3 54,'ENTREF LE CHIFFRE DE ^'OPERATION OCISIE ■ NT*687," >* 

tt38, "PERIHETRE OU CARRE ' I' 158 PRINTt631."k*'PRINT»671,"! P" 

r'.?4 'FEP^E^E IV 'ECTW-XE ' 2" 131 GOSU8343 

1*235 PERIHETRE DU CERCLE ■■ 3" 132 IFZ1-24THEH239 

: '3?22, "SURFACE DU CflRRE ■ *' 133 PRINTU766, "VOICI LA FORMULE S-4tt.1413C2ti.tr- 

29 PRINT8396. "SURFACE XI RECTANGLE ' 3" 134 INPUT'ENTRER k ET r AVEC LB MEHE UNITE-jK.ft*.R.A* 

:-o fr:s-34:c, :.=t3ce du cercle s- tss s-4t3.i4i3C2««R 

■ ?• 136 PRINT'LA SURFACE EST DE , 8»»j'C2-4i3.I4l3»*K'**R 

TOSTg SuRfflCE LATERALE D'UN CYLINDRE 8" 137 INPUT'UN ftUTRE CALCUL TAPER 1 SINON 8"jC 

33 PRI-TSS42. "SURFACE TCTftL D'UN CYLINDRE ' 9° 1=8 IFC-1THEN143ELSE22 

34 PftINT8706. -SURFACE O'UNE ZONE SPHERIOUE 19' 135 CL3'PRINT823,'3URFBCE D'UNE PARflBOLE..' 

53 PRiNT?779, "SURFACE D'UHE CALOTTE SPHERiguE -11" 163 PWKtW2r^r , -PMMIi95.0l«16«>*OI«l76>«OI«i7«>«H^184>«BTWW»<4.18e) 

36 pe;n"»034,-fleFftCE D'UN TORE '12" 161 PMHTtl4S."r'HUHT«S4»0«tC17SM*«^?5i-:r=*: ;?$:-r =;>,::*- 10. 191 > PRINTS 

» ntlKnem SURFACE &■ HE PRRftSOLE 13* 2W»"I' PmHTt214.CHR*lS8>*CHR»<: l34>+CHa«i93>+ST?;-;::*;:4,::?i j -P.lsrizrz ■ : - 

38 INPUT" POUR VOIP LA SUITE .FRESSEZ 'NEJHJW'iE INT3277, CHRK I84>STRIHCW17, 191 >'fWNJlW,"("'PRIIffl34a,CHR»< 170:+?T»INC« 13. 1 

39 OS RRJHTtSS. "SURFACE D'UN TRAPEZE 'I*'91> 

48 PRINTei38, "SURFACE D'UN TRIANGLE '13' 162 RRINT?339," — ! > X' 

4: «!KT?l?4,'SURFftCE O'UNE ELLISPE '16* 163 PRINTS4«,"!"'PRINTS330,-r 'PRINT«34,-!".PRINTa653,";" 

42 PR;nT6239."VOHRC D'UN CUBE '17' 164 0CSU9366 

43 PRINT8322."VCLU"E O'UN FARALLELEPIPEDE 'IB* 163 PRIHTIH& "VOICI Lft FORMJLE. S-xmca^)* 

44 PRINT5386, "VOLUME D'UN CYLINDRE ■19" 166 INPUT'ENTRER X ET Y ftVEC LA HEME UNITE", X,P».Y,W 

43 PRINT8430. "VOLUTE D'UNE SPHERE '28" 167 3"<2^3>iY*X 

46 PRIMTB314. 'VOLUME D'JNE PYRAMIDE '21' 163 PRInt-lP SURFACE EST DE -8jfVi-&-J)bf*m-*caV»* 

47 pRiNTesTS, -volume O'uncoc -22- is? iwt'i* «nne cfuul tpper 1 sine* e-,c 

48 PRIHT8642. "VOLUME O'UNE ZONE SPHERIOUE '23' I™ IFC-1THEN139ELSE22 

49 PRINT5706, "VOLUME D'UN TORE '24" I?l CL9 PRIHTBO, 'SURFACE VW TRfiPEZE.." 

«g -. ; ..- EKTRER - FOR* r MUSIC "(Zl 172 PRIHTtlW^W'PRWrCKj" — ' PRINTt298»*I' PR1NH3S2,"!' PRIH7t4aS/*l K*-Pfi 

31 IFZ1-8THEW8 INTe498,"!-^eiNT3K4,'!":pR!NTes(8,"!" = PfiINT8«2-'-''PRINTB731,"8" 

32 IF2i>247HEN3flELSE34 I?3 KISUB372 

33 OlTCrje l^ 4 PRIHTt7 68/^yO ICl LA PDRHUU s-hf^ft.8V2>" 

34 0HZ1COTO35- 53.71, 79,97.93. 183.111. 119.127,139,148, 139 1 7 3 INPUT'EHTRER ft B ET h ff.EC Lft MEflE (JiITE'jR,PJ,B.A*,H,A» 
. 17J, 198, 189. 198.286.213,223.231,233.247,237 1 ? 6 S-H«<ft*S3'2) 

55 CLS.RS'WWB -=rerfFTPtr w , rcwor - I 77 PRIKT'lfl SJRFfCE EST DE ■SjM) > C2-Mlf*lCC*»Aj'4 a iei*}/2>- 

S SwScT^' PE * I ' CTRE W WWE " 179 IWUT'UN WJT.^E CPLCLT. TPP£P 1 3INON 3'.C 

57 P^NTSTW -vorrr lft flWIf P - i f ,- 173 IFC-1THEN17IEL3E22 

4 MM ^^ !SI PPI"T3"e6'*4"'WI^9733,*i>' 

5 SSinM Sf^n^T^lll^; S4" jfl « ^Sk.'VOICI Lfl FCRHULE 3KMBV2- 

:_._,.;:._-:_„--- --^ ■ 31 -'■ 184 INPJT'EHTRER 4 ET b ffVEC LAHEfiE UNITE-.A.A'.B.fif 

WTO .E-bMUW UK1TE-.M.M...K |g CLS^S^BCE »•« U>k.< 

- i •emEIK EST K •f,*,-«i-,».-..,B,->. igijaS^iii ^,^., ... -«INT.478.-I >'«>»'l »• 

5? I^-JT-^ ffljTPE CW.OJL TPPTR I SIMOM B'.C ., rnS^M PRIHTB670. . 

A SsJS^ ^"'^^ " J CERCLE -- 133 1NFOT"E»TBER , EI b «V£C l« HX UBITEVB,».B.« 

%S?i£ 'X%-V*;<Z*"- , "* r- « SS#S«Wi EST DE •S, M ,-C2.3.H,„.„,,.,-,e 

73 P='r^ -413*B 136 IWjT-UN RJTRE CflLCUL TAPER I SINON 8';C 

7? Ppn*T : LE*SEPrnETPE EST D£ "P i ft>,--2*3.14I3«'ft 157 If ri >l™EHlB9ELSE22 

7^ INPIJT-W RUTRE CflXcUL tSfj? 3 wSr C ,98 CL3-PRINT,K8,-va L ^ D'UN OJEC..J' 

P» IFC-1THEK7IELSE22 139-PRINT5463, "**'P»IMT973B."»"'C03Ue332 

79 as' PRINTK3,-SURFfCE DO CflRRE..- ™ PPINT37M, 'VOICI Lft FfjP^jLE...V-«t*f4- 

m Gosuazts ai i^ut"ektper. * «vec L'ijNiTE*jfl,ft« 

■ : pRtWTl7S8- TOIC] LflFORHtE >««a* ;02 V " F,E3 

92 I >4>U7 -EKTRER * ff/EC L'UNITc*,ft.f» 2S3 P*"" 1 "^ ''O'-'-'E Et-T D= -v,A»j -C3«'yfti"»"Jfli"«*Jfl 
*i 9^(2 2C4 INPUT-UN AUTRE CflLCUL TAPER I SINON 8"iC 

94 ppiHT-,,ft ^j-RFBCE EST de "3>P*,"E2- n iA;*f*jft M5 IPC- 1 THEN! 99EU3E22 

83 INP-jT'jt. RJJ7RE CPLCJl TftPER 1 SIHCN B'jC ^^ CLS-PRIHTtZB, "VOUffl O'L-N PWALLELEPIPEOE..- 

■ EH79ELSE22 207 PPIK722ai^ft- .prikt^S?, 'H--PRINT8731.-S- 
87 OS ■PMHTtZB, "SURFACE W RECTA«q.e..- 283 C0SU8486 

3P COS'iK7i 20? D RINTa769, "VOICI Lft F0RHULE....S-H»fi*8" 

■'" MCI Lft FSRHULE >»«j- 213 INPUT-ENTRER H ft ET B ftVEC Lft -£ME UNITE'jK,ft«,Ft.fl«,B,ft» 

90 !W"EWT?ER ' ET o ftVEC Lft MEW UNITE'! A,ftt,9,ft* 211 V-fl»Hf0 

212 PPINT-LE VOU« EST CE *jV,A»; -0',H, -t",ft, 't',8 

I J SURFACE E3T ^E -Sjft»,-C2"-,ft>"t-*8 213 INFUT"iJN RUTPE CflOJL TftPER 1 SINON 8"iC 

93 INP'JT"UN ftJTPE CftLCiJl. TftPER I SINQN 8*jC 214 IFC-ITHEMZMELSE22 

?4 IFC-lTHEN 37FXSE22 213 as PRINTS20, "VOLUnE D'"JN CYLIWOCE... " 

■ •.■'■HZ. "TJJRFACE DU CERCLE..' 216 C0SUB297 

K G0SW277 217 PRINT8769. 'VOICI Lft F0RWAE....V-W<3. I413rRtR)" 

_'• -;--AE S-rtrt3.14J3" 213 INPUT"E«TpEP H ET R P/^C Lft HEME 'JHITE"jH,«l,R,fl» 

?a rw*/T"EWTftER r ftVEC L'tJNITE'jR.A* 21? V-H*3, I413iRE2 

99 S-PC2.«3. J413 228 PRIKT'LE VXWE EST DE "Vjfl»i"C3--iHj-i(3, MISftRf n t'ifti m V 

188 PRINT-Lft S'JRFftCE EST DE •?,Ai,-CZ--,Rj"t*j8>-*3.I413* 221 INPUT "UN fVJTPE CflLC'JL TflPEP 1 SINON 8*<C 

131 IHPUT'UN AUTRE CALCUL TAPER 1 3INOH 8"iC 222 IFC-1T"EN213EL3E22 

182 IFC-ITHEN93ELSE22 223 CL3 ■ PPINTK0, -VOLUME D''JNE SPHERE.." 

183 a3'PaiNTt28, -SURFACE D'UNE SPHERE..' 224 COSije203 

184 OT3U8283 223 PR IKTI76B, 'VOICI Lft FORfiULE V(40)*3.i4i3fRt3" 

183 PPINT1758. "VOICI LP FOWAE S-fl. lAtStrtrtrtt 4V3)' 226 Infijt'ENTRER R ftVEC L'UNITE -jR.Af, 

186 IMPur-EHTRER r ft-^EC L''JHITE'fR,R» 227 V-(4^3)t3. 1413IRC3 

187 3-3. I4i5*RC3«4/3) 223 pfilNT'i.E VOLIJME EST DE ■V 1 fl*/'C3"(4^3»3. 1413I-iRj-C3" 

188 PRINT'LA SURFACE EST DE "StMi "C2-3. I415«*R-*'R'rR"«3/4>" 2 2 ? ihfvt-iJN BUTRE CALCUL 1 SIHO 8 *)C 

189 INPUT-UN AUTRE CALCUL TftPER 1 SINON 8";C 233 lPC-iTHEN223EL<$22 

118 IPC- 1 THEN 183ELSE22 231 aSPRINT«0,"VaUHE D'UNE PVRBHIDE.." 

111 CIS PRINT923. 'SURFACE LATERALE D'W CYLINDRE..' 232 C03U8428 

112 VWWSy? 233 PPINTI768. "VOICI Lft FORMULE V-<h*b>/3" 

113 PPINT5769. "VOICI Lft FORrtULE S-2*3. 14!3l<-«h- 334 IHPUT-£HTPER b ET ti fl-^EC LA I^EME UNITE" >B,fl«.H,ftf 

114 INPUT-ENTREP r ET h RVEC LA ttEME iJNITE" »R.fW,H.A» ? j- v--H*B)/3 

113 3-2«3.14l3*P'H 236 PRINT'XE VOLUME EST DE "ViA8 f "C3-<*»H;"**j8j* V3* 

116 PRINT-LA SURFACE EST DE '3i«i 'C2«2»3.14I3*"R"*"H 237 ihput*ijn AUTRE CALCUL TftPER 1 SINON 8-;C 

117 IHPUT'UN AUTRE CRLCUL TfiPEP 1 SINON 8'»C 239 IFC-ITHEN231EL3E22 

119 IFC-ITHEH1HELSE22 239 aSPP!"T.J20. "VOLWE D'W CONE ..' 
119 aSPPINTS20.-3iJRFftCE TOTRL O'ljN C/LINWE..* 240 C0S'J644a 

128 C03U8297 241 PRINT3769, 'VOICI LA FORWJLE V-<h«rir»3.l413>/3' 

121 PRINTt766. "VOICI Lft FOPLIJME S-2*3. 14I3tr»v*2f3. 1415*r*r" 242 INP1JT"ENT0EP h ET r AVEC LA KEflE UNITE";H,ft».R.ft* 

122 IHRUT-ENTPER r ET h ff-^C Lft "EtfE 'JNITE*(R,A«,H.A» 241 v-(H*P»Pt3. 14I3J/3 

123 S-(2»3.1413»R»H)*<2*3.1413»^:2) 244 PRINT'LE WL"J«£ EST 0E"ViA*»"C3-( 'jHj-fjRj'f 

124 PRINT-LA SiJRFflCE EST DE "Siftti "C2"2»3. 14l3l*R-»"H"*2»3. 14i3r ■■: ■»"P (fi ,. t 3.]413V3" 

123 IHPUT-UH ftl^RE CALCUL TAPER 1 3IN0H 8'iC 243 INPUT'UN AUTRE CALCUL TAPER 1 SIMON O'-C 

126 IFC1TMENUSEL3E22 246 IFC-1THEH239EL3E22 

127 CLS ! PRINTe28, "SURFACE D''JN£ ZONE "PHERIOUE..- 247 aS'PRINT820, "vaUFIE O'UNE ZONE SPHERIffJE. ." 

128 PPIHT(»333,CwP*;i6ej*CHR»a76)*STPINC«28,188>+CHP*:i?C;'*CNP»'-]7rt ■ :»l"T<i-&. ;4 A PPINT»2a7, •»' 
- ! pffINT?396,CHRt<l6a>*CHP*M84)*CHR«f 198)+STRIMC«32, I?!>*CHRt/l3I>*CMP 240 C0SUei28 

•<iee)*CHRt/i44) 230 p»:NT(?;43.'b - 

129 PPIMTJ439,"' h">PRINT»3«0.' — " l PRINT»543."b''PRIHTB680. >' PRIN79733,"r ^Hl PRIHT?7f.», 'VOICI '.A FORHULE. ...V-(3,1413Ih/6>*( 

>- <3»«C2)*(3»l>C2>*hC2>>' 

133 PESTCPE 232 ImPUT'ENTPER h * ET b AVEC L'lJNITE'^H.fll.A.fHJ.B.fW 

131 C03'JB314 233 V«^3. 14!3tH^:.t(<3tftt2)*^;.iBC2)*HC2> 

132 1FZ1-23THEK231 234 PRINT'LE VOLUME EST DE •Vift« J -C3-<3. 14i3t- iH,V6 « 

133 PRINT9768. "VOICI LA FORWJLE S-2*3.I413*rth" t3*"A"C2'*'^»"B"C2>*-H'C2 ))" 

134 IWr"ENTREP r ET h A-^EC LA KE-E UNITE',*, M.H.M ,,- , ,,. c , jr ",_Y, r „ JT , E r^ C j. 7APEP 1 SINON fl-.C 
139 3-2»3.I4i5*RtH 25^ IF>lTHEN247ELf<22 

136 PP1NT-LA SURFACE EST DE "S- A»-C2-2»3. 1413'R'fH &? flj P b IN t«B, "VOL'JNE D'W TO"E ■ 

137 input-UN ai;tpe CFIXU. TAPER 1 SINON 8'jC 239 C0S'JP14? 

139 IFC-1THEN127ELSE22 237 PRIHT«7W, "VOICI LP FOftMJLE V-2»3 14l3C2»rtkC2 

13? CLS'PRINTKe. -SURFACE &'l»C CALOTTE SPHERIOUE.." m If ruT'EN: E R r ET fc ft-^ C W Wt iSwXSSSi 

149 RESTORE 26i v-2*3. I413C2mXG 

141 O0SUB333 ;62 PRINT'LE VOLUME ~~ J T V«Mj*02t3 l4i*r!t"R".'r"C?" 

142 PPINT9763. "VOICI LA FORMXE S-2«3. UiStRIH- 2 6 - iw\j* ftUTRE CTLCUL TAPER I HNOH »',C 

143 INPUT-ENTREP r ET h ftVEC LA HEHE UNITE'iR.Ai.H.fl* |^ IFC-1THEN237ELSE22 

\T- SSfSl.'J^'SSrr w r* •= «..«-^ .^4«d-« : ' K "* ^*£2 T J 4 «''*' "1^142'., ".- .PPIHT-36,"4"PRIMT(736,-4 

143 PRINT-LA SURFACE EST DE S- A»"C2-2I3. 1413i'R'fH 2W F0»«3T086-SET<H,¥>'NEXTX 

34 



257 jf-96 FC<rv.BT030 "■■ • ■-■-■ 

zee -•:-? -c---??-:*:?"--: >et<a,i nextx 
ESS -■■ FOR*" "■■•-■-•-: 9CT( •: ti NEXTY 

- 1' PSINTtJJi.-s* PfiIKTf441,V ">:^K72."i' 

272 .- pobc :c:::: ?;-■.'.■ nextx 

273 *»I13 -"---::? SETtK.V) hexty 

Z7< <■"■ rri.. ; .i T -, 5; - E7 . 1 ? r-. . . .7.-. 

2-3 ■*::' -:= ■*::■-:"-"-: :r - t-- 
:-: RETURH 

277 PRP.T3413 •- ->' PRIKr#«»»,-r" 

;r- -"-,..?-:^.Z-?TEPfl.f3-8 

:7? '•:o?'C , *2? ■■•::■■■: 3 >»t8 

2?3 ?ET;64»X,19*yj 
231 NEXTC 
282 RETURH 

293 PRIHT1413. -I--— >-PRINTf427, , r- 

2B4 POR>0TO6.28STEP8,B38 
2B3 X-CCS(C)I28 ''•SIWOHB 

286 SET<S4*X,19+Y> 

287 NEXTC 

298 F0RC-8T0 3.14 STEP8.833 
289 K-C0KGW28 T-SU*t67« 

298 SET<64»x,19*Y) 

291 NEXTC 

292 F0R>3.14TO6.29STEP8.1 

293 X<0S<C)I28 Y-3IN(C»3 

294 SET(64*x,I9*Y) 
293 NEXTC 

296 RETURN 

297 PRINTtZ2l,V I >*<FRIHTt236 ~ PRIHreM -'■-::': 

29,-' h" PRINT3493,-'-:PR!NT?33'."*PRINTe620.- " 

:?-: -:-:-r:^.:::-:^.:: 

299 X-C0S(C)t29'Y.siN<C>*3 

308 SET<f4+X,ie*Y? 
381 NEXTC 

3?2 -:RC-cT.:?.:4rE=^.C3 

203 X-C0S<G)*28;Y"3IN<G)t3 
384 SET(64*>;.29+Y) 
303 NEXTC 

386 F0RC-3.14T06.28STEPe.l 

387 X-C0KOI28 v.3iKC»3 
363 SET<64.X,28*Y> 

309 NEXTC 
318 FCWC-13 T023 

311 SET(S3,C)-SET(44,C) 

312 NEXTC 

313 RETURN 

314 FORN-iT073 
313 READ X,Y 

316 IFH<-78THEHSET<X,V> 

317 NEXTN 

318 DflTA13,34, 14,33, 14,32, 109,34, 189,33, 189.32 

319 DATA13-31, 13,38. 13. 29. 108.31.108.30.109.29 

320 DATA16. 29. 17. 27. 17,26. 1?, ;3. 107.2?. 10;'. 27, 186,26, 183. 25 

321 DATftl9,24.2?.23.2I.22.£2,21,23.21.I04,24,iCi3.23.182.22.lOl.:i.!.V.?: 

322 DATA24, 28, 23, 19,26, 1?. 27, 13, 29. 19. 29, 17,30, 17,31, 16, 32, 16, 33, 16 

323 DATA99,23. 99. 19.37, 19.96,19,93.19.94, 17,93. !7, 92, 16.91 . 16. X». 16 

324 DATA34, 13. 33, 13, 36. 13,37, 14, 39, 14, 3?. 14. 48. 13. 41, 13. 42. 13,43. 13 
323 DATA99, 13, 98. 13.67. 13. 86. 14,83,14.94. 14. 93. 13. 82. 13. 81. 13. 80. 13 

326 FC*U*44T031 F0RV-79T072STEP-! 

327 SET(U.12) SEKV,12> 

328 NEXTV'NEXTW 
32? F0RW-32T071 

330 SETCH.tn 

331 NEXTM 

332 RETURN 

333 PRINTB227,- ■ PRINTK?S.CHR»( re^CHR* !T6>»STRING«4,i3S 

>*STPINC« 18-191 )*STRINC«4, IBB )+CHR* 176 )*CHR«<176> 

334 PRINTesie,"!- PRINTS333.CH?*-: l^0)-CNR»<176).CHR« 133 >'CN?*<i?o>*STRIMC*: 23.1 
91 HCHRK 189>*CHRt( 1B8)*CHR»( 176) 

333 PRJNTI374,'! h-'PRINT»396.CNR« I60>*CHR«': 184)*CHR*; I Sovp;^. ?" :il>*<HR» 

( 189>*CHR*< l=0>CHRt< 144>. FRINT9439. " ! ' 

336 PRINT3460,3TRINCI(38.131) PRINTS330," — ■•FRIHTKW,V PRIMT8733-'" 




337 



RESTORE 

C0SU8314 

COT0142 

FORC-8TO6.28STEP0.1 

»COS<C«10 Y-SINC013 

SET(29'X,23»V) 

NEXT 

FORC-8T06.29STEP0.1 

X-C0S<O*10'Y-SIN<C)*3 

SET<187.X,29*Y) 

NEXT 

RESTORE 

FORN-1T0177P£AOK,Y'IRO-71THEHSET<X.Y) 

NEXT 

DATR20, 23. 21, 22. 22. 22. 23, 22. 23, 21, 24, 21, 23,21. 26. 28. 27. 20. 2S. 

DATA29.20.38. 19-31. 19.32. 19.33. 13,34,10.33, I8,M,:S ".13 

DATft39, 17,33, 17, 40, 17, 4[. 17, 42, 17. 43. 17,44, 16,43.!^ ..^.tr", 

DATA47. 16. 49, 16, 49, 16. 30. 15, 31. 16. 30- 27, 2!. 27- 32. 2S, 33. 26 

OAT A34, 26. 33, 26. 36. 23. 37, 23. 33-23- 33, 24. 40, 24, 41. 24, 42. 24 

DftTfi43,24. 44,23,43,23. 46,23.47,23,4?, 23. 49. 23, 30.:: ?7.:" 

DflTft96,27,93,2-.^.:6.??.:0.::.26.?:.::-.''3^-,f ; ?.23,83.23 

DflTfl97. 24, 96. 24, 33.24. 94, 24. F3, Z*. ?2 23,^1. ZZ.-? .".' 

DATA79,23,77,23,1?7, 23. 136.23, 183. 22, 184,22, 183. 21. 102.21 

DfiTAI01,21. 100.20.99.20.99,20.97,19.96. :?.?5.!3 ^4 •? 

DATft93, 19, 92, 19, 91,: = . 30. ;■:.:-'.:."?.::." 1 7.-^.17.93. :7 

DftTAe4,17.93,16,62,I6,91.16,80.16.7?,16.7n. :l : :- .- :,: ;r. 

FOP2-73T032STEP-1 SETC, I3)'NEXT2 

F0RZ.76T031S-EP-: SET<Z,22>'(CKTZ 

RETURN 

F0R0-1.37T04.71STEP8.82 

X-C03CC)t43'Y.SIWC)*]3 

3ET(93*X.19*V) 

X-83*X'Y-]9*Y 

NEXT 

RETURN 

FORJM6T077 ■ 3ET< X, 10 •>■ HEXTX 

FOFX-19TO92SET;x.30VNEXTX 

W36-I9M 39-19) 

FORY.18TO30 

X-36-INKZKY-l?)^ ?ETV.y)NEXTY 

W 76-82 V< 30-10) 

FQRY-10TO30 

X-7S-INKZ»<Y-I0))-SET^X.V) NEXTy 

RETURN 



\ FCRN»0T023 'ET(X,Y)'X«X*l'V-Y*liHEXTN 

I RETURN 

5 FORC-0TO6.29STEP8.02 

" >:-CGSCC)'43 .>::n<c»i3 

- -^T<63**.ie»Y> 

? X-60*X Y-19+Y 

» NEXT 

1 RETURN 

! F0PX-33T070SET^X,!3>'NEX T X 

3 FMXM0T077 , SET<X,«)'HEJa 

, r-.->..i-7-, 7t j ;ET-;;<,3!>>HtXT 

; FORX-40T0778TEP2'SET(X J 24)"»«XT 

5 FORV-lSTOSl'SET^S.VJNEXT 

7 F0PY-13TO31 3EK70/O MEXT 

5 FOPV-6T024rEP2 :E*-:40,Y).MEXT 

i F0RV-CT024SET<77,/)NEXT 

5 R-40 ■9-6C-77D-6'E-77'F.,-:4>40 H-24 

1 F0RS«1T07 

: S6T<A,B) SET(C,0)-!€T(S r~> S6KCM) 

; fl.P-1 G-B-! C-C-I D-DM'E-E-rF-FM'C-C-1 

< NEXT? 

5 RETURN 

E FORX-23TO10O 3ET:y,6> HEXTX 

7 F0RX-19T093 S£T(>;,:3>NEXTX 
^ F0PX-I9T093'SET^x,31)'NEXTX 

3 FORx-23T0lOOSTEP2S£T(X,24>NEXTX 

8 F0RY-13T031 ■ SE" 19 ■ < v "EX TV 
! f09'!*I3T03! SET<3?,V)'NC«TV 

j FORY"iT0248TEP2'«ET(25,V)'NEXTY 
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TANDY TRS 80 



AVION-ESPION 



Toutes les regies et explications sont donnees dans le 
programme, entre les lignes 1500 et 3000. Si vous ne 
voulez pas les taper, il faut egalement supprimer les 
lignes 35 a 64. En resume, vous etes a bord dun 
avion qui doit prendre des photos aeriennens d'une 
base ennemie. Mats, vous etes poursuivi par un missile 
SOL-AIR. Vous devez done ruser pour revenir a votre 
base avec les photos. Vous vous deplacez a I'aide des 
touches numeriques 1 a 9. 



;..- .:■:. i-rr-TIBLE REC 

lite rcc U-3 ro IN 'CXI u 

. ■ ■ ; 

-' :•! :>'!21»</lt3>>>,- 
1203 -.-;■; 

re :: 

121! ■£■■.:- ..-■ • 



;:;o • 



'. TO 21 



J CLS 



Marc GRANCOIN 



:o:.? - 



: l -t 



nim mecwmi avion esrion ••>• 

30 POINT POINT 

33 «•" 

II RIHT ■WLBZ-VOUS LES REGLCS K JEU M 

« if «--o" or Of ou:- then isw 

;: |F :**-«■ OR Of -NON" then 5$ 

>'« POINT -pardon !■ GOTO 49 

SB PEN INITIALISATION 

6? point c«e 

ro input-ni'-eau re MFFiolte (I a i.?>-jD 

73 IF O<-0 OR DM.3 POINT -SOYES RA1S0MMA8U ...■ GO 

90 X2-3 T?-3 

Ift) ntINT*OUELLE! ' ' 3HRKKCE3 DE PEPflHT?' 

lie iw-»- .;• 

120 :*vt-v.- a 

i?e if ;t-e co :i-io or 22-e or zz-i<j then 130 

140 POINT "SUR LE SORO OU CftRRE . S.V.P. ■ GOTO 180 
IS* M"Z1 YI-Z2 

iso gcsie we 

165 RESET ^y;ts.'*43. m*3> *3> 

170 GCSU8 300 

190 CCSU8 200 

130 GOTO 590 

200 OEM DEPLACE*ENT W MISSILE 

210 S0Mtl-X2 DV-YJ-YJ 

220 n i» B IH (6H2>KPVt2» 

225 IF ATKO THEN (WO 

230 RX-iiyflri MDK 

240 ay-' :>.-«« >tr*Y 

230 xS-x2*«t'Y2*Y2*flv 

253 P-P0INT^v2T6>43,':r2t3>*3) 

260 RETURN 

300 REM AFFICHRGE DU MISSILE 

310 SET<43*<x2f6'.3-<Y2t3>) 

315 IF POINT' 43*CX]»6).3*<y:*3»— 1 THEN 1200 

320 FOR G-t TO 13 

323 vf INKEVt IF Yf "l" OR YO--2- OR V»"*3" OR Yf "4" OR Tflf-fi" OR Y»'T* OR V 

t--o- or vt--3- then 510 

327- NEXT G 

330 R£$£T(<Y2t6>*43,3*CY2t3)> 

340 RETURN 

400 R£K SFFICHRCE D€ L'RVION 

411 RESET «NXt6>*43, <NYt3H3) 

420 IFXI02I OR vi<>22 T>4EN SET <(*l*6>*43,mt3>*3) ELSE PfiINTeC33KZl*3><Z2»6 

4 )).*#-. 

423 IF tot-ri AND NY-Z2 THE" 4800 

427 IF NX-3 ANC ny-3 THEN PRINT t332.-BRRVC . WIS II RESTE LE RETOUR - HE' US' 

HE" ELSE PRINT 8032.' 

*30 RET'jRN 

330 REM ANALYSE K 0EPLPCE7CNT 

£00 vt-INTFt IF Yf "I* OR Yf "2" OR Yf "3" OR Yf "4 r OR Yf "6" CR Y*""7" OR Y*- 

•3* OR Yf -3" TWIN 619 

S04 G0SU8 30C 

687 GOTO 690 

610 IF P-0 THEN 0E3ETC<X2«6>^3.(Y213>-3> ELSE -£V.'.y-rr.>*. s;.'Y3»?>*3> 

615 IF v».-;- OR yf -4" QB vf V THEN MMCM 

620 IF i«--3- OR <f 5- 0» Yf-9" THEN NX-Xl-1 

623 IF YS-'S" OR Yf -2" THEN HX-K1 

630 IF r»--7- OP Y»--S - OR 'ft-'?' THEH Hi'-Yl-I 

633 IF ft'-*- CR Y»--6- THEN MY-YI 

640 IF Kita-1- OR YO—2- OR Y0--3- TMEN NV-Yl.l 

645 IF NK<0 0» WOM OR HY<« 0^ w^-io THEN 1133 

530 GOTLE 400 



E4fl ;- . ■ ' i.e.-.t 
I23B PRIKT Wa.'LE MISSILE ■ 
1250 PRIMT 8334. "ft vftiNCU l|ll*i 
12» PRINT HI! ■;.: ?e:e: DiCORE", 
■ " :'■'■: fi TITPE'l 

1258 JOINT a542.-=0STHUME H|-i 

1300 PRIHT B3a,*VOJlf2-V0US TE.-TEP fl H3UVEAU VOIRE ESPRIT 

TPCTICIEN CCWD ",'tNr.r ro 
1328 IF TfO' THEN 13 
1330 IF T *-"r THEN 1343 
1340 PRINT 'PARDON ' I«PUT Ts C-CIC <3ZQ 

PRIKTCMRt;23J 
."■-•" '?:■■-< ■t:-r-i,zi ■ ■.;..■:■ rvez eien joue .-■print 
:?:0 "=!'.- H ftj RE^'OIR .* 
IjCT p SINT PPp,- =OINT POINT PRIKI EW 
:::c ".ivr ";.- 

'.--00 -■:>:" CE-'JIS PEiJ. Lfi PUISSANCE CQNTOf. LfWtELLE VOIRE PftTS E c -T EN C"£BR 

E ri ; .:~:: St* LE Watfj ;-: >-£-r-;. :n : c . € t imtpllrticihs C€ defense fERIENNE t 
•:■•::.:■:■.- --icsce; ;j; interheent l«- 

;-?c print -pese"s-::m :e: p^rj^::-- ;-•-..: .:-, prstrETRE tres i.iPOfTflNT. des o 
.■ ■-■■ ■■■■:■:■!! -c<.z--z :^: cette :one, il est pe=e=; p. 3 = le l-i^p^'it;f spwo re l 
i ef'z a -.-;"-":t'.-: :t .h -"sile a- 
;:co ^:-i* ■ "T ^eoc-cjse tppi dans lw silckcoordownee? x-5,v-3) e?t russ 

HOT LRNCE £f 'r^ TE C , E LE reiF^IPE. .'-:tpe ni'.SION, 31 VOiJS L'flCCEPIEZ, CONSISTS 
* :,'PvaER .'LN DE CES NCWEftUX- 
2000 PPINT-OISPOSITIFS fiNTin::;^; p-;ijp LE F-OTC-^RFHIEP A ffl^SE ALTITUDE ET A 
^■■-■" :■■•■:■'■.; .i ,0"E 5HSE AVEC LES PWDTOS. FEWANT TCUTE LA D-iPEE K CET 

T ' OPERATION, LE MISSILE SERA fi VOTRE' 



2048 PRIM! "POL.R CONTlNijEP . TWE2 C ." 

20:3 ft*"INKEY« ■ IF ftl-'C* THEN 29« Tl c E 2033 

2060 PRINT 

::?o "-:it'--'.:p-v;te. ^ais voire avion-espion est eouipe D'ijn radao de soro 

01.1 1 VO'JS DCWEPfl AV£C IJHE E.-:E.LE!.Tr r:r, ::srcs La POSITION DU MISSILE. 

plij: cet- p;r:Tic,( SE pafprcche- 

2;C0 POINT'OE CELLE DE VOTRE AVION, PLUS VOUS ETES MENACE. SI LES DEUX POSH 

:cj: ?':■■'* "-ic'e^nt :cE.iir:uES,c-E$T o<x le missile vous a rejoint (Cehon 

STPRTICiN OU THEOPErtE DE LA PALISSE).' 

2300 PROffET PEBSOOC NE VERPA jAflAIS V03 PHOTOWAFHIES 0U DISPOSITIF ENNEM 

2330 PRINT ■ ft*-" 

2340 PRINT -POijR OONTINiJER , TPPEZ C ." 

;:■:? ro-inkeyi if bo-'C" i>Cf 2;ea else 2330 

2T-.'0 PRIHT 




6«e > 

670 vt-'C 

s?e wsue 2oe 

690 GOSU03M GOTO 330 

9W m T»«C«e DU TRBLEA-J 

310 CLS 

320 FOR y-3 70 3 



m t 



183 



340 SET (JC.Y 

898 «XT X,Y 

868 FOR Z-43 TO 183 STEP 6 

878 FOR v-3 TO 33 

888 SET '.X.ty 

890 >4EXT r,X 

•00 P-O '-C 

•18 FOR U-8 t: 13 

J20 PRINT *28**>,P. 

yx F-P«l ^-»(*3 NEXT y 

5<t R-#- K^ 

958J PC* 2-8 TO 18 

900 RKIKT f C«t4K),Pi 

978 K«**«4 Fh^«i 

988 NOT 2 

998 RETURN 



-4C3 FPIMT-yCTPE AVION ESPION DE KPLACE O'UNE CASE A SA VOISINE SELOH L'AXE 

IES X CJ L a e ?E- i. GO' 3IEN ENCORE EH OIACONRLE.fl TOUT nONENT VOiJS RVE2 DCw; 
LE CHOIX ENTRE HWT DIRECTION PC* S ! PLE' . - 

;S=?: P^IVT-.a r: ? *£ ::; ■/c;S OECO'-LET EST SITUEE SUR LE BORO DU FtRlNETRE INTER 

DIT -_'L*E AU MOIHS DE SES COOROONNEES EST 06UWT01RENENT OU 

10. C'E" SUR CE'TE MEnE PISTE 8UE' 

2500 PPINT VC«.: C-E-.E2 REVENIR VCJS Pt'^= AP:f3 AVOIR SURVOLE LA WSE ENNEB 

ie.j^s it. ,-:-.;; ovi; DECILE, VC'J? etes repere et le missile vous preno EN 

CHASSE-' 

2638 A0-- ' 

2648 point 

2630 PRINT -Pa* Zis-wZZ ■ TA=E2 C .' 

2W3 Rt^:«<cv» ■ !=■ fl^-O- THEN 2700 aSE 2668 

2700 PRINT 

2«0 ?PINT TCK DC C€F'i.ACE*iCV T '- 

2908 p^;h- TflftC'-MCEr", TA?-;;; -POUR ALLER AU" 
i TRe(23> 'SUCHXEST- 

■ TftK25) -500' 
I Tap;25> "SVt-ESi- 

■ Ttoizsy -o-^st- 

TRK23) -EST- 

I ■MRD-OtWT' 
i TR3<;:> -J3RC." 
TnB<2:> -MORD-EST- 



«KT Tfl?';-.- 
2320 f*int TReX2)"2*.' 
2930 POINT ♦flfX2>-3"i 
23*0 = RI ; '" """ 

2?T3 print rmirp] 

2350 FPrNT T«<2 )'?-.. 



;?50 e PIs.T TRK8>*3' 
3000 FRINTGOTO 6= 

40M REM *rrvs> A ^ E*>a: 

4010 IFF0IHT(73,I3;— 1T^-E?M30C 
4P20 PRIVT8S4i *E3PECE CE '• 
■030 "■I , i T !:2S."- r :C^F;.'»"~, 
4Rj(? ro:^T?;32,-rr LES P"9Ti^ -■ 

4030 po;nt3?2':. " ;.- ■:■: t: 



CINEMA 



170 F*C3>--DEVIME2" 

ISO F»<5>*" 10 

1?0 F»<7>-"TITR£S " 

28* Ff!9>" DE 

210 F*<10)-FC« 

22« Ft(U>CHR8<128>*LEFTt<F0«,3) 

239 F«12)-CW»<(ie«J>*UF'T8<FE«,3) 

, 248 F*<13>-L,EFT«:FBt,3)+CHRt( 126> 

238 Ftf 14)-CHRt( 143J*LEFT*<FF«,3) 



: ■:: -■ ma 




<1M Pt-.Jt.-r i ;t^,- 



4163 PRINTH92,- •, 

4173 FRINT0328,- ■, 

4198 PRINTI334," 

4198 PRINTI449,- -, 

4260 PRIHTI312.- 

4210 PRINTt376,' 

4220 PRINTI640. 

4238 PRinree32." 

4233 Y»-- ■ 

4273 XI -NX Yl-NY 

4300 GOTO 390 

4300 REM EN CAS OE REUSSITE 

4313 PRINT 63, "BRAVO ' VOYONS'* 

4320 PBINT954,-vCS PHOTOS <*i 

4330 FOR X-3 TO 33 SET;x.5J SEH-,2? MEXI 

4340 FOR Y-6 TO 2? :•T'^■- , •"'?;. .-■.;■• 

4343 for f-o to 300 ma 

4330 R-RNtXlO) 

4369 on r goto 45M, 4732. 4732. 4?w, 43oc. *{:\^;: :,'{: r- 
4688 FOR F-9 TO 300 NEXT 

4619 POINT 8643. "VOUS ETES UN'j 

4620 PRINT 1704," flSRUTI !', 

4649 PRINT 8753. 'OURHO ON POENT> !.'■.'€ : -r: '■--.-.- ■ •>•*?•" 

4630 point 3?j:.- :_■- :z,-z: mmc repaotio po^s umt NC/vEtLt -:■-;*-- 

4663 PRINT f?63.-LCR?:uE WJl UEl r =E' WPE2 I 

4573 en-"" 

4S88 Dt-JNKFrt'IF DtO"D' THEN 46S0 

4630 CLS GOTO 40 

4788 ER-cwswisi >»CHRt< iji >*ch?i::j: ■■-:-!:*: i?:>«chri '. ; : •:--; I?! -:-■■ 
=■*'. i?'.;-:.-^' 13! >+:***■. :?: -.*'.■•**■: ir-: v:-r»: :si s -c-**-: :?: ■:-■: ::. •:-': 

Rtf 191 }*CHO»( !9I ) 

4701 REURN 

4702 Ft-C^f*'. 143. -C-Ri-: 1*3 >-;«=••; <43 >CHR»';i43>CNP* l*:.'-;--i. -.-~ - 
r<ci43)»chr*xi43)*cmr»<i42>*C"-j:m3-.:--)' !43'-c--j ■;■•:■ •:-** ■ : *chri ksmm 
P« 142>*CHR«(1«3? 

4703 PRINT ?37S-Pf;F«-'- GOSJje 47C0 

4713 PRINT ei2?,E».?!?2 E» 3236 Et ?:;■> El 13:' Zt ?-"S. E«.fi3i2,Et 

4715 Et-"" 

472C p?:i.- 5542.-SUPEXP0SEES Ml", 

4730 PRINT 8763, -V0S C^EFS VOUS reMANOANT GENTlreNT < C r-r y, -;■ _- r-.- 

D'EXECUTIO" ' 1 X JEPRRTIR , '.WS DECIDE: LISTEN: CE LEif FR;RE PyiiSl 



. tape; D-. 



4748 PRINT 8969, "LORSOlE VO'JS ETES P=ET . 

4750 DO*" 

4733 DOINKEi't-IF &»f>-p- TMEN 4630 

4760 as -GOTO 40 

4800 FOR F-450 TO 462 STEP 3 

4810 POINT F»O8tfU70>*Ct8t8(14» CRIK tF««4.CMtR(I35>4O8t0<l39)i NEXT 

4920 FOR E-321 TO 333 STEP 2 

4038 PRINT *E,CHR*:i60>*CHR«<I63> UtSl 

4040 FOR H-237 TO 271 

4030 POINT 3N,CHR»<123)j NEXT 

4869 PRINT 8643. -PAS nAL I'j 

49-9 PRINT 8753, "LES AUTORITES SUPERIEURES SOMT CCWTFNTE? DE VOUS ET ¥0 ■" 

POOPOSENT LA HEME MISSION , WIS PCJR t*E AUTRE BASE ENNENtE ,*1 
4S33 PRINT 8960. "SI VOUS L'ACCEPTE2 . TAPEZ D SiNOH TAPE2 3 .". 
4398 DO--" 

4900 DR-IhKEYS IF 0O.-0- THEN 4910 
4303 IF0O--S" THEN 4928 
4903 GOTO 4900 
4918 aS'COTO 48 
4920 CLS'POINT CHRK23) 

4938 POINT -AU REVOIR ■ 

4340 PRINT PRINT PRINT POINT'POInT 'PRINT PRINT PRINT 'POINT 
4938 ENO 



PREWRE DE! ". S 



5810 PRINT8264. -y, 3325, -ft - . 9392. "3" . 8436, "S" j 

3«20 PRINTK4:,''^RFAITES I ! M ", 

3038 PRINT8832.'APRE3 CE COUP D'ECLAT VOUS AVE2 LE CROI 

CU DE RECCWENCER lll'j 

3040 POINT8950.-POUR bNE NOUVELLE NWSIOH . TftPE7 R SIMON 

3843 0*-" 

3830 Dt-lNKEY*IF04j<>-R-AN0Of:>'S"TNEN5039 

5860 IFM--R-TUEN49I8ELSE4920 

3200 GCSU8330O 

■;8328,-A-j8392. H S->e456. 'P' 

."CJILLE ", 

IL-ELLE GVFE 

.-VOUS VOUS ETES TROnPE DE CAP C'ETAIT i.+€ 



I RRINT8264,- 
3228 P0INT8643,- 
3230 PPINTJ704, - 

3240 POINT8832. 



3230 PRINT8S9G.- 



r. r . nOVEN OS VOUS RBCHETE? E3T C€ REIJ33IR UNE ALTRE f 



5255 Of" 

32*8 PRINT8963.-L0R3WE VOJ? TES wrE' A R 

3270 04)-l*^v« :^«)<>'?'' T >'E'-T270CLSE49IO 

5300 PRINT8980,"j'F>» 

3308 FORO^TOatNtXT 

5313 SET(I5.I0)'SET<i;,li)SE'":iT-24> 

3520 F0RY-22T027 3-K2C YI NEXT 

3330 F0RY-37024'SET<17.Y>mEXT 

3340 F0RY-24T027SCT(I2,Y)'NEXT 

35St tntt0,24). SETHIS, :?> 'E^ie.ID 

3360 F0RY-:iT023'S£-U4,V)NEKT 

5573 FCRY^4T027SET<2:,Y>.NEXT 

17^8 F0»Y-«TO24'3ET<I6,YJ.NEXT 

3390 rORyilT023'3ET{l9.Y).reXT 

3488 FCRY-22T027SETC3.'ONEXT 

5610 RESn<16,U)RESET(17,ll) 

3S28 RETUON 



TANDY TRS 80 



■LEFT*<rB8,3> 
■CHRt(191> 
■LEFT«CFB«,3) 
■CNIW< l»l ) 



Votre TRS 80 vous fait du cinema! Decouvrez le trtre ** KJ !2*2*KL 1 2^*X™*!!f^2 ,, 

, _, ,. . _ . .. H 278 F»< 1« )-LEFT«( FCS , 2 )*l.EFTt< FF«, 3 )*LEFTt< FCf , 2 ! 

du film propose par votre ordmatetir. Des indications ?_w *,, :7>-c»«tM^>— cwimw)»cnhm7«>.or« 131 

vous soront donnees sous forme d'animatjon graphique 

pour vous orienter. 

Le mode demptoi est dans te programme. 



Philippe HENRY 



44} ' RER-RERONSE WJ JOUE'JR 

*1 ' R1«C J-TITRE DU FILM 

42 ' PO-POINTS W JCKJEUR 

43 ' M-MOTIBRE DE FILrt3 

44 * LER-R01NTS REPERES 

43 • PQijR PJO'JTER DES TITRE8 0€ FILMS. nOOIFIER LES LICJIE3 6 
184J ET 3*90 ET CONTIf»UEP P 311 ET HOW 

49 ■ itittmitt>iutitmiftttmi»Mi?»n(titii»t)Mnit 
30 CLS ■ CLERP 4890 



>*CHRR( |7«>+CMR8< 18fl>«<MRR< 128 

25*8 Ft<18)-CMR8(148)*LEFTR<FE«,3>*CHRt<148) 

38« Ft<l?)-CHR4< 17«>»LEFTR'.F0«,3)4C*4RR<131 ) 

303 PP1NT83NW, 

310 FOR 1-4 TO 8 STEP 2 i R0X I )-FCt i NEXT I 

313 WSL8) 884) 

320 FOR 1—20 TO 58 ' OCRlLEKHT 

338 RRIHTTR8K24JRlii 

348 IR I>2 «HD I<2« RRINTFt(I)j ELSE IF 1^2-IHTt 

1^2 > RRINTFCRi ELSE RRINTRnt , 

3<0 PRINTF1 t, 

LO-LONCUeUR DE LA REPQMSE ^2 IF I>-4 RW K-10 IF I^2-lNTft'2> GOSL* 

R2R< )-«»ERi.IS«TCUR 3« 4 I p 1-29 COSUB 818 

R1»T0T«L DES POINTS ?*' ^ K28 CO-SUB 828 

C-COMPTEUP 2^0 PRINT 

370 NEXT I 

4«8 FOR I 



AVEZ FAIT LPfE ERREUR." 

436 PRINT- LE PBOOMlUB OEPfCCEPA PVEC LINE INDICATION ?UPPLErENT«IFt. ' 

437 GOSUP 010 
436 PRINT 

459 PRINT" 3EL0N LE CBS. '."NE BONNE RE e nnSE VfViT 2 "muTS W 1 POINT." 
4«e B08U8 310 

411 PRINT ■ PRINT 1 PRINT 1 

462 PRINT- POUR EN SPVOIR 

463 G0SU3 830 
4?4 CLS PRINT 
455 PRINT-POUR REPOMORE ■" 

466 GOSUP CO0 

467 POINT- ftTTEMDEZ LE < ' 
4€8 G03UP i»10 
453 PRINT 

470 PRINT" 

471 PRINT" 

472 COSUB 010 

73 PRINT 

74 PPINT- 
^73 PRINT" 

476 GOSUB 810 

477 PRINT 

473 POINT" 
17? PRI'IT" 

4M SOSUfl 810 



EN Pfts; DE L'tCRRN. ' 



481 ' 



(INT 



*m 



PR IN' 



PINT 



FIN DE LP. 



FPBRICPTION 



• 1 > 1 1 •> ■ 



PELLICULE 

4lfl pep-d Ri«<I ),R2*< t> 

DES TABLEAU* 
78 Din Ft(20J,RU<:i01.R2*<10) 420 NEXT I 

99 ' 8 801 88 nam TITRE .uttH.M.-.i-.^.ni.itti..,!.,.,,,.,. ,4 5 -»*ttt**f»* presentrtiom 1 

108 Ffl«-STRING»C7.CHR«(1Z8>) 450 GOS'.'P 339 

119 FBf-STP IHGf 6. ™»t( 19D) 431 CLS ' PPItlT POINT 

120 FCR-«TRinM'7,CHRf<i48)> 4 ' 2 PRIt'T" CHAQUR TITRE DE FILM SEPR 5UCGERE 
138 FDi-5TRINi;f<3;.CHR«<i?9)) pqp 'J" COijPT Ppowrmme . " 

140 FE«-STRING«(7,CHR«(143)> a 33 SOSUfl ""^ 

130 FF|-ST0IHCt r iS.CHO*r 103)) 434 PPIriT 1 POINT 

1*0 Fl«-CNP«(191)*LEFT«<FDR,2>*CHRt( 131) "33 PRINT" ^1 i/OUa HE TRQi r-IZZ PH3 OU SI VOUS 



POINT" 
403 PRINT" 
434 SOtUB P.10 



RLORS TAPEZ LA TOUCHE 



499 't*tt*ti 

300 FOR 1-1 
SI8 CLS 



t*» OCUCLE PRINCIPRLE ' 



Suite psgo 36 



TANDY TRS 80 



MEMOTEST 



. L1STE DES 



Combien parmi nous peuventils se vanter d'avoir une 
memoire infaillible ? Tres peu, sans doute. Mais nom- 
breux sont ceux qui. au contraire. se plaignent de 
n'avoir AUCUNE memoire. On distingue generalemenl 
chez I'etre humain deux sortes de memoires: la me- 
moire immediate et la memoire a long terme. Selon 
Roger MEETHAM, la premiere apparait dans notre ap- 



titude a repeter une suite de chiffre des la premiere 
audition, la longueur de cette suite etant la meme pour 
chacun d'entre nous. Laissant de cote la memoire a 
long terme, nous ne nous occuperons aujourd'hui que 
de la memoire immediate, et nous allons essayer de la 

Francis LERMENIER 



N3n$ DES JM£<.*5 . t 

scores bes xx&ms • 

COnPTEUR OE f«»OCS ■ 

1HTI7U.ES DCS n»0«S. LUS EH E«Tft ("*-».;,-» I 

»«r<h#"*. "drut'.f* M«dW*'r"la S*'l»"> t 

wre?E K w.rtvts ca^--*.^ i*ns l* sesf.oce • 

SUITE DE OUFFKS PROPOSES PRR L'CN&IWTP.W • 

CHIFFRE HXWZ « L« ZZOJUCS. PflR L'C^IHPTf.o. * 

RPRES U>€ REPtNSE EXRCTE • 

KPCNSE DU JOLfW • 

VflfilflGLES SERVWT DRNS LES SOjCUS OE TEMPO* IS ' • 



Ce programme n'est qu'un jeu, 
d'sons-le lout de suite. L'ordma- 
teur va 'aire apparaitre a I'ecran 
une suite de chitfres: d'abord 1, 
puis deux, puis ttois, etc... jus- 
qu'a trente. Apres cfiaque appa- 
a sequence ne reslera vi- 
sible que quelques secondes. II 
faudra bien vite vous ta mettre 
en tele, puis la repeter a lordi- 
nateur. Si vous ne vous eles 
pas trompe, vous marquerez au- 
tanl de points qu'il y avail de 
chiffres dans la sequence, el 
I'ofdmaleur vous reproposera la 
meme suite, mais avec un chif- 
fre de plus. 

Cet exercice est plus simple que 
celui evoque par R. MEETHAM. 
puisque seul le dernier chiffre 
vous sera tout a fait etranger, et 
vous devriez pouvoir recompo- 
ser une sequence de huit a 
douze chiffres sans trop de pro- 
biemes. Mais au deia, ii vous 
faudra sans doute un peu d'en- 
Iramement. Et comme aucun jeu 
n'est totalement innocent, vous 
vous surprendrez bien vite a 
cbercher des trues comme: 
grouper les chiffres par trois ou 
quatre, detecter les chiffres re- 
marquables par teur frequence 
ou leur absence.. .Bref. vous 
vous initierez (si ce n'est deja 
fait) a la mnemoteebme. comme 
monsieur JOURDAIN faisan! tie 
la prose.. .Tout naturellement! Et 
st. a la fin de la partie, vous 



n'avez pas vraiment le senti- 
ment d'avoir ameliore voire me- 
moire. j'ose esperer loutefois, 
que vous aurez passe un bon 
moment. 

Encore un mot, aucune des per- 
sonnes auxquelles j'ai propose 
ce petit |eu n'a pu recomposer 
une suite de (rente chiffres. 
Peut-etre y arriverez-vous? 



IB CLEAR 2BB : CLS : PRINT CHR* I 

2B PRINT 3 472. "nEMOTEST" 

3B PRINT a 4B4. STRING* ri2. 131) 




PRINT 3 5J6. CMR* <:.»> : : GOSUB 
: INPUT X* 1 PRINT 3 576. STRING* 



1) 



i) : RANDOM 

: PRINT 3 532. STRING* 
POKE X. 191 : POKE X ♦ 



GOTO 470 



: INPUT J 



48 FOR X = 15764 TO 15B2S STEP 64 

91 : NEXT 

5B PRINT 3 9BB. "JE VOUS EXPLIQUE LE JEU " ! 

E8 INPUT X* : IF LEFT* (X*. 1) = "0" THEN 90 

7B IF LEFT* tX», I) * "M" THEN IBB 

SB PRINT 3 9GB. " 1DUI OU NON) " ! : GOTO E.0 

9B PRINT 3 9EB. " RLLDNS-Y. " : GOSUB 540 

IBB PRINT 3 98B. " FRIHEUR ' ' ■■ : GOSUB 540 

11B CLS : PRINT CHR* (23) 

120 PRINT 3 12E. "Combien etes-voua (I a 4>" 

GOTO 130. 140. 140. l&B • GOTO 12B 

13B PRINT 3 256. "Voire nom : " ; : INPUT N*<1) : GOTO 1S0 

148 PRINT 3 256. "Vos nows :" 

15B FOR N = i TO J : INPUT N*fN> t NEXT 

1E8 PRINT 3 594. "mere." : GOSUB SAB 

170 FDR N = I TO J =S(N) - B : NEXT 

180 CLS : PRINT CHR* (23) : PRINT 3 0. N*(l) : PRINTS 32. I 

: PRINT 3 B32, N*C3> : PRINT a E64. N*<4> 

190 FOR X = 32B TO 768 STEP 128 : PRINT S X. STRING* (32. 1 

: NEXT 

2BB FOR M = 1 TO 3 : PRINT 3 272. CHR* <30! 

NT 3 272. M»<M) I = GOSUB 54B : COSUB 348 

21 B FOR N = 1 TO J 

220 J* = "" = PRINT 3 272. CHR* C30) : : PRINT 3 

23B PRINT 3 272. N»(N) i ■ JOUE" I 

240 FOR C - 1 TO 36 

230 Jl* = CHR* I. RND ( 10 ) * 47 ) 



12. 13 

22. I 



260 J* = J* * Jl* 

27B PRINT 3 3S4. J* : 

280 PRINT 3 660. CHR* (30: 

550 

29B IF C I) 1 THEN 310 

300 PRINT 3 536. "ON V VO 

(32.131) l 

31B PRINT 3 384. STRING* <C.!91> : 

32B PRINT 3 S3E. CHR* < 30) : i PRINT 3 536. "ft VOUS •* : 

330 PRINT 3 64B. i : INPUT J2« : PRINT 3 784. STRING* • 

348 IF J2» - J* THEN PRINT 3 536. "GOGNE "" I i COSUB 418 I COS 

UB 540 : GOTO 360 

358 IF J2* <) J* THEN PRINT 3 536. "PERDU '■" ; : PRINT 3 384. J 

* I : GOSUB 54B ; GOTO 37B 

360 NEXT C 

37B NEXT N 

38B NEXT M 

390 PRINT 3 272. CHR* <3B) I : PRINT 3 272. I I INPUT "UNE AUTRE 

PORTIE " ! X* : RESTORE : IF LEFT* IX*.l) - "0" THEN 178 
4BB CLS : PRINT CHR* (23) : PRINT 3 4£4. "A LA PROCHAINE. " I GOS 
UB 540 : GOTO 57B 
410 SIN) = S<N) * C 
420 ON N GOTO 430. 44B- 450. 460 
438 PRINT 3 64. S*N> : RETURN 
448 PRINT 3 9E. S(N) = RETURN 
450 PRINT 3 E9S. S(N) : RETURN 
460 PRINT 3 928. S(N> : RETURN 
470 CL!5 
48B PRINT a 73. "MEMOTEST vous o*rmel d'*ntr*in*r vuUf "««o ( rf. 

49B PRINT 3 197, "Je s 
ne s?Qu«nce d^ on. d* 
5B0 PRINT 3 325- "Je < 

510 PRINT 3 453. "S. > 



520 



INT 3 581 



fre. S. vous t»n*; tuwno'm JBi 



READ M*(M) 
CHR* 



538 PRINT 3 777. "S. vous «t#t Prot"*)(a>. t»o#; " 

■ I I INPUT X : GOTO 118 

540 FOR T = 1 TO 500 I NEXT : RETURN 

550 Tl - C i IF Tl (4 THEN Tl • 4 

560 FOR T - 1 TO 208 « Tl : NEXT : RETURN 

578 CLS i END 

588 DflTO PREMIERE MONCHE. DEUX IEME MANCHE. L« BELLE 



GEOMETRIE 

Suite de !a page 34 



■ ■:--.:_- SEKlBB, n iie;<tv 
'■■A '---l' 3*5 :^:C? [=* E-25 F-2* >1S3 H-34 
41- FORS-1T07 

" 5ET(C.D) SET<E-F) TET'C.hv 

-■- B-B*l OC-1 D«&*1 E-E-! F»F*I C-C-J H«H+i 
- ! 
. ■ ■ 
Ml PP:NT?37, ■■ ■ PRIHTS193. " !" 'PRlHT«r247. " ' " 'PRWT831 1 , " I " 

■ ■ ■■.■-:. -i h" 

^21 PPINT?43?,"- PRIHrrjB3,-|" PR1HT«564,- — I" PRIHT8S03. "b" 

. «63 W3W3 K4«3'T<5)-37'T(6XlTC7i-i03'Kg;-r>?ij(l>-4'iX2) 
: -?: lK«>23'U<7>-25'UC8)^3'MCl>-ia3'HCr>-a9'ttC3)-51 lK4)-3 
■ ■: ■■-.: lK6>-!03 iKTJ^J'WflJ-a? 

■ -'£.-:: z-- ■--■:■ ;-4>«33 Z' 

. -: ■■■ 

-■ ,=427 

■ii men 

12- ,-vp ywvfl -"'■■■ ■ 

■ ■■-■:■:-:-. :~.-.'.r-: 
.... _ . ..__..... 

'-■■■"< 

■ 

..... 

-■ ■ -:..-.■■ 



■ 
■ 

l ■ ■ 
*4i FtWI-ITOW 



■ 

— - PRIHTtlt -■-■:.'-: ■ PRIKTWII. 1 

e503."'*'PRIHTt567-' 




■ . ■ ■ ■-..'■.■■■ 

; 

■ ■.;. 3Tero.o! 
....... _...,. ,. 

-: ■-• ■■:- 
i ■■■ . 
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CINEMA 



Suite de la page 35 



rjnsue 908 

PRIrlT51W-CHRt'2 - ?'>J I ■ 

GOS'JB 989 

C-2 ■ PI-P1*C L0"LEH(RH<1 ) 



368 IF C-l THEN P0t-"POIMT" ELZE P0»-' 

570 PRIHTr»770,CHP«'31>> GOS'J(?g00 

980 PRIHT" "j 

505 GOSUB 950 

590 FW jm\ TO LO 

600 PRIHTMIO»'LE«-J.l >^ 

610 G03Ue 920 

620 NEXT J 

629 PRINT 

638 INPUT REf 



6^5 IF RIGHT*<RE».l)-" " RT£*-LEFTJ(PE 

S40 IP RE«»R1*<I> PO-PO*C GOTO 71^ 

630 PRINTi!902*LO. "TTT" I 

6" COSUB 900 

660 IF C-2 C*l ■ GOTO 348 

670 PRINTi;83P.,CHR*''T'. )j 

639 F?R J-l TO LO 

650 PPINTMID*(Rlf( I >. J. 1 )j 

700 GOS'JB 920 

710 NEXT J 

713 GOSUB 300 

728 PPIHTS?0O*LO.R2fU>J 

725 GOSUB 800 

730 IF PO-1 OR PO-0 P0«-"POINT" ELSE POt-' 1 POINT'S" 

740 PRINT i PRINT" "jPO.FO*." 8UR"lPt( 

743 GOS'JB 300 

730 WEXT I 

760 CLS 

770 PRINTU436.CHP«r23> 1 "V0US RVEZ " : PO ■ " SUH "iPH 

780 GOTO 780 

799 '****t*i**t bOUCLES OE TEnPORISATICN tttrtrntttit 

000 FOR L"l TO 300 ' NEXT L ■ RETURN 

910 FOR L-l TO 1000 ■ NEXT t_ RETURN 

B20 FOR L-l TO ?.~ NEXT l RETURN 

330 Dl**INK£Vi 

grn 02«-INKEYt ■ IF 02«""*' GOTO 860 

970 IF RSC<D2»X>13 GOTO 860 

B90 RETURN 

npn 't***tt**t* TITRES OE FILMS («*Ttmi'titHftnt-r 

901 DRTPi -LES aUPTPE CENTS COUPS" - "DE FPRH".?!?. Twnrrfi'.iT- 

302 OPITR "UNE F.TOILE EST HEI'-'Oe CSOUSE CWKOR" 

on? URTP "LE TPfilli SIFFLEPfi TPOIS FOIS" . "DE FREI " ' 

904 DATS "LE MILLION", "OE RENE CLFUP" 

903 PflTP "PPHRENHEIT 431" . "OE FPPNCOIS TRUPFflUT" 
90« 0P T « "LES 39 MRRCHES"."D'RLFREO HITCHCOCK" 
907 OPITR "2" ."OE COSTfl-CflVRflS" 

905 ORTP "V0YO"."C]E PIERPE ETRTJ-'" 

■=09 PfiTP "CRI3 ET CHUCHOTEMENTS ,, , M [?E IUGMRP PEPGMP.N" 
?I0 ORTP "HUIT FT OEMI","DE FEDERICO ^ELLINI 
agg '«-******-ftf SOUS-PROGRAMMES FILMS I 
L000 IF r>| PRIHTIJ129. "PETIT C0M8EH 
"PlrlT't , .23,CHP*<3e) 
1010 BO*-" BOUM 
1828 FOR (1-1 TO 400 
1023 Hfi-PNC: [013) 
1030 PRINTffHFl.CC* I 

1040 l ir;vT n 

1043 C06U8 800 

1050 LE*-" " 

1050 RETURN 

I?99 ' 

2000 FOP M-: TO 23 

2010 WMINDOI9) 

2028 PPI HTQHP . CHF*( 42 ) j 

2030 NEXT M 

2033 GOSUB 310 

^gic) HP-PN0(319) 

?05Pi IF FFE"' 133« ( 3-'Hfi ,-a? GOTO ""4^ 

2060 IF C-2 COTO 2140 

2070 PRIMTB7M. "PTTEMTION i 

2fj73 COSUB 310 

20B0 FOR (1-1 TO 14 

2090 FPtHT1Mfi*«4.rMe*'rM ' 

2188 CO8U0 820 

ritn PRinTrjHp":.! CHAf(92>i 

2120 GOSUB 820 

2130 NEXT n 

2140 PRINTiTHO . CHPt'4.- i 



Le numero de la rentree 
sera en vente chez votre 
marchand habiluel le 31 
Aout, N Q 46, 8 francs. 



i co» 



918 



2150 LE*- 1 

2160 RETiJPM 

295? ■ 

3008 FOR M-5I2 T3 373 

..,-,,.- RB:NTV,CHRn 176) 

-,-r. RRIMTSM' 128, CWW 131 ) 

JC70 >kt>;t m 

M40 FOR n-577 TO ^3? ^-TEP 2 
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CINEMA 

Suite de la page 36 



Le numero de la rentree 
sera en vente chez votre 
marchand habitue! le 31 
Aout, N° 46, 8 francs. 



■ 



3278 

■ 
3999 

4020 
4933 



IF 0-1 100 PRINT0448, "CT, CE M'E^T PP e UHE Er>E' lE 

'-•■' 3C 

-7.-' 

■ 11-1 TO IB 
TRt-TM*CHR»< 191 I 

... 

m**TR**CHR*< 140] 

ni i • ■-■■ -CHR* 191 >*CMW< 191 ■• 

TR»*TRt*Tl**Ct«»(149>*Tlt*T«t*?ucf :7i\4--u«f< !0] ^ 
. --. L | _., , 

PRIWTt376, RIGHT* -p» ,nv 
■ 

NEXT M 
?I-0 
FOR |«4 ro S3-tEN<TR*> 

-- ...-_.,..,.,,-, ?|#«CHR*028>*TRJ ELSE Tit-r-MP.fr 1 49 }*TPi 

PRlNT*376+«,Tl#j 

IF FL'10"tHT{rV10; SI«SjM-| PRIKTS3] f?*269,"TiJUiJtJUT !!!"j 

FOR H-tE*KTR*> TO STEP -1 

-r H/2*>IHT<nx2) T1*-CHR«149>*TM ELSE Tlf-CH»C 12SHTM 

eRI««T«39 - ■ :rr,. --J n , 

, - .- .. 

»?,CWt049>j 

LE*-" " 



4«?3 

- •-■ h«>iaee to 999900 step 1*00 

D ^IKTfl257, -. 

PRIN""I!237. '1000000- 



OPUGE 



-:-• 



"" .-■■'■ 



3910 

-<•:■:• 

- 94 B 
3930 
5050 
3970 
5000 
5003 



nt-64 

- - .. -.,. ._. Cp p t , 13 j , 

r o» **»:ii to ?i5 s t ep m 

oc;hTI?W.CHR*(I7i3); 
^IHTStt^.CHRfXM*"); 
WEXT M 

FpB H^J70 -- - 82 

BfHHTSN.CHft*( 191>j 
PRIHTBH+fll CMP*' 191 > 

GOSUO 3*0 

FOR N-015 -0 2*? STEP 

PSIMT«M,CHR«< 17S) 

308U0 92a 

RRIKTVI.CMW ISO) 

GOSUB 820 

PRIKTWI,CHRt<19! ) 

WS«JE ":- 



PI 



3130 HEXT '• 

3133 G0SV9 800 

3140 °RIHTa244 J "234,S4" 

3143 GOSUB 080 
3'.30 PR r>lTS:(80, "Deepe- 
st 33 GOSUB 300 
3168 PRIKFR72. •CELSIUS"! 
3163 GOSUB 01? 

5160 IF Ol PRlN^SSTe. -"IBIS POUR LES 
FWGLO-SflXONS '"■ ' SOSUB P18 

9170 LE* = " '■ 

3100 RETURN 



-- 






IF 


"-; rs;.;-^-.-~ ■■ -- - 




T 


-,-j- TO ,g -~r _5? 


5028 




»-0 


5030 




p«p ••;,! r-i - 


■ 133 




a;.o--. 


6040 






KK 




: r ~- ■: ■ ■■■;->-*-■■ |7»3 p. ■ - 






_-. ..__,, „. .,_,. ,.__ _. 


r- ? 




'-'■•v:--' ;->• 




7020 IF M'74 OP ->31 f>2-H2'-3 ELSE R2"« 

7030 PRINT^PZ. TMit' M ) 

7833 GOSUB °2» 

. 7848 »C* T M 
a 70^3 COSUB 910 
■. 7C30 IF O! PfllKTVTM FAUT-Il VRPIHEMT 5 

7068 LEr-". '■ 
R£TURN 



vUbCMPI' 12SVCWP*' i?n>*C"»f '.-- ■ 
T2S-CWX 191 •-?>-'?'-■■ 191 --7^??' i?; - 
■T-I^CUPI' !20>*CHRW 1285*CHR*< 129) 



2C33 FOP MI- 



to : 



PRIHTBn*«4,Y2*j 
PRIKT9M>V1* 

GOSUB 020 

NEXT r 

if ni>3 R3-na*i28 

c i?P (1-070 T "2 "EP - 

PPIHT0R,V2» 

PRIKT0n*S4,Y3tj 
SCSI'S 820 
9110 NEXT M 

?:cc '-ext «: 

8123 SOSUB =00 

6130 IF C-l PPI^S^P.-E 1 ! PE^l 

CMO" -??■'.'? ??? 

"■-■•-!: LEt=" " 

8130 RETURM 



PRIMT0642 "CE m*esi w*; 



9?2C CHS-""?H':?F?~~T~-^r." u ~?"~" 

9010 ?9*=?Me»- :?] >""?•' 140HCHR«< 191 >*-Omc»' ■ 

9020 FOR H-I TO 20 

9030 Mfl-P,N[)C10IO> 

9048 Hl-PNT 1 : I0>+3 

?030 : c H=! H-0 PR1KTRHP .-.•?* CMt,Hl.Ml>; ELSE M- 

?033 GOSUB S20 

9030 NEXT H 

?C39 GO? 1 -'" 000 

90-SO IF Ol D PI« T ?='!3,C lJ, 'i'0; ^; - CE N'EST 

OV755 COSUB BOO 

9078 l_E»-" - 

3 i>o[> RETURN 



-_ -. ■ -■ ..-t.-. ■ ■ - 



OR 



lOPCO IF C=2 PRINTt312,' 
10080 Z~':<B <?0? 

10010 LE«-- 

18820 PETURM 



17 . 



r '. SE 



^lr ! Tfl-'; 



TANDY TRS 80 



HELP CITY 



Recueillez les pluies acides 
Help City. 



menacent la paisible 
Laurent POULAIN 



330 PH-BNDI0II41i|»:U-I:H'M5 

370 COLOR 2:PL0T B«,u 

380 COLOR O.'PLOT BN,U-I 

3O0 COLOR J:PLO> BN.U'l 

400 COLOR 0:f>LOT PIJ.U 

410 IF PEEK(332a?K >0 AND W>-34 I 

420 COIO 430 

430 COLOR OIPLOT bn,u>o:plot BM.L 

435 SOUND 1.0,0,0 



) IK-40 THEN 430 
i! POKE 532?B,0 



A'tendre un moment que le ta- 
bleau change. 

Une fois change, pressez 
START apres avoir lu les expli- 
cations. 

Votre but; altraper les meteori- 
tes qui descendent car sinon. ils 
detruisent le mur protecteur. 
Ceiui-ci etant perce. un seul me- 
teofe passant par ce trou suffit 
pour detruire la ville. Au bout de 
30 meleores attrapes. il y a un 
nouveau danger a surmonter: un 
meteore vert qui ne peut etre ar- 
rets que par vous et ne se 
con!en!era pas de detruire une 
brique du mur, mais une co- 
lonne et la ville. Pour altraper 
tous ces meteorites servez-vous 
des manetles pour guider Harry, 
le sympathique petit bonhomme 
qui porte un baquet, et servez- 
vous aussi de la "trajectoire 
courbe" (quand Harry disparait 
du cot6 gauche de lecran il 
reapparait du cote droit et vice- 
versa). Une fois la partie tormi- 
n6e, appuyer sur START pour 
rejouer. Bonne chancel 




GRAPHICS 2* 


6 












7 «6I *DES HETEOPE 


„ ATTAOU 


mi 






? «ei -vornc 


MISSION ES 


DE LES 


flRRFTCft 


CCIFUREI HE 


DETRL 


UNI 


LA 








IP PEEK(33!71i-a 












OOTO 23 














GRAPHICS 3* 
















immiiim 






G0S08 4000 














COLOR 1 














PLOI 0,4O:D 


BUTO 












COLOR 2 














PLOT 0,41 :D 














COLOR 3 














plot o,4z:d 


AUTO 


»», 42 










SC-0:P-O:A-O:81-0 


B2-0 










00-RHD10I»? 














IP A>-1 THEN 260 













OU' ILS NE TBANSPERCENT LE MUR ( 



140 COLOR i:PLOT 02. W2 



193 LOCATE 02.U2.V 



> IP WOO THEN COLOR 0:PLOT 02,U7-I:PLOT 02, UJ:! 
rl DOCOUM l.O.O.OIOOTO 130 

I IF P6EHI532321O0 AND WZJ-33 AMD U2<-3" THEN ! 
I OOTO 199 

i color o:plot o2,u?-i:pokc 53/70,0: sduno 1.72,1 
j,o,o,o:sc-sc-23:p-P'i 
1 caro 130 



I IP Bit IS THEN 760 
I COLOR I : PLOT Ol.ui 

1 color o:rlot oi,ui-i 

i LOCATE 01 ,UI,S 

I IP SOO THEN COLOR O:PL0 
ir ,■/:', n\inn i,o,o,o:coto 100 

I IF PEE*(33232)O0 AND UD-33 AND W|(-3» THEN 236 
I OOTO 23' 

> COLOR 0:PLOT 01, ui -i:pO"E 33270. OiSOUND 1 . 72, 1 2, 8:F0R ; 



iiplot oi.gnsouND 1 



10,11:' fir- ,'.--. 



260 COLOR liPLOr 
270 COLOR o:ploi 



I LOCATE OO.UO.X 

1 ip x<>o then color oiplot oo.uo-i:plot qo,uo:souni 

:t 2^:S0UND l,O,0,0:0OT0 70 

I IF PEEKI332321O0 AND WO>-33 AND gO(-19 fHCN 293 



10INEMT 7XIGOU 



I ZX-0 TO 101 



293 COLOR OIPLOT 00,uo-l:POKE 1 



790 It WO-fl- 



I, OISOUND 1 ,72, U.OJfOO 1 



460 U-U'2iH-H-l;p.( 
470 GOTO 140 
1900 POKE 34279,0 
1910 POKE 339,0 
1920 POKE 33277,0 
1930 POKE 332*8,0 
1170 POKE 704,0 
2000 FOR X-13 TO O 
2003 GRAPHICS 11 
2007 GETCOLOW 4,I,C 
7010 SOUND 1 ,?9,e,> 



i TO 20: NEXT 



L'l-.-tK 


->•*!* 


2090 




3000 




3003 




3007 






7 *AI ' SCORE: "ISC 




IF SO-RE THEN RE-3C 


3012 




3013 


7 HA] * r.eo'ij: "IRE 


to i ■"■■ 


IF PEEX(3327 , »l-6 THEN RESTORE IC. 


3017 


OOTO 3013 




B-PEEKI106I-40 


4010 


POKE 339,62 


4020 


POKE 3*279,11 


toza 


POKI 704.54 




POKE 33277,3 






■OM 


I-B»234>I074 


.,..•.'., 


FDR X-17S TO 190 


..,.■,. 


POME l»3l,T 












C-STICKI01 


4190 


lr c : > I l then 4720 


4193 


SOUND 1 , 77,3,0: r.otJND 1,0,0,0 




2-1-3 




POKE 33240,2 


4213 


IF Zt-33 THEN .'-770 


4220 




4223 


SOUND l,72,3,BiS0UNI> 1,0, 0,0 


4230 


I-H3 


4240 




4243 




■i :-..■, 




■i 100 




sooe 

3020 


GRAPHICS 7MA 


7 -*,-« .- 


3030 




(040 


7 "61 '• by •" 


3030 




3060 




31*0 


FO* IX-0 TO 200SNKXT IX 


3130 


OOTO 10 ■ 




ATARI 



37 



LABYRINTHE 



Ce programme, pour ATARI 800 
du theme classique du labyrinthe. 



est construit autour 



Philippe JACQUOT 

II propose deux versions du meme jeu: 

- L'une pour un joueuf solitaire ou il s'agit simplement de sorlir d'un 
labyrinthe dessine aleatoirement. ou entree el sortie sont egale- 
ment disposees au hasard, en un nombre minimum de coup, et en 
se deplacant a I aide du joystick. 

• L'autre. batie sur le meme schema, mats ou deux joueurs doivent 
devalise' pour arteindre la sortie te premier en prenant en compte 
le fait que si Ion s'approche juste a cote de son adversaire celui-ci 
peut nous croquer et I'emporter. 

■F- ••• PRESENTATION •»* 
101 GRAPHICS 7»14 

'OSItioh is, a: -1 »6, -labyritnthe- 
OR m-i TO 1000: NEXT M 
■CM im SELECTION »*• 

201 GRAPHICS O 

202 SETCOLOR 2,0,0 

203 CH0IX-I1CX-2 

204 POKE ^33, I : POSITION 2,8:-- 'CE PROGRAMME VOUS OFfre deux SERVI' 
203 POSITION 2,10:' -I/UN JEU POUR UNE PERSONNE" 

206 POSITION 2,12;7 "2/UN JEU A DEUX PERSONNES" 

207 POKE 332??. O 

208 FOB M-l TO 60:NEXT " 

209 POSITION 2,I3.--> "POUR OBTENIB L£ JEU "ICXI' PRESSE2 SELECT' 

210 POSITION P.!?:' "POUB COMNENCER LE JEU 'ICH01XI* PRES5EZ STAR 

211 IE PEEKI33279I-3 AND CHQIX-1 THEN CX-CHOl X : CHQ I X-2 ! SOTO 207 

212 IE PEEK 1332791 -3 AND CHOIX-2 THEN C»CHO I XI CHOIX- 1 : GOTO 207 

213 IF PEEK (332791-6 THEN GOTO 300 

214 GOTO 211 

300 PEN »•» INITIALISATION *•» 

301 DIM Xtll.YIH ,PTI1),»MI 

302 XtOi-ll:Yi0i -Int IRNDIOI »1 1 i»3-ll;PT(Oi-O:BI0i-2:N«O:PTUl-O 

303 TRQU-INT IRN0IO141 I >»3«I0 

304 DIM lM29.i2i:DIM h<28. 131 
303 IE CMOIX-1 THEN GOTO 400 

306 Xlll-11: ■'ll)-INT(RNOIO)*tl)*3«ll:Bll)-l:IF YI1K-Y10H3 AND Y 
N GOTO 306 

307 p-int(rnd(0i»2):n-i 

305 DIM At ]> : Aioi -10: AH > -91 
400 REN **• TRACE »»» 

402 SETCOLOR 2,0,0 

403 COLO* 2 

404 PLOT lO,10:0RAWTO 10,70:DRAUT0 1 30 . 70: DRAUTO ISO , 10: DRAUTO 10 

406 IE C-0 AND U<>2 THEN COLOR 0:PLOT A.B 

407 IE DU<2 THEN A-INTfRND101*2Bl*3«10: B"lO:QOT0 412 

405 IP KJ(4 THEN A-INTlRND(Ol*2Bl#3-10:B-7O:G0TO 412 

409 if du<6 then a- 1 : b- i nt irnd (o) *i 21 *3- 10 : goto 412 
010 ip duo then a-130:b-int|rndio>»121*3«10:goto 412 
411 a-int1rndi0i *2?)»5'10:8-int i rnd i o i *13 i »3* 10 

«13 position a,s:get »6,u:plot a,B:C— 1 

514 OU-DU'llIF DU-4S THEN GOTO 417 

413 T-01C-C-1 




I Ma 


gosu» 2400: t ipi-yipi -3:goto uie 




130 1 






1301 


IE XIPl-146 AND /(PI-TROU'I THEN GOTO 


-■ : ■■ 


103 


IF VI IXIPI -1 1 J3. IV IPI-6'/3l-2 THEN ma. 




GOTO 






1303 


GOSUB Z400:XIP>-xiPi «5:G0T0 HIS 












IF HI1X1PI -61/3, IYIPI -11 /3I-2 THEN UA. 




GOTO 






1402 


GOSUB 2400: YIP1-Y1P) i3:GQT0 1110 
REM »*» GAUCHE »*» 






IP VMXlPJ-61/3, IYIPI-61/51-2 THEN UA- 






1117 




1302 


GOSUB 240O:X<pi«XIP> -3:GOT0 lllfl 
REM *»» LIGNES DE VIE •** 
IP CH0IX.2 THEN GOTO 1607 






COLOR 1 




1603 


FOR I"37 TO 124:PL0T I.HNEXT I 
FOR I»2 TO 3:PL0T I24,I:NEXT I 




1603 


FOR 1-124 TO 37 STEP -l:PLOT I, 4: NEXT 

RETURN 




1607 


FOR 8-0 TO I 





1700 


REM **» DETERMINATION DU JEU ••■ 




1701 


P^O'RETURN ™ E>< GOT0 1703 




1703 


IF P-0 THEN P-l:GOTO 1705 




1704 


return ™ E " P "° 




I80O 






leoi 








IF CHOIX-1 THEN POSITION 2,4;7 -i 


-BRAVO" 




IF CHOIX-2 THEN POSITION 2,4:'' 46 


-BRAVO JOUEUR 




POSITION 2.31' 461 -VOUS ETES SORT 




1003 


RESTORE 190© 




1006 


FOR Z-l TO 7 




1007 


READ TOTO 




1SOS 


SOUND 0. TOTO, 10, 4 




1810 






1011 


NEXT Z 




1812 


SOUND 0,0,0,0 




1013 


GRAPHICS 2+16 




1814 






1013 


FOR H-l TO 400: NEXT H 






IB1B IF PTtOl' 



-MESSAGE OU CHEF 



1820 DIM ME54I7' 
C AMARADE ! 

1821 GRAPHICS 2 
1B22 POSITION 2, 
1323 FOR !•! TO L£N1MES«; 
1824 POSITION 12, S:' »6.HF.S«< I , I • 
1B73 FOR H-l TO I3:NEXT H 

1826 NEXT I 

1827 IF CHOIX-2 THEN GOSUB 2300 

1828 GOTO 2600 

1829 DIM MES4I801 :MES»-* 

OUR ABATTPE LES MURS' "1RETURN 

1830 DIM MES4I731 :mES»-* 

NS DE BOUCHONS- *:RETLW?N 

1831 DIM MESS 174) : MESS- - 
ETTES AU CAMP' "IRETURN 

1900 DATA 230,217,193,182,162,144 

2000 REM n. DEFAITE • »* 

2001 GRAPHICS 2«16 



THEN GOSUB 1B30:GOTO 1B21 
THEN GOSUB IB31:GOTO 1821 
:MES»-' phetez donc votre CARTE i 



VOIRE INFORTUNE 



DE L'EXPEDITION' 



IL EST 1NTERDII D'UTILISER UN BULLDOZER P 
AVEC L'lTINERAIRE DE DELESTAOE IL I A MOI 
NE CHERCHE7 PLUS, VOUS AVE2 OUBLIE VOS LUN 



2002 IF CHOIX' 

2003 IF CHOIX' 

2004 FOR H-l ' 
2003 GRAPHICS 
2006 IF choix. 



2007 1 



OIX' 



303 GOTO 406 



t-3:G0T0 413 



2010 READ T0T1 



I NEXT 2 



THEN POSITION I 
THEN POSITION : 
400: NEXT H 



THEN POSIT 



I THEN GOTO ; 



MB 


JJOTO 


4 06 




itn 




->01 




-70 THEN GOTO 


70V 


"is: 


ION A.8*3:G£T 


703 






704 




4 THEN GOTO 8 




GOTO 


406 








Ml 


IP B 


•lO THEN GOTO 


007 






803 










4 THEN GOTO 3 


M9 


GOTO 


4* KEMDPISOTI 


901 


"'" 


•• MURS VEP.TI 



2013 SOUND 0,0,0,0 

2016 GOSUB 2500 

2017 GOTO 2400 

2100 DATA 72,76,72,76,72,] 

2200 REM »»» CHEVAUCHENEN' 

2201 GRAPHICS 2'16 

2202 POSITION 1,4:7 H6fVl 



Le numero de la rentree 
sera en vente chez votre 
marchand habituel le 31 
Aout, N° 46, 8 francs. 



I POST 



'ION ] 



ZOJ THEN [ 



A,B-3:B-B-3:C 



2203 RESTORE ; 

2206 SOUND 1 , 102,8, 

2207 FOR Z-l TO 7 
7208 READ TOTO 
2209 FOR H-l TO 30 
7710 SOUND O, TOTO, I 



904 POSITION l.JIGET »6,T0 

903 V( I 1-31/3, (J -71/31 -TO 

906 NEXT J 

907 NEXT t 

908 REN ••• MURS HORIZONTAUX ••* 

904 FOP J-10 TO 70 STEP 3 

910 FOR 1-12 TO 147 STEP 3 

911 POSITION I,j:OET «4,T0 

912 HIU-71/3, (J'31/31-TD 

9)3 NE*T 1 
914 NEXT 3 

1000 REM »•* EXPLICATIONS •»• 

1001 OPAPHICB 

1002 -LETCOLOP 2.0,0 

1003 POKE 732, 1 

1004 IF CHOIX-2 THEN GOTO 1008 

1003 POSITION 2,9:7 *VOUS AVEZ 180 COUPS HAX1MUM 

1006 POSITION 2,121'' "SURVEILLEZ VOTRE LIONE DC >, 

1007 GOTO 1012 

1008 POSITION 2,817 -VOUS AVEZ CHACUN 300 C0UP8 1 
TIE. - 

1009 POSITION 2,10:7 

1010 position 2, i2;-> 




UMENT SONS PO 



iTIElNDRE LA SORT! 



2270 


HE XT I 


2721 


GOTO 2600 


2300 


=EM •*« PERTE DE VITALITE 


2301 


IF CHOIX-2 THEN OOTO 2303 


2302 


IF PT10K-S8 AND PT(01>0 


2303 




2304 


COLOR OIPLOT 124-1PT10I-9 


Z30S 


IF PTIP)/3-INTtPT(P]/3) T 


2306 




2400 


REM ••» CHANOEMENT DE POS 



101 POSITION 2,|4;-> -IL NE DEM, 

1012 FOR H-l TO 10001NEXT M 

1100 REM X* DrPLACEMEHTS ■•« 

110! GRAPHICS 7 

1 102 SETCOLOR 2,0,0 

1103 GOSUB 1600 
111 



: ou'A vous i 



1106 IF CHOIX-1 THEN POKE 532,1:7 'DEP 

1107 IF CHOlX-1 AND PTI0)i-IOO THEN GO 
110B IF CHOIX-2 AND Pri0))-300 AND PT 1 

1109 IF CHOIX-2 AND XI01-RI11 AND /I01 

1110 GOSUB 1700 


-ACEZ VOUS A L-AIDE DE LA MANE7TE" 

1 1-300 THEN OOTO 2000 
■Yl II IHGN OOTO 2200 


1111 IF CHOIX-2 THEN 7 CHR»I1231 1P0KE 
AIDE DE LA MANETTC* 

11 12 FOR Q-0 TO N 


732,1:7 "JOUEUR *|r>*l J * DEPLACEZ VOUS 


1113 COLOR bioi:plot xioi .vioi :drauto 
,Yro)«3:NExT 


■ i«io.ri<).i,n.oi «....»,».«, ima.io 


1113 PI (PI-PTfP).l 








, 14O0, 1200. 1116 




1117 FOR 0-1 TO 201G0UND 0,9B, 10.4JNEX 
UC.UD 


T 0:sOUND 0,O,0,0:C0L0» 2:plOT UA.UBID 


1! IB OOTO 2300 




1200 REM *>• HAUT ttt 





2303 




2306 


COLOR BI0I1PLOT XIOI , YIO) : DRA 










ISM 


7 CHR9U23):' 'MALCHANCEUX CA 


'-m 


FOP J-I IO 13 




FOB K-l TO 3IS0UND 0,76,10,3: 


"2312 


IF J»IJ IHEN 0010 2314 


2913 


IF VII.J1-2 THEN COLOR 1:PL0I 


2314 


IF 1-29 THEN OOTO 2316 


2319 


IF HM.JI-2 THEN COLOR ilPLOT 


2316 


NEXT J 


2317 




2318 


SOUND 1,0,0,0 


2319 


COLOR ?:PLOT 130, 1P0I1I DPAUTO 


2370 


for H-i to isooiNexr h 


2321 


REIUPN 


MOO 


REH »M REPPtSf OU JEU •■) 


240) 


..1. ft, '!.['.■ 1 


.-('.,. 


SEIC0L04 2,0,0 


1M3 


POKE 732, 1 


7404 


POSITION 2,10:7 ■POun BMTAMIn 


H POUGE DU PREMIER STICK.' 


2403 


IF STRIO'OI'.O IHEN 0010 7A04 



10IOAT REGARDEZ OU VOUS EN ETES AF 

IEXT K1SOUND 0,0,0,0 
3»|.3,3tJ«S:DRAUI0 3t|.3,3iJ.10 
3«l-3,3tJ.3:DRAUI0 HI*10,»J*S 



ATARI 



SPACE INVADERS 



Ce programme a ele elabore sur 
ATARI 600, mais II lourne sur 
ATARI 000. 600 XL el 800 XL. 



Space Invaders est un jeu darcade bien connu, mais 
celui-ci ne possede pas de blockhaus pour vous prote- 
ger, seule la precision de votre tir, la rapidite de vos 
reflexes et la finesse de voire pilotage vous meneront 
au meilleur score (avec manette de jeu) 

Alain RENDERS 



20 i-o: j-0:mJ"3000:CT-o: at=o:gosub 2Bo:goto 140 280 

30 V-PEEK (33248) : IF Y>0 THEN GOSUB 210 290 

40 IF PR-1 THEN SP-SP-4:MS(SP) =SHS:POKE 532?B,8l:lF SP-4*K< 10 THEN MS ( SP , SP +4 ) =B CS 1 
LS:PR-0 293 

30 Y-PEEK153248) : IF Y>0 THEN GOSUB 210 300 

60 IF BR-1 THEN BP-BP+ 3: M» I BP ) -BOMS : I F BPM02 THEN MS ( 8P, BP+51 =BLS: BR=0: BP-20 310 
70 IF P£EK<53259>-1 THEN 230 320 

80 IF BR-0 AND CT>AT AND KM6 THEN BR-1: POKE 53255 , PHt3 : BP = 1 4»4*K : CT-0 330 

90 PH-PH+4#lSTICK<0>-7> -4*<STICK (0>M 1) : POKE 53243 , PH 340 

100 IF STRIGCOJ-O AND PR«0 THEN PR= 1 : MPH«PH* 2 : POKE 53252, MPH: SP-94 : MS f SP ) =SHS: PO D O 
KE 77,0 342 

UO CT=CT+1 : RETURN 343 

120 FOR X»0 TO 300:NEXT X:IF SOHI THEN HI-SC:SOUND 0,0,0,0:GOTO 241 344 

121 POSITION 4,12:'' »I6!-HISC0RE -JHI 345 

122 POKE 656,l:P0KE 637,15? "APPUYEZ SUR LE BOUTON ROUGE POUfi JOUER " ; : CHN=0 : SCR* 346 




RT = PEEKU06> : IF RT / 2= ( INT 1 RT / 2 ) ) THEN RT-RT-S 
POKE 89,RT:P0KE 83,0:^ CHRSM2S) : POKE 39.RT+3:? 
8:P0KE 756, (RT+4) 

K6: ? M6; " li space t*" 



CHR«(I25t:P0KE 1 06 , RT : GRAPHI 



7 tt6:? H6I" ' INVADERS '*:? *6:7 M6:7 *6:7 116 i * BY *. r 

FOR I-B TO 39:READ X1P0KE ( RT + 4 1 *256+I • 32 , X : SOUND O,I,10,6:NEX 

FOR 1=40 TO 71: READ X:PDKE ( RT + 6 I *256+ I , X : SOUND O, I , 1 , 6: NEXT 

FOR 1-72 TO 87:P0KE IRT+6) *256* I -72. 0: SOUND O, I , 10, 10: NEXT I 

FOR 1=38 TO 51 1 : J =PEEK < 57344 * I ) : POKE (RT *&} *256 + I , J : POKE (RT»4 

I , 10,6INEXT 1 

SOUND 0,0,0,0 

FOR A-0 TO 500! NEXT A 

PRINT *U-:GRAPHICS 18 

POSITION 5,0:7 06! -INVADER3- 



H6;-> H6i 



347 ? H6! 



348 

349 

■ ; :POKE 704, P 350 

352 



334 

335 
356 

3 60 

132: 
370 
,P« 
390 



123 POSITION 5,10:"* »6; "GAME OVER* 

124 FOR A=0 TO 70:NEXT A 
130 POKE 656,1: POKE 637,1:7 " 
EEKC710) :SOUND 0,0,0,0 

134 FOR X-O TO 300: IF STRIG(0)«1 THEN 122 

135 POSITION 4,12: - > «6: " 

136 POSITION S.IO: - ' #6!" 

140 POKE 636,3:P0KE 657,2:' 'SCORE ' i : SC=0 : GOSUB 240 

142 POKE 705,38:P0KE 706 , 38 : AT=80 : TGH=0: TGHR=0 

150 POKE 704, 176:M*=BL«:PR=0: BR=0: POKE 5327B,l:F0R 1=1 TO 3:F0R J=80 TO 150:SOUN 

D O, J, 10,6:NEXT 3:next i:CT-ao 

160 POKE 77,0:AT=AT-SCR*10: IF SCR>2 THEN TGH=30:IF SCR>3 THEN TGHR=60 

170 FOR K-l TO 20:D--D:F0R 1=0 TO 8:L=PEEK(DL) -D-20*(I=3) :H=PEEK(DH)-<L<0) +(L>25 

5> :L=L+256*IL<0! -256*(L>255> 

130 GOSUB 30: POKE DH,H:POKE DL,L:GOSUB 30:P0KE 756 , RT + 4 + 2* (PEEK t 756 > =RT*4 ): GOSUB 

30-TGH 
190 SOUND 0,255, 12, 15:G0SU8 30+TGHR: SOUND 0,0,0,0:NEXT I: NEXT K 
200 GOSUB 420:M«=BL*:PR=0:BR=0:POKE 53278, 1 : GOTO 120 

210 FOR A-8 TO 14:S0UND O, 13, A , A : NEXT A : SOUND 0,0,0,0 

21 1 X-MPH+6*I»C-D) -64*<D<0> -48: X=2# ( INT (X/ 1 6) 1 : Y= (Y-2) + 3J-CY-1 > +5*(Y=8) *7*CY«4) -1 
220 SC=SC*10*C 10-Y) :HT-HT+1 : IF HT=24 THEN POP : MS-BLS: SCR=SCR* 1 : GOSUB 420:G0T0 1 
50 
230 POSITION X,Y:? N6; * 

240 POKE 656,3:P0KE 657,8:7 SC ; • - [ : MS (SP, SP + 2 1 = BLS: PR=0 : POKE 53273, 1 : IF 
SOHI THEN GOTO 120 

241 RETURN 

250 POKE 706-CHN,0:P0KE 704 , PEEK ( 710 I : MS=BLS 

251 FOR K-80 TO 15 STEP -l: SOUND O , 240 , 3 , K/5: POKE 704,K:NEXT K:GOSUB 420 
260 CHN=CHN+l:lF CHN=3 THEN CHN=0: SC=0: GOTO 120 
270 GOTO ISO 



? t»6; 



cachet te a gau 
de 1 ' ecran pou 



NVAHISSEURS : 



? #61* allez cc-mbatre Its 1 !' (16:7 H6I * 

SOUND 0,0,0,0:? H6:? #6:? «6i • ippuy»i sur start" 

FOR B=0 TO 13:S0UND I , 89, B, B: NEXT B 

IF PEEK(53279>=6 THEN 335 

GOTO 352 

SOUND 0,0,0,0 

GRAPHICS i:POKE 559 , O: DH=PEEK [ 560 ) + PEEK ( 561 ) *256+5 : DL-DH- 1 

POKE 89,RT+2:P0KE 8S,I23:PDKE 752,1:? * ■ : POKE DH+25,6:P0KE 703,S2:P0KE 709, 

POKE 710,3:P0KE 711,84 

DIM BLS (128) , 0S(1) ,FSC t INT (ADR CDS) /I 024) » 1 1 »1 024 -ADR I DS 1 -1 ) , PMS(364) , M» < 1 28 > 

128) , PI* (128) , P2S<128> 

DIM BOMS < 6) , SHSI6) :8LS=CHRS(0) ." BLS ( 



=CHRS{0) :BLS<2) 



BLS: PS = 



M«=BLS: SP- 



390 FOR 1 = 1 TO 6:READ K, Y , D : PS ( 97+ I , 97 « 1 1 -CHRS (K ) : SH* 1 1 , I ) =CHRS ( Y ) : BOMS ( I , I ) -CHR 
S(D>:NEXT I 

400 PIS=BLS:P2S=BLS:P1S(12)-PS:P2S=P1S:P0KE 53249, I70:P0KE 53250 , 156: POKE 704,19 
6: POKE 707,76 

410 BP=10:P0KE 53234, 100: HP=128: POKE 53248 , PH: POKE 54279 , ADR ( PMS) /256 : POKE 623,1 
:POKE 53277,3 

420 POKE DH,PEEK(39) : POKE DL,128:P0KE 359 , 46 : BR- 1 J HT-O: D-- 1 : POKE 73t>.RT+4^ 
430 ? tt6;CHRSf 125) : FOR J-0 TO 3:P0SITI0N 0,J*2:F0R 1-1 
4»(J>ll>t" "(INEXT l:NEXT J:RETURN 
=440 DATA 60,126,255,165,255,126,0,0,60,126,215,215,126,255,129,102.24,60,126.235 

, 255,255,65,0 

445 DATA 193, 126,255, 133,221,255,65,65,0,0,0,90,0,0,0,0,60, 1 26, 86, 1 2* , aO , 62 , 34 , ^ 

450 DATA 24,60, 126,215.255,255, 1 30, O, 193, 66, 126,255, 153. 187, 235, 6S 
460 DATA 24,1,0,24,1,0,24,0,0,60,0,0,126,0,192,255,0,192 



M6iCHRS(5-32*J*J+o 



ATARI 



MAXIPEDE 



Votre Maxipede a faim et doit manger toutes les pilules 
6parpillees sur I'ecran. II n'y en a jamais plus que 20 a 
la fois. Sauf pour les premiers 500 centimetres ou il n'y 
en a que 9 maximum. Attention! Des que Maxipede a 
500 centimetres de long il est libere de sa gourman- 
dise et il continue a chaque repas. Ne touchez en 
aucun cas les murs qui vous entourent, ils sont vos 
frontieres naturelles. 

Que votre gourmandise ne vous force pas a vous de- 
vorer vous-meme. Plus vous mangez de pilules, plus 
dure est votre resistance contre la mort. 

Michel MINET 

Un seul joueur controie Maxipede. Le joystick est utilise dans ce 
programme de jeu. 

Pour recommencer une parlie pendanl son deroufement, appuyez 
sur START, Si vous desirez couper le son pendant que vous jouez, 
appuyez sur OPTION. Si apres 30 se'condes vous n'avez pas re- 
joua. ATARI revient a I'ecran d'introduction du jeu. 



i DIM ASC12) ,XS(12> :AS=- CENT I METRES V GOTO 1000 

2 REM 

3 REM 
i 4 REM 

10 J»499:GRAPHICS 3:N-l:G-3 
1 II SETCOLOR 4,0,0!SETC0L0R 2,! 

12 COlOP 9:PLOT o,o:drawto 79 

13 K-9:H-20:W-4:B"7:DIM X(190 
20 o=5:r=9:s=4:u=4;fop I-I TO 

22 POKE 732,1:7 ;-> T!AS;7 

23 G03UP 4000;P0KE 19,0:REST0RE 3000 
76 IF N>0 THEN N-N- 1 : GOTO 30 

27 READ MMF M-999 THEN RESTORE 3000!GOTO 26 
73 SOUND 0,M,10,G:N-2 

30 E-INT (RND(0)*H) : IF F<K THEN IF E"l THEN COLOR 
F-F + l 

32 IF PEEK<33279> -6 THEN RUN 

33 IF PEEK(33279]-3 THEN 900 

33 A-PEEK(632) : IF A-13 THEN A-B 

40 IF A-1I THEN 0-0-1 

43 IF A=7 THEN 0-0+1 

50 IF A-I4 THEN R-R-l 

33 IF A-13 THEN R-R*l 

60 IF A-IO THEN O-0-l:R-R-l 

63 IF A-6 THEN Q-G+t:R=P-l 

70 IF A-9 THEN Q-Q-l:R-R*I 




73 IF A-5 THEN Q=Q+l:R=R+l 

77 LOCATE Q,R,Z:IF Z-l THEN XS- ■ , COLL I 31 ON ! - : GOTO 2000 

70 IF PEEK(19)>60 THEN XS-",5 MINUTES ! " : GOTO 2000 

79 B"A:IF S=190 then S-0 

ao s-s*i:w-wn:x(S)-o: y(S)-r:color 9:plot q,r 

31 IF 2=3 THEN 90 

82 IF N=l THEN SOUND 0,0,0,0 

83 IF U=190+U»l THEN W-S 
85 COLOR OIPLOT X ( U-U) , Y (U-U ) : GOTO 26 
90 SOUND 0,226, 10, 1 5: F=-F- I : U-U + 2: T-T*5: 7 :7 
95 SOUND 0,0,0,0:GOTO 26 

'.oo poke i9,o:u-o: j-j + 475: s=o:w-o: xisi =q: yis 

900 IF G-5 THEN G=0:GOTO 35 

910 G-5:G0T0 35 

1000 GRAPHICS 2+16:SETC0L0R 4 , 3 , 5: SETCOLOR 0,5,15 

1010 POSITION 6,3:"' W6i 'MAXIPEDE':POSITION 6,6:? H6I" "1P0S1TION 10,11 



; IF T>J THEN 100 
9:K=20:G0T0 95 



698, 1 , 659, 1 , 53 7, I ,659,2,52 



2,523, 1,639, 



SOUND 0, 0,0,0; SOUND 1,0 
020 



4:SETC0L0R 1 , 1 3 , 9 : SETCOLOR 0,13,8 
:DRAUTO 7?,39:DRAUT0 0,39:DRAWT0 0,0 

Yt 190) :t-4o:f-o 

:x(I)-o + i:y(d-r:plot xm , Yd) :next 



:PLOT RNDf0)»-77*I ,RND(0)#37 + 



1015 DATA 659,2,523,1,659,2,513, 
2,523, 1 ,698, 1 ,587, I ,659,2,523, 9 

1020 restope : for 1=1 to 17:read m,n 
1030 sound 0,31960/m* 1 , ]4,5:s0und i , 3 1 960 /m/ 1 . 4 , 1 4 , 5 
1040 for 11=1 to n*4:if peek(532?9)-6 or strig(0)-0 then 
,o,o:goto 10 

1030 next ii:setcolor 0, 16*pnd(0) , la*rmdi0) 1next i: goto 
2000 7 ;? T l AS ixs;? 

7005 FOR 1 = 1 TO 10:SETCOLOR 4 , 1 I , <= : SOUND O, 255, 1 0. 1 3: GOSUB 3G0O: 3E TCOLOR 4,0,0:5 
OUMD 0,0,0,0:G03UB 3000:NFXT I 

2010 DATA 131,3,131,2,131,1,131,3,163,2,147,1,147,2,131,1,131,2,126,1,131,3 
2020 RESTORE 2010:FOP I - 1 TO 1 1 : READ M,N 

2030 FOR 11-9 TG 9 STEP - 1 1 SOUND 0, 31960/M, 14 , I 1 : SOUND 1 , 31960/M/3, 14 , 1 1 : NEXT 11 
2040 FOR 11 = 1 TO N*50:MEXT I I : SOUND O, O , , : SOUND I,0,O,O:NEXT I 
7790 POKE 19,0 

2300 IF PEEK(532?9)=6 OR STRIG(0)»0 THEN RUN 
2305 IF PEEK(19)>9 THEM RUN 
2M0 GOTO 2300 

T1000 FOP II-O TO 231NEXT II:RETURN 

4000 DATA 162, 1 , 162, 1, 144, I, 12B, 1 , 128, I, 144, 1, 128, 1, 144, 1, 162, 1, 162, 
1 , 128,2, 144, 1 , 144,2 

4070 RESTORE 4000:F0R 1-1 TO I3:READ M,N:FOR II-S TO STEP -1 
;4030 SOUND O.M/4, 10, I I : SOUND I , M/ 3 , 1 , I I : FOR 1 1-1 TO N:NEXT IKNEX1 II 
4040 NEXT I : RETURN 

5000 DATA 120, 108,96, 120, 108,96, 120, 120, 108,96,91 ,91, -»6, 91, 108, 126, 120, 103 
3010 DATA 123,120,100,128,128,103,96,91,96,103,96,120,999 



44, 1 , 128, 



ATARI 
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UTILISATION DES MICROORDINATEURS 
DE POCHE EN MILIEU SCOLAIRE 




Un grand nombre d'Ensei- 
gnants nous ont (ait part 
de teur interdt pour I'ulili- 
sation des micro-ordina- 
teurs de poche en 
complement des ordina- 
teurs dont sont pourvus 
les Etablissements. 
En ettet, il paratt interes- 
sant de disposer "d'outils" 
individuels qui permettent 
aux eleves d"acquerir les 
bases necessaires pour 
une meilleure comprehen- 
sion de I'informatique, et 



ceci a travers la program- 
mation en langage 
BASIC. 

Un produit, tel que le PB 
100 de CASIO, est un ve- 
ritable "systeme d'iniliation 
individuel a la program- 
mation". II permet aux 
professeurs de diriger les 
Aleves afin que ceux-ci 
puissent utiliser ces syste- 
mes de poche pour un 
"entrainement". 
II est bien entendu que 
I'ordinateur de I'Etablisse- 



ment prendra le relais 
lorsqu'il s'agit de travail 
concernant en particulier 
la gestion de fichiers et 
I'edition en general. 
Les domaines d'utilisation 
sont extremement varies: 
techniques, gestion... 
L'investissement est faible 
puisque le PB 100 de 
CASIO est vendu moins 
de 750 F. 

Si la capacity des m6moi- 
res d'un tel produit est 
Svidemment reduite, les 






tion d'un micro-poche en 
milieu scolaire". 
Ces reunions seront ani- 
mees par Monsieur Marc 
FERRAND, Professeur de 
Mathematiques et specia- 
liste d'lnformatique. 

PROGRAMMABLES 

ET CALCUL SCIENTIFIQUE. 



instructions BASIC consti- 
tuant le tronc commun de 
tous les langages BASIC, 
sont pr6sent6s sur cet ap- 
pareil. 

Le PB 100 est egalement 
connectable sur magneto- 
phone et imprimante. II 
permet ainsi de constituer 



des bibliotheques de logi- 
ciels personnels, ou au ni- 
veau d'une classe. 
Afin de vous aider pour 
une meilleure connais- 
sance de ce type de ma- 
teriel, il est possible d'or- 
ganiser des reunions 
^'information sur Tutilisa- 




H- 1 <tu LogtcM Francata pour Micro FamWaux 

LORICIELS, 

plus de 40 titres disponibles, pour : 
ORIC 1, ATMOS, COMMODORE 64, 
VIC 20, SPECTRUM, 2X81, SEGA-YENO, 
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Disponibles chez votre 
Revendeur le plus proche, 
ou retoumer le Bon de 
Commande ci-contrea: 

. 

loHciels 

160, rue Legendre 75017 PARIS 
Tel.: (1)627.43.59 
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La premiere etape de I'uti- 
lisation de calculatrice en 
milieu scolaire est consti- 
tu6e en g6n6ral par I'utili- 
sation de calculatrices 
scientifiques (type FX 82 
de CASIO). Toutefois, 
certains modeles sont 
egalement programma- 
bles et permettent une ini- 
tiation a la demarche al- 
gorithmique. 

Le Professeur, en charge 
de matieres de mathema- 
tiques. de physique, de 
mecanique, etc.. .dispose 
la d'un veritable outil pe- 
dagogique permettant de 
faire decouvrir a travers 
des exemples concreits 
les difterents.phenomenes 
et lois mathematiques, 
physiques... 

La calculatrice scientifique 
programmable FX 180 P 
de CASIO dispose non 
seulement de toutes les 
fonctions mathematiques 
classiques, y compris les 
fonctions statistiques. 

mais el's dispose 6gale- 
ment dune capacit6 de 
m6moire de programma- 
tion de 38 pas de pro- 
gramme auxquels s'ajou- 
tent 8 memoires. 
L'ensemble de ces me- 
moires etant non volatile.) 



Un livre intitule "STRATE- 
GlE POUR LE CALCUL 
SCIENTIFIQUE" a ete 
edite afin de permettre 
aux professeurs et aux 
eleves d'acquerir une 
meilleure connaissance 
de I'utilisation de la FX 82 
etdelaFX 180 P. 

Vous pouvez I'obtenir gra- 
tuitement chez les distri- 
buteurs CASIO. Liste dis- 
ponible en ecrivant a 
NOBLET SA (178 rue du 
Temple 75139 PARIS 
CEDEX 03) ou a HEBDO- 
GIC1EL 
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DEUX SUPER-CONCOURS PERMANENTS 

1 0000 francs de prix au MEILLEUR LOGICIEL du MOIS et un VOYAGE EN CALIFORNIE 

au meilleur logiciel du TRIMESTRE. 



Un concours de plus ! 
Rien de bien original dans cette 
lormule. pourtanl nous es- 
Myon* de (aire quelque chose 
de different : nous organisons 
un concours permanent tous 
let mois et tous les trimestres ! 
Et avec des pri x dignes des pro- 
grammes que vous allez nous 
envoyer ! 

De plus, ce seront les lecteurs 
eux-memes qui voteront pour 
leurs programmes preferes sur 
la grille recapitulative men- 
suelle. 

Pas de Jury, pas de decision ar- 
bitrage, HEBDOGIC1EL n'inter- 
venant que dans le choix des 
programmes qui devront etre 
ORIGINAUX et FRANC A1S. Si 
votre programme n'est pas tout 
a fait au point, un de nos spe- 
cialities vous dira comment 
l ameliorer pour pouvoir nous le 
proposer a nouveau. 



Pour participer, it vous suftit de 
nous envoyer vos programmes 
accompagnes du bon de parti- 
cipation ainsi que toutes les ex- 
plications necessaires a ('utili- 
sation de ce programme. 
Bonne chance! 



Reglement 

ART I HEBDOGICIEL organise 
de (aeon mensuelle et trimes- 
tfielle un concours dote de prix 
recompensanl le meilleur logi- 
ciel du mois et du tnmestre 
ART 2 : Ce concours est ouvert a 
lout auteur de logiciel quelque 
soil le materiel sur lequel il est 
realise Lenvoi d'un logiciel en 
K 7 ou disquette accompagne 
d'un bon de participation de- 
coupe dans HEBDOGICIEL ou 
envoye gratuiternent sur de- 



mande par la redaction de noire 
journal constitue I'acte de can- 
didature 

ART 3 La redaction d'HEBDO- 
GICIEL se reserve le droit de 
selectionner sur la base de la 
qualite et de I onginalite les logi- 
ciels qui sont pubhes dans le 
journal 

ART 4 Ce sont les lecteurs qui, 
par leur vote, determinent les 
meilleurs logiciels mensuel et 
trimestnel 

ART 5 Le prix alloue pour le 
concours mensuel sera remis au 
ptus tard un mois apres la clo- 
ture du concours mensuel 
ART 6: Le prix alloue pour le 
concours tnmestriel sera remis 
au plus lard un mois apres la clo- 
ture du concours trimeslriel 
ART 7 Le present reglement a 
ete depose chez Maitre Jauna- 
tre. 1 . rue des Halles 75001 Pans 
ART 8 HEBDOGICIEL se reser- 



ve le droit d'mterrompre a tout 
moment le present concours en 
en avisan! les lecteurs un mois 
avant 

ART 9 La participation au con- 
cours entraine I'acceptation par 
les concurrents du present re- 
glement 

HEBDOGICIEL: 27. rue du Gal 
FOY - 75008 PARIS 

Sera declare gagnant le pro- 
gramme qui aura obtenu le plus 
fort pourcentage de vote par 
rapport a la totalite des pro- 
grammes recus pour un meme 
ordinateur. 

Ainsi. pas de favoritisme pour 
les ordinateurs plus puissants 
ou tres diffuses. 



BON DE PARTICIPATION 



Nom ; 

Pre nom ; 

Age : Profession 

Adresse ; 

N' telephone : 

Nom du programme ; 

Nom du materiel utilise : 

declare etre lauteur de ce programme qui n'est ni une imitation m une 
copie d'un programme existant Ce programme reste ma propnete et 
j'autonse HEBDOGICIEL a le publier La remuneration pour les pages 
publiees sera de 1000 francs par page (un programme n'occupani pas 
une page entiere sera remunere au prorata de la surface occupee) 

Signature obhgatoire : 

(signature des parents pour les mineurs). 

Le programme doit etre expedie sur support magnetique (cassette ou 
disquette) accompagne dun descn p til de taille du materiel utilise, 
d'une no tice d'utilisati on du programme Les supports des program- 
mes pubhes sont conserv es, n'oubliez done pas d'en (aire une copie 



RECOMMANDATIONS AUX LEC- 
TEURS QUI SOUHAITENT FAIRE 
PUBLIER UN PROGRAMME : 

• Envoyez vos supports, mode 
demploi. listings et bon de parti- 
cipation dans une meme enve- 
loppe. 

Vous pouvez nous envoyer plu- 
sieurs programmes sur un meme 
support en I'mdiquant sur votre 
Bon de Participation 

• N'oubliez pas et ceci est tres 
important, d'insenre sur vos sup- 
ports votre nom, le nom du pro- 
gramme et le materiel utilise. 
Notez dans les premieres lignes 
de voire programme, sous forme 
de REM. votre nom. le nom du pro- 
gramme etle materiel auquehl est 



destine Nous pourrons ainsi re- 
perer facilement les listings, une 
fois sortis de 1'impnmante 

• Dupliquez plusieurs fois sur la 
cassette et a des niveaux d'enre- 
gistrement differents votre pro- 
gramme Nous aurons plus de 
chance d'arriver a le charger si les 
magnetophones ne sont pas tout 
a fait compatibles. 

• En ce qut concerne les bons de 
participation, mettez votre adres- 
se complete et voire numero de 
telephone (si vous en avez un). 

• Pour tout envoi tel que "petites 
annonces", "abonnement" et 
"programmes" specifiez sur vos 
enveloppes I'objet de votre cour- 



• Expliquez les particulates de 
votre ordinateur et le moyen 
d'adapler votre programme a 
d'autres ordinateurs 

• Vu le nombre important de pro- 
grammes similaires que nous re- 
cevons. evitez de nous envoyez 
les jeux suivants : BIORYTHMES, 
MASTERMIND. PENDU, TOUR DE 
HANOI. CALENDRIER, BATAILLE 
NAVALE. POKER. JACKPOT, 
BOWLING. BLACK JACK, LABY- 
RINTHE, MEMORY SIMON. 421, 
OTHELLO. SOLITAIRE. LOTO. 



LA REGLE A CALCUL RE- 
COMPENSE LES MEILLEURS 
LOGICIELS EN OFFRANT A 
CHACUN DES PREMIERS 
DANS LEUR CATEGORIE UN 
OUVRAGE A CHOISIR DANS 
SON RAYON LIBRAIRIE (EDI- 
TEURS : BORDAS, DUNOD, 
EYROLLES, MASSON, NA- 
THAN, PSI, SHIFT, SYBEX). 



SQUIRELLE RECOMPENSE LE 
MEILLEUR LOGICIEL DU MOIS 
PAR 2 CASSETTES A CHOISIR 
DANS SA LOGITHEQUE. 



Les editions du CAGIRE offrent 
au meilleur logiciel du mois sur 
HP41,leurlivre"autourde!abou- 
cle" de Janick TAILLANDIER. 



RECOMMANDATIONS 
PARTICULIERES 
AUX POSSESSEURS DE 
TRS80 

Indiquer avec precision le mo' 
dele d'ordinaleur auquel le pro- 
gramme est destine. Si le pro- 
gramme est enregistre sui 
cassettes utilisez obiigatoire 
ment la vitesse de 500 bands 
meme sur un modele 111. 
Dans lous les cas ou le 
gramme est enregistre sur cas' 
setle il faut avoir ulitise la vi- 
tesse de 500 bands et non, en 
particulier. la vitesse de 1500 
bands du modele 111. 





N°41 


N°42 


N°43 


^44 


N"45 


APPLE II 


K7. DISK 


YAHTSEE 


DAEDALUS 


CARMINO 


RECORDS 


ATARI 


ENTREPR1SE 


HELP CITY 


LABYRINTHE 


SPACE INVADERS 


MAXIPEDE 


CANON X-07 


BLACKJACK 


TUNNEL 


CALCUL 


GRAND PRIX 


BOMBARDIER 


FX 702-P 


LASER 03 


OLYMPIC GAME 


ARIANE 


BOWLING 


NOSTROMO 


COM 64 


FLIPPER PONG 


MANOIR 


CHOCHINUMIA 


CONVERSION 


HIPAINT 


VIC 20 


DEDALE 


MINOS 


QUASIMODO 


TUNNEL. VOLTIGE 


FICHIERS 


DRAGON 


CA.O 


DRAGGY 


PYRAMIDE 


RAMBLE 


SOLITAIR 


HP 41 


PLOTH 


ILE 


SOUS-MARIN 


CADRFL-ADRFL 


MENTAL 


ORIC1 


AIGLON 


CORSAIRES 


SOLITRIANGLE 


NIBBLER 


ORICUBES 


PC 12 II 


MEMOIRE 


BASKET 


BALLAVON 


DIABOLIC 


PHARAON 


PC 1500 


LABYRINTHE 


LETTRES GEANTES 


PAM 


PAC MAN 


METEORS 


SPECTRUM 


DESSIN 


HARBOR 2090 


OTO KROSS 


CAR SET 


AL- BERT 


MZ80 


JEU DE LA VIE 


SUPER VRAC 


SPACE 


ENFERS 


TENNIS 


ZXS1 


GAMORD 


LDIR 


PARC 


OBSTACLE 


CORSAIRE 


TRS80 


CADAVRE EXOUIS 


GEOMETRIE 


AVION-ESPION 


CINEMA 


MEMO TEST 


Tl 99/4 A 
(basic simple) 


JEU TOPOLOGIOUE 


ROAD RACE 


LICORNE ROUGE 


CERBERE 


TI-BERT 


Tl 99/4 A 
(basic elendu) 


DONJON. DRAGON 


SOS. ROBIN 


MONKEY KING 


FERNANDO 


ETANDARD, 
EXOCET 


TO 7 


DIAMANTS 


JEREMIE 


PYRAMIDE 


SPIDERS 


PIGEON 



AUX URNES ! 



SOLUTION DE L'HIPPOREBUS: 




in i OR i -- : ros 
iu read x 
30 PRINT CHR5K ;;.' 
46 nt:-:i 

50 Dfi iii 76.73, •'! ■ ? ii€?i r"3,69 
60 EHO 



DATE LIMITE D'EN- 
VOI DES BULLE- 
TINS DEVOTE :JEU- 
D1 6 SEPTEMBRE, 
MINUIT. 



41 



Abandonnez quelques instants vos claviers et prenez vo- 
tre plus belle plume pour remplirle bulletin devote ci-con- 
tre. La redaction d'Hebdogiciel compte sur vous ! 
La marche a suivre est simple : 

- Reperez dans la grille ci-contre le programme pour le- 
quel vous voulez voter ainsi que eelui pour lequel vous vo- 
tez en second (le second nous permettra de rendre plus 
equitable la formule de choix du gagnant). 

- Reportezlenomdecesdeux programmes sur le bulletin 
de vote. 

- Inscrivez vos nom et adresse sur le bulletin de vote. 

- Expediez-le a HEBDOGICIEL. CONCOURS MENSUEL, 
27,rueduGeneralFoy,750O8PARIS,avantlejeudi 6 sep 
tembre a mlnult. 

II est fort probable que ceux qui participent au concours 
feront voter leur papa, leur maman, leur cousineet la tota- 
lite de leurs amis et relations pour leur programme. Nor- 
mal ! Mais comme chacun d'eux fera la meme chose, cela 
n'est pas bien grave ! Toutefois, toujours dans un souci 
d'equite, nous n'accepterons que les C.^IGINAUX du 
BULLETIN de VOTE ; pas de photocopies, cela serait trop 
facile ! 



BULLETIN DE VOTE 



A renvoyer avant le 6 septembre minuit a HEBDOGI- 
CIEL. concours mensuel. 27, rue du General Foy. 
75008 PARIS. 

JE VOTE POUR LE PROGRAMME SUIVANT : 
NOM DE LORDINATEUR : 

NOM DU PROGRAMME ; 

JE CLASSE SECOND LE PROGRAMME SUIVANT : 
NOM DE LORDINATEUR : 

NOM DU PROGRAMME : 

NOM ET PRENOM: 

ADRESSE : 



YAHTZEE 



Ce programme au graphisme superbe (regardez !a 
photo d"ecran) lourne sur APPLE ou APPLE Me, sans 
manette de jeux. 

Les regies du jeu sont dans le programme et 1'utilisa- 
tton est a la fois simple et astucieuse. Vous jouez 
contre I'ordinateur et avec un peu de reflexion, vous 
devriez gagner. Les des en sont jetes! 

Daniel FROYSSfNES 
Mode d' emptor: 

Enlrez d'abord le programme de creation de la table des (ormes 
(tastidieux, mais necessaire!). puis le programme YATHZEE. Toutes 
tes indications necessaires au bon deVoulement du jeu sont dans le 
programme. 

LOnER: 24376: HI-NEMl 32767:UN ■ 511 - TOTAL DE TOUS LES 6,N 

U1E - 0:SIX - 6: PEn YAHTS OITIE.SUPERIEURE 

EE APPLE II.FRAVSSINMES 8 DATA nOITIE. INFERIEURE, fpREL 

1 PRINT CHR» 14) i "&L0A0VAH,A*eo AN (3 DCS 1DENTIOUES) - TOTA 

00" L DCS DES,FULL(3 ET 2 DES ID 

3 AD a 3686*:L.S - *Sl FDR I - AD TO ENTIOUE5) - 23 PTS, CARRE (4 D 

AD * LG - UN: READ Dl RCVE I ES IDEHTlOUESt - TOTAL DES D 

.0: NEIT ES, PETITE SUITE (SUITE DE 4 

• DATA 1*5. 31.41, 127, 168, 166,26 DCS> - 30 PTS, GRANDE SUITE < 

, 173.48, i92.2p>2,208,5.i66.26 suite dc 5 des> - 40 pts 

,173,48.192.165.7.1.240,16.13 9 DATA YAHTSEE I 5 DES 1DENT 

6,208,13.1.48.48,5,198,26,152 IOUES ) - 50 PTS, CHANCE - TO 

,208,5.230.26,41, 127, 168,198 TAL DES DES.PRESSEZ UNE TOUC 

.28.208.224, 198,29. 16. 220. 96 HE — >.• VOUS PDUVEZ RETIRER 

,0 CHAOUE DES SORTIS,* VOUS NE 

3 DATA COPYRIGHT Cf v:D>,23/03 POUVEZ RETIRER CHAOUE DES O 

/ 84, THAWS -ET5L-.VOULE7 VDU UE 2 FOIS.a FOUR SELECTIONNE 

S LA REGLE DU JEU (Of hi — » R LE DES A CHANGER 

6 DATA M»MHIM«M ,« 10 DATA . SE DEPLACER JUSOU'AU D 

• ,• YAHTSEE •,* ES PAR LES FLECHES.- APPUYER 

• ,••*••>*>•*•••. LE BUT SUR RETURN POUR LE RECOUVRI 
DU JEU EST DC REMFLIK UNE GR ft (REVERSIBLE),. DESCENDRE J 
ILLE DE LA.FACON LA PLUS REN USOU'A VOIR APPARAITRE "TERM 
TABLE SELON LES DES OBTENUS. INC',, APFUYER SUR (<E0O SI 
.A SAVOIR OUC VOUS ETES SERVI SINON <SPACE 

7 DATA CASE AS - TOTAL DE TOUS L > 

ES I. CASE DEUX - TOTAL DE TO 11 DATA RENAROUE, 

US LES 2. CASE TROIS ■ TOTAL -.UN CARRE PEUT SE METTRE DA 

DE TOUS LES 7, CASE OUATftE - NS LE 8RELAN LA CHANCE... .LA 

TOTAL DE TOUS LES 4, CASE CIN GRANDE SUITE DANS LA PETITE 

O - TOTAL DE TOUS LES 5, CASE SUITE ....PRIME. .• SI 




TOTAL DE LA HOITIE SUPERIEUR 
E DEPASSE 63 «PRIME»35 
12 DATA ■> A CHAOUE YAHTSEE SUPP 
LEMENTA1RE PLACE =FRlME*10O. 
APPUYER SUR UNE TOUCHE — - 

15 PO^E 232.0: POfE 233.128: ROT- 

I£: SCALE= UN: HCOLOR- 3 

16 HGR2 : GOSUB 350OO 

17 HGR2 

18 HPLOT 9,12 TO 238,12: FOR I = 

13 TO 79 STEP * 111 HPLOT 9 
.1 TO 238,1: NE»T : HPLOT 9. 
flO TO 238.80: HPLOT 9,88 TO 
238.88 
22 FOR I » 89 TO 159 STEP * 10: 

HPLOT 9,1 TO 238,1: NEXT : MP 

9.160 TO 238. 160: HFLOT 9.16 
8 TO 238.168: HPLOT 9.169 TO 
238,169: HPLOT 9.179 TO 238, 
179: HPLOT 9,12 TO 9.179 

25 FOR I ■ 103 TO 169 STEP * 22 
: HPLOT 1.0 TO 1.179: NEIT : 
FOR I - 170 TO 171: HPLOT I 
.O TO 1,179: NEXT > FOR I - 
172 TO 238 STEP * 22: HPLOT 
I.O TO 1.179: NEXT : HFLOT 1 
03.0 TO 238,0 

35 FOR I = UN TO 6:J - J • 13l DRAM 
I AT J. 3 = NEIT : DRAW 6 AT 9 
1.5:D - 57: FOR I - 19 To BO 





STEP • 1H0 • D • UNi ORAM 


•*- 


CA»ii - tsi pop f - io4, eo*TO 


ai 


AT 9o.|, ME1I 1 fJOTO 5© 




10OOO 




» ■ — 


<T9 • 201 IF CIH> - ZE AND 2A 


•2 


F - ASC ( HID* IV*.FF,LM>I 




III • ZE THEN 8D5U* llfOOi ON 




IF F - 39 AND P • -63 THEN 




Zn GOTO 41.1- 




c • F - 6j RETURN 


•10 


IF CAdl • 7E THEN Mfll ■ T 


44 


IF c . a5 trtO F - 90 THEN 




Si POP iv ■ ion BOTO IOOOO 




F « F - 38l RETURM 




IF CI 111 - ZE twfx CHI) - 1 




■ff ■ UN: RETURN 




5: POP ,1 . 63, SOTO 19900 


46 






RETURN 




FOR FF - UN TO LEN iv»i 




Cldl • TSl POP :» - A3i BOTO 


48 


GOSUS" 41: IF NE - UN THEN NE - 




18900 




ZE: NEIT 


430 


CAdl - TSi POP ,V » io4- SOTO 


49 


I » MB * .(FF • Sill: DRAW F AT 
X,V: NEXT : RETURN 




■OOM 




' ■ ■ 


ts • is: :r sin- ■ 7t ano 1* 

d » • ZE THEN GOSU8 1 
CH GOTO 5* .7" 


51 


RB - 10 






FOR Y - 19 TO 74 STEP • Hi SEAT, 


aio 


■r situ - ;e '-em bjih - t 




V»: &OSU& 47: nEit 




S: POP i» * 74; GOTO 10360 


53 


V* - -DEUI-:Y - r-O: SCSUS 4? 




IF *Rd> ■ It THEN KID - T 




V» « -TOTAL (PRIME .33)-:Y - 8 




S • INT ( KMD ill • 12' - 2 




4:S1I - 5: GOSUB 47 




: POP H - 94: SOTO IO0O0 




SIX - 6 




m :.-•■ 




FOR Y - 93 TO 155 STEP . JO: 




SHU • TS:Y - 74i POP i eOTO 




READ v«: GOSUB 47: NEiT 




IO5O0 




511 . J 


sao 


BR(li ■ TS ■ is" . ^*-2 : ■ • 


56 


V» ■ -TOTAL (FKIHZ -IOO'-;V - 




- ~: PTP iy . »4, 6O10 1 




16*:SK - 5: GOSUB 47 






59 


SK • 6:V* - "TOTAL GENERAL": 


„..., 


TS • 16: IF OUIll - It AND CA 




V - 174: GOSUB 47 




(11 • ZE THEN GOSUP llOOOl ON 








CM GOTO MO.490 








IF Willi - ZE THEN mill • T 




3: READ V4: GOSUB 47; Kit 




S: POP sY - 32: GOTO l«9M 




I » 5 


fcjo 


IF CAll) - ZE THEN CAM) - T 




FOR fIG - 107 TO 153 STEP - 2 




S: POP iY • 104i BOTO lOOOO 




3: READ V»; GOSUB 47; NEXT 


A30 


RETURN 


64 


r - 7 


b40 


cum " tsiv - S2i pop i aoTO 


65 


FOR HG • 170 TO 216 STEP * 2 




tosoo 




3: READ V»: GOSUB 47; HCIT 


630 


CA(|| • TS:Y • li>4: POP ■ GOTO 


66 


Y - 3 




lOOOO 


67 


FOR HG - 176 TO 222 STEP • 2 


700 


TS - 15: IF Cllll * II ANT) NR 




3: READ v«: GOSUB 47: NEIT 




(1> - ZE THEN GOSUB II>--': ON 


68 


DATA AS.DEUI. TROIS.OUATRE.CIN 




CH GOTO 740. 730 




0. S I X.8RELAN. CARRE, FULL. PETI 




IF CId) - ZE THEN CI(1> - 1 




TE SUITE. GRANDE SUITE. YAHTZE 




S:V - A3i POF- i BOTO l«rtXi 




E, CHANCE. 1.2.3.ER.HE.NE.1.2. 




IF PRm • ZE THEN BRII) » T 


OT 


3.ER.ME.HE 






69 


DIH A512I.DE(2I,TR(2).0U(2).C 




: POP :Y - 94: GOTO lOOOO 








RETURN 




, PS 12) ,GS (2>.YA[2!.CHI2).n] 1 




Cldl • TSiV • 651 POP : GOTO 




2),HS(2I.TG12>.A0(5>.ND(3> 




10900 


100 GOTO 300O0 


rao 


(Kill - TS * INT ( RNO (1) • 




TS - 24: IF Sid) • ZE AND CA 




121 . 2lY - 94i POP 1 GOTO 1 




(11 - ZE THIN GOSUB UOOO: ON 




.»-■.-> 




CH GOTO 340. 3SO 




TS - 121 IF TR(1) - ZE AND BR 


31C 


IF CAM) - ZE THEN CAdl - I 




III - JE AND CAU! • IE THEN 




S: POP IV - 104: SOTO lOOOO 




CM - INT ( RND in • 7-1 • U 


S2i 


IF SKI) - ZE THEN Sill) - T 
S: POP :V - 74: GOTO 103OO 




Ni ON CH Gulp 850,860,870 


J30 RETURN 




Suitepage 43 


S4C 


SK1I - TS: POP :Y - 74: GOTO 







DAEDALUS 



Le cadre de ce jeu est un labyrinthe (entierement alea- 
toire) de 15 cases sur 15 {dessine en 3 dimensions 
dans une matrice de 120 points sur 120). Le but du jeu 
est de decouvrir un tresor et de le rapporter a la sur- 
face. Cependant, le tresor se trouve dans un coffre 
ferme a clef. Prealablement il vous faudra trouver la 
clef qui se trouve en la possession d'un vieux gardien 
que I'ordinateur deplace de facon aleatoire a travers 
les couloirs. 

Louis Francois RICHARD 

Pour vous aider, vous disposez de 50 points de vie (qui baisseront 
lorsque d'hideux monstres vous blesseront) et surtaut, de gemmes 
magiques que vous decouvrirez sur les cadavres des monstres. It 
existe 5 sortes de gemmes: 

1) Les gemmes blanches vous rensetgnent sur la distance vous se- 
parant du tresor (ne servent qu'une tois). 

2) Les vertes donnent la distance a 1'escalier et ne servent qu'une 
fois. 

3) Les rouges permettent de retrouver quelques points de vie (une 
utilisation). 

4) Les pourpres ne s'usent jamais et vous donnent. chaque tois que 
vous le desirez la distance entre le vieux gardien et vous, 

5) Les jaunes n'onl aucun pouvoir. 

Les touches a utiliser pour jouer sont: S pour avancer. A pour tour- 
ner a gauche, D pour tourner a droite. RETURN pour Irapper un 
monstre, I pour finventaire de vos gemmes et U un nombre de 1 a 
5 pour utiliser une gemme. 




3 LOHEH: 27500: VTAB 23 
10 DIN Cd7.17.4)iIA - INT I RND 
(I) • 15) • 1:YA - INT [ RND 

(1) • 151 • llHP - 50:G» - " 
GEMMES ■|l«t(ll • -BLEUE-IH* 

(2) - '■verie' , :k»i ;i - 'T-nu-j- 

•»tNH4) - •■P0URPRE~|H«'-I - 
-JAUNE" 
' 15 IG - INT I RND it) 



V8 ■ 



INT 



VOUS ETES RESSORT1 • 

... ET AVEC LE TRESOR ! 
•l GOTO 493 



F X - 10 AND Y - YR T1CN tNKM 
: PRINT "VOUS AVEZ DECOUVERT 

LE VIEUX GARDIEN. VOUS LE 

TUEZ ET VOLEZ LA CLEF ■ 



IF 2 - 201 


THEN INVERSE : PRINT 


"INVENTAIRE-l NORPW. : PRINT 


GUIiGtr 


■LEUES-i GOSUB 300 


: PRINT Gl 


2>IG«T- VERTES-i GOSUB 


500: PRINT 


G(3) :B«i- ROUGES" 


i GOSUB TA 


ll PRINT GI4) 1G*1- 


POURPRES- 


GOSUB 5O0l PRINT 


GI5I ig»:- 


JAUNES- 


IF I - 213 


THEN GOSUB 503 


MCOLOR- 4 




HPLOT 81.: 


6 TO 199,561 HPLOT 


81,80 TO 1 


99.B0) HPLOT 81. 12 


TO 199, 1 


20: HPLOT 81.144 TO 


199,144: HPLOT 81,41 TO 120. 


90 TO 120, 


20 TO BI, 158: HPL.OT 


199,41 TO 


60. BO TO 160. 120 TO 


199,1581 HPLOT 96.56 TO 96.1 


44i HPLOT 


84.36 TO 184. 144 


HCOLOR- 7 




IF DI < 1 


1 THEN GOTO 243 


IF CIX.Y.4 


- 1 THEN HPLOT 


81.41 TO "i 


..56 TO 96. 144 TO 


81, 158 




IF C(X,Y.2 


- 1 THEN HPLOT 


199.41 TO 


84,36 TO 18*. 144 TO 


199, 158 




IF C(I.Y,< 


• AND CII - 1. 


Y.I) - 1 THEN HPLOT 81,36 TO 


96.36 TO 96,144 TO B1.144 


IF CIX.V.2 


- AND C(X * I. 




■4EN MF-LOT 199,36 TO 


184,36 TO 


84.144 TO 199,144 


IF CII.Y. 1 


- I THEN HPLOT 


96,36 TO 1 


34,56 10 184, 144 TO 


96. 144 TO 


'6.561 GOTO 43 


IF C(I.Y * 


1,1) • 1 THEN MPLOT 


120.80 TO 


60,80 TO 160. 120 TO 


120, 120 TC 


120.B0 


IF CIX.Y • 


1,2) - 1 THEN HPLOT 


184,36 TO 


60, BO TO 160. 120 TO 


104. 144 TC 


184.36 


IF C(X,Y * 


1.2) - ANO C(I • 


I,V • 1.1) 


= I AND (C1I.V.2! 


■ 1 OR C( 


• i.V * 1.3) - I 


) THEN HPLOT |60. BO TO 184, 


BO TO 1B4. 


20 TO 160, 120 TO 


160,80 




IF C(I • 1 


Y * 1. 1) - 1 AND 


C(X.Y,21 - 


O AND CII • l.Y, 1 


1 - O AND 


;(X.V * 1,21 - THEN 


HPLOT 199 


80 TO 160.80 TO 1 


6O.120 TO 


99, 120 


IF C(X,Y • 


1,4) - I THEN HPLOT 


96,36 TO 1 


-O.80 TO 120, 120 TO 


96.144 TO 


'6,56 


IF C(X.V * 


1,41 - ANO C(X - 



IF CII * l.Y - 1,2) - 1 AND 
CH.V.3I - O ANO C(X * l.Y - 
1.41 - AND CH • l.Y.J) - 

'<N MPLOT 199. 80 TO 160. 
BO TO 160.120 TO 199.120 

IF CII * l.V.l) - 1 THEN IVLOT 
96.36 TO 120. BO TO I20. 120 TO 
96. 144 TO 96.36 
IF C(I * l.Y. I) - O AND C(X • 
I.V » 1,2) - 1 AND (C(»,Y,1) 
- I OR C(X » 1,V * 1.4) ■ 1 

1 THEN MPLOT 96, BO TO 120. B 

TO I20. 120 TO 96.120 TO 96 
.SO 

Y • 1.4) - O AND CII * l.Y, I 
) - O ANO CII « l.Y * 1,2) - 

1 THEN MPLOT Bl.BO TO 120,0 
O TO 120. 120 TO 81, 120 

IF DI < > 3 TMEN GOTO 3BO 
IF C(X,V,2) - 1 TMEN MPLOT 
81.41 TO 96.36 TO 96.144 TO 
81. 138 

IF C(X,V,4) - | THEN MPLOT 
199,41 TO 184,36 TO 184,144 TO 
199. 138 



APPLE II 



IF CII - l.Y • 1.41 - I ANO 
C(X.V.I) - O AND C1X - l.Y * 
1.2) - AND C(I - l.Y. 11 . 
I' TMtN MPLOT 199. SO TO 1*0. 
BO TO 160. 12fi 10 Itf.lH 
IF CII - l.Y, 31 - I TMEN MPLOT 
96.36 TO 120, BO TO I20. 12X1 TO 
96. 144 TO 96.56 
IT C(I ■ l.Y.M - AND C(X - 
I . - 1.41-1 AND (C(X,V,3I 

■ I ORCII.Y - 1,4) - II THEN 
mi OT ''A.nO TO 120,80 TO 12 
O, 120 TO 96, 120 TL1 t4,BQ 

.V. I) - ANP CH - l.Y, 3) - 
O TMEN HPLOT 81.8(1 TO 120.8 
O TO ISO, 120 TO Bl. 120 
GOTO 43 

1NV1F.!;! . MINI Cl«« 17(1 "U 
N iillX ill GfiAliLn r,i JI.1TL BUR 

VOUS ' - I NORMA! 
IOH I - I TO ISOOi NEXT I PRINT 
->IL VOUS FRAPPF...-!: PUKE 

- IA36B.0 
IF RND (11 I .73 TMEN PRINT 



20 FOR I - 10 16i FOR J - 1 
4iC(0, I.J) - HC(16. I.J) • 
itU.n.Ji - 1 tC'l . 16. Jl - 
NEXT i NEXT 
25 FOR V - I TO I5l FOR X * I 
I5lCI*,Y,ll - INT I RND 1 
« .411 lCIX.Y.2) - INT ( I 



73 NORHAL 



30 FOR 1 ■ 
■ C(15, 



(I,V,4) - C(X - I.V. 2) 

i NEIT 

1 TO 15iC(I. 13, I) - 1 
1.2) 



HONE t VTAB 
231 NOR i MCOLOR- '■ MPLOT B 
0,40 TO 80,159 TO 200,159 TO 
200,40 TO 80.40 

40 OOTO 173 

43 POKE - 16368,01 INVERSE i IF 
RNO II) > .92 THEN GOSUB 4 
SO 

30 IF I - "A ANO Y - YA ANO F - 

O AND CL - 1 IHEN F - ll PRINT 

CMR« '71 I "LE COI I I'l DU IM '■ 
OR EST LA... LA CI 

EF DU VIEUX QARDK.N vuu;, I I '■ 
MET DE L'OUVRIR I LE TBEB 

OR E9T A VOUS ' "I 

33 IF I - tO AND Y - VA ANO F - 
AND CL ■ O THE" INVERSE 






I ■."■ 



60 IF X - 3 AND I - ' D ' 

, 1NVI r.'jl : FI'IIH I.IH" 

CMR» 171 I CM* "1 I rr 



PEEK ( - 167.1 
IF 1 < > 196 AND I < 
1 AND I ' > 193 AND I '■ 
201 AND I '. > 213 OOTO ; 
F 1 - 196 TMEN 01 - DI • 
"VOUS TOURNEI A DROME"! 
DI • 4 THEN 01 - I 
F I - 193 TMEN DI - DI - 
-VOU9 TOURNE/ A OAUCME-i 
DI 1 TICN 01 - 4 

• RNO I 1 ) 1 02 - RND I 1 : 
F 1 - 211 THEN IG - IG » 



IF 10 , 13 IMEN XO - 
IP ir, I THEN XO - I 

IF YO ', 1 TMEN YO - 1 

ip yo I 18 "* " '" - 

IF / - 211 AND C<«,V. 

AND DI - 1 1HTH Y - 
-VOU*l AVANCE7-I GOTO 
IF / - 211 AND C(|,Y,OII 

ANO DI - 2 THEN X - X ■ 
■■jfiu'. AVAHI i : ■• i, urn l /,. 
II / - '.'1 1 AND CIX.Y. di; 

' Ill "'I 'I i - V 

■viiiv. HVAM ' I"i SOTO !'■• 

IF / - :\ 1 AND CIX.Y. DI 
AND DI - 4 TICN I a I ■ 
"VOUB AVANCET'I OOTO 16' 

ti .• - .'! i <"-)in r:<». y.di 

IHEN PRINl "OH. UN PAIR 



- 1 OR C(X - l.Y * 1,3) - 1 
) THEN "PLOT 96,80 TO 120.8 
O TO 12O.I20 TO 96,120 TO 96 
.BO 

IF CIX.V • 1,4) - O AND C<X - 
I,Y • 1. II - 1 AND CIX.Y, 4) - 
O AND C(X - I.V * 1,3) - O TMf 

MPLOT 81,80 TO 120.80 TO 12 
O. 120 TO 01,120 
GOTO 43 

IF 01 ' > 2 THEN GOTO 3IO 
THEN MPLOT 
6.36 TO 96.144 TO 



. I5B 



l.i, 



IF C(l 



ir cot,*.: 

96.36 TO I 

•II,, 1*4 TO 



HPLOT 



6.36: 



1B4. I 
DTO 4T 



HPLOT 
I60.BO TO 16". 130 "I 

•: IM.OO 

,V,31 • I TMI H 

If,..."., til 16.,. IV Ill 
1 104,34 
,Y. -,J - ANIi I '■ ■ 
- 1 AND ICd.Y, •■) 



IF C(I,V.2> - AND CII * 1. 




-ET TOUCHE "iHP • HP - INT 


V.3I - 1 TMEN HFLOT 81,56 TO 




1 RND 101 • SI ! IF HP < (. ll«N 


96,36 TO 96.144 TO 81.144 




INVERSt i PRINT "VOUS ETES 


IF CIX.Y, 41 - AND C(X - 1. 




PIORT ■"! GOTO 493 


V.31 - I TMEN HPLOT 199.56 10 


465 


IF RND (0) < - .73 THEN PRINT 


IB4.36 TO 104,144 10 199,144 




"F I I-A1C •" 






IF fltl ( - 163B4I < • 141 


IF C(X,Y.3I • 1 TMEN MPLOT 




GOTO 470 


96,36 TO IF14.56 TO 1B4.I44 TO 


4 73 


PRINT "VOUS LE FRAPFEI...-H 


96.144 TO 96.36! BOTO 45 




IF F.ND (11 ■ .6 THEN PRINT 


IP C(X,Y - 1,3) - 1 TMEN MPLOT 




"ET RATE? '-i GOTO 433 


120,80 TO 16O.B0 TO 16O.120 TO 


4 BO 


INVERSE i PRINT "El LE TUCt 


120.120 TO 120, BO 




' " 1 NORMAL 


IF CIX.Y - 1.41 - 1 THEN HPLOT 


4B3 


PRINT "IL VOUS ROTE -iHPi- 


184,36 TO 160,00 TO 160,120 TO 




POINTS DE VIE"! FOR I - 1 10 


184. 144 TO 184,56 




20001 NEXT 


IF CII.Y - 1,4) - AND CII - 




PRINT "IL POOOEM UNE 01 nni 


I.V - 1.31 - 1 AND (CIX.V. 41 




DE COW EUR "1*1 • INT I RND 


- 1 On CII - l.Y, 31 - II THEN 




II) • 3) * ll PRINT H«(I) tOI 


MPLOT 160, BO TO 184.80 TO 1 




2) a 0(71 . ll MTum 


04,120 to 1*0,130 TO 160,00 


493 


ROTO 495 


IF CII - 1,V - 1.3) - 1 AND 


•,.,., 


FOR 1-1 13001 NEIT i FIETURN 


CIX.V.4I - O AND CIX - l.Y - 






1.11 - AND CIX.V - 1,4) - 


503 


2 - FEE» ( - l6384)tBE - I - 


Tl'FN HPLOT 199,80 TO 160, 




176i IF r,F O OR RE > 3 OOTO 


BO TO 160.120 TO 199,120 




303 


IF C(X.V - 1.21 - 1 TMEN MPLOT 




II fllMl < 1 THEN PRINT "AU 


96,56 TO 120. BO TO 120,120 TO 




CUNE GEHNE DE CETTE C0ULE1A 


96. 144 TO 96,36 




'"1 I.I ILIM1 


IF CH,Y - 1,2) - O AND CIX • 


313 


IF HE - 4 TltN PRINT *LE VI 


l.Y - 1,3) - 1 AND (CIX.V.2) 




6UI GARDIEN EST A "| INT ( SDR 


- t OR CII ♦ I.V - 1,1) - I 




(IX - X01 • II - 10) • IY - 


) THEN MPLO! 96.80 TO 120.8 




YB) • IY - vG) • 2 • RNO 11 


TO 120,120 TO 96,120 TO 96 




)))t" CAr>rr, 


.GO 




II M * IMTN RUIFI » 01 


IF CII.V - 1,2) - AND C(» * 




(ii i i 


I.V - 1,31 - 1 AND CII.V, 2) - 


338 


IF GE - 1 THEN PRINT "IE TR 


AND C(I * l.Y - 1,1) - 'J TMEN 




1 ,111. 1 Bl A "! INT 1 SOR 1 II - 


HFLOT 81. BO TO 120.80 TO 12 




IA) • II - XA) * (V - VA) • 


O, 120 TO 81, 120 




IY ■ YA)))I" CASES" 


OOTO 45 


HO 


11 ■ - :• 'HEN PRINT "L'EBC 


IF DI ' 4 THEN GOTO 43 




Al MR Kll A "1 INT I !iOR ((X 


IF CII, Y, Jl - | THEN Mfllll 




- 3i • II - 3) • (V - 31 • 


81,41 TO 96.56 TO 96.144 TO 




(V - 3))l 1 p km ■ 


8 1 , 1 3B 




IF GE • Z THEN MP - MP 4 INT 


IF CIX.V, I i - i Turn HP! tit 




1 l;N|> 11 ) • 4) • It PRINT "V 


199,41 TO 184,56 TO 184.144 TO 




OUS AVE1 A PRESINT -tHPi" PO 


199. |3B 




IHTI 1" VIE" 


T F C I I , Y , .3 ) • ANO C 1 X , V - 




RE TURN 


1.4) - | THEN HTLOT B1.56 TO 
96,36 TO 96,144 TO 81.144 


-,*•, 






IF CIX.Y, 1) a AND CIX.Y • 






1,4) - 1 Ihtn HFL01 199,5* TO 

184,3* TO 1B4.I44 TO 199,144 




k^oj ■ Ay 


ir cil.v, 41 - i thf'n HPi.OT 




t£c.c? A> 


9A,BJj Til |04, - ■■ ill lf]«. 144 TO 




96,144 TO t*,S*l OOTO 4^ 






Ii i ' ■ l.Y. 4) • 1 THIN "H 1 111 






i i, ro 1*0,00 "i 1^". iso to 






130. 130 M) 120.80 






II ■ ■ l.Y, II a I ll* N MPLOT 




' VjL ^ -I - jT 


in*.-,/, ro i*o,oo i" "••'. i2o hi 






104. 144 r0 104,3* 




.» * ^ '^ 


IF CII - I.V, 11 - i. AN[) CI ■ 




i.y . |,4) - i and icix.v, ii 


m 


\ vpppk vppfe ■ p^ppppp ■ a 


i CtH.Y • i.4> - ii '"I a 


§ 


i nni 


hi i ni i*o,oo ro in*. .I., in i 


L 


Av'vp'l r" 1 


11. 1 ... Ml HI*. 1 :■<! Ml imp. I.'.p 


r 


**■ LL 1 
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CARMINO 



Ce jeu est un casse-tete ou il s'agit d'effacer un dessin 
cre6 aleatoirement par I'ordinateur a I'aide dun motif 
choisi par le joueur. 

J.P.VANSEYMORTIER 
Mode d'emptoi: 

Les joysticks el les boutons poussoirs sonl utilises pour manipuler 
tes motifs, il y a 1500 dessms diflerenls par motil et le pfobteme 
possede toujours une solution. L'ordmateur assure le decompte du 
temps et du nombre de coups. ainsi que des meilleurs scores (sur 
fichier). II est possible de definir ses piopres motifs en realisanl une 
autre table de formes. 




. 114.3.72,4 

10 DATA 26, 3. 233,3.181.6.133. 7. 63. 63. --4, 

34,62,16, 60,94 

JO DATA 62. 36,60.34, 62. 36, 36, 55. 54. 54.39 

.36,36,33.34,34 

40 DATA 39,36,36.35.54.54.39.36.36,60 34 

.34,34.62.36,36 

30 DATA 36.60.34.34.34.62,0,0,43.43,43.4 

3,43,43.45,43 

60 DATA 43. 33. 63. 63,63.63.63.6:. 63. 63.63 

,33,43.43,43.43 

70 DATA 45.45.43. 45. 43. 53. 63, 63, 63. 63,-63 

,63,63.63.63.35 

BO DATA 43. 45. 45. 45, 45. 45, 43. 45. 43. 53. 63 

.63.63,63,63,63 

90 DATA 63.63.63.55,43,45.43.45,45,45 45 

,43,45.33.63.63 

lOO DATA 63,63.63.63.63.63.63.35.43,45.4 

3,45,45,43,43.43 

110 DATA 45.53.63,63.63.63,63.63,63.63,6 

3,33,45,45.43.45 

120 DATA 45,45.45,43,43,33.63.63.63,63.6 

3,63,63,63.63,33 

130 DATA 43,45.43,45.43.43,43.45.43,53,6 

3.63,63.63,63.63 

140 DATA 63.63,63.53.43,45.45.43.45.43 4 

5.43,43.33,63.63 

130 DATA 63.63,63,63.63.63.63.33.45.45,4 

5.45,45.45,45.43 

160 DATA 45.53.63.63.63.63.63.63.63,63.6 

3.35,45,45,45.43 

170 DATA 43.43,45,45.45,53.63.63.63,63.6 

3,63.63.63.63.47 

180 DATA 0.0.54,54,54.54,34.34,34,54.34. 

34,54.34.34,34 

i 34.54,54.54,34.46,36.36.36,36.3 



20O I 



16,36.: 



.36,36,36.36.76,36.44.5 
, 54 , 34 . 34 . 54 , 54 . 34 , 54 . 3 



210 DATA 34,34 

4.34,54,46.36,: 

220 DATA 36.36,36.36.36.36.36.36,36,36.3 

6,36.36.36.36.36 

230 DATA 36,44.54.54,54.54.34.54,34,34.5 

4.34,34.34,54.54 

240 DATA 54.54,54,54.54,46.^6,36.36.36,3 

6.36.36.36,36.36 

4,54.34.34.34.34 

260 DATA 54,54,34.34.54.54.54,34.34.54.3 



P DAT1 



:6.36 



i . 34 , 34 , 54 . 54 . 54 . 31 , 54 . 3 

4.54.54,54.54.54 

290 DATA 54,54,54,54.34,46,36.36.36,36,3 

6,36.36.36.36.36 

300 DATA -6.36.36,36.36.36.36.36.36,60.0 

,0,45.45,43.45 

310 DATA 53.63.63.63,63.55.45.45,45.43.3 

3,63.63,63.63.55 

320 DATA 45.45.45,45.33,63.63,63,63,55.4 

5,45,45.45,53.63 

330 DATA 63.63.63.35.43.45.45.45.53.63.6 

3,63.63.53.45.45 

340 DATA 43.45.43.45.45,45,45,53,63,63.6 

3.63,63,63,63,63 

330 DATA 63.53.45,45.45.45.45,45.43,43.4 

360 DATA 63.63.63.63.63.55.43.45,45,45.4 



370 DATA 63,63.63.63,63.63 
5.45,45,45,45,45 

3B0 DATA 43.43.45,33.63.63 

3.63,63.55.45.45 

S90 DATA 43.43.45.45,43.45 



45.45.43. 
63.63.53. 



400 DATA 63.55. 

3, 35, 45. 45. 43,' 

410 DATA 33.67. 

3.63,63,63,63.55 

424) DATA 45.43,43,43.53.63 

3.45,45.45.53.63 

430 DATA 63.63,63.55.0.0.3' 

440 DATA 36.36.36.36.36,36 



470 DATA 36.44.54.54.54.; 

4.46.36.36.36.36 

4B0 DATA 36,36,36,36,36,- 

4.54.54.54,54.46 

490 DATA 36,36,36,36.36,: 

146, 146, 146,34.34,34 

300 DATA 54,46,36.36.36,; 

4,46,36,36,56.36 

510 DATA 44,54,54.54,54,46. 

4.54,54,54.54.46 

520 DATA 36,36.36,36,44 



530 DATA 54,54.34,46,36.36. 

4,34.34,46.36,36 

540 DATA 36.36.44,54.54,54 



550 DATA 34.46,: 



• DATA 44.0,34,54.: 
.,36,36.36,36 

• DATA 36,36.36,36, 



5BO DATA 36,36.36.36,36,: 



600 DATA 34.54,54.54.54,54 

6,36,36,36,36,36 

610 DATA 36,44,54,54.34,54 

4,46,36,36,36,36 

620 DATA 36,36,36.36,36.111 

146. 146, 146,30.54,34,34 

630 DATA 54.37,36.36.36,36 

4,37.36.36,36,36 

640 DATA 53,54.34,54.54.37 

3.54,34.54,54.37 

650 DATA 36,36,36,36,53.34 



219 



660 DATA 219.219,219.219,2 
62. 36. 36, 36, 36.60. 34 
670 DATA 34.54,34,62.36,36 
4,54.54,62,36,36 
690 DATA 36,36,60,54,54.34 
1,60,! 



690 DATA 54,62,36,36,36.36, 



i DATA 36.44,54,54,34,54 
14,34.54,34.34 

' DATA 46,36,36,36,36,44 



720 DATA 54.34,54,34.46, 
146. 146. 146,54,34,54 

730 DATA 34,46,36.36,36, 



63.63,63,55.4 
63,63,63,63.6 
45.53.63.63.6 
53.63.63,63.6 
43.45.45.45.5 
63.63,63.55.4 
.34.54,54.54. 



44.54.34,34,5 
36.36.36.36,4 



36,36.44,34,3 
34,46,36,36.3 



4.54.54,34,54 
54,54,34,54,5 
36,36,36,44,5 
36,36.36,36.3 
54.46.36,36,3 
54.54.54,54,3 
., 146. 146, 146, 
53,34.54.54,5 
36,36,36.36.5 
34.34,34,37.3 
■,54,34.54,54, 



36,36,60,34,3 
54,62,36,36,3 



32,0,54,34.54 
46,36,36.36.3 



56,36,36, 116, 
44,54.34,34,5 



«,46. -6.36. M, M 

740 DATA 44, 34. 54, 34. 34. 46, 36. 36. ^6. 36.4 

4.34.54.54,54,46 

75" DATA 36.36. 36.36.44.34,54,54,54.46.3 
6.3b. 7-=. -6. 116, 146 

760 DATA 146, 146.54.54,34,34,46, 36. S&, it 
44.54.54,34,34 

DATA at. 7 6. 36. 76. 36, 44,54.54,54,54.4 
1, 36.36.36,44 

DATA 54.54.54,54.46.36,36.76.36.44,3 
i.54, 54, 46.36 
DATA 36.36.36. 116. 146.146. 146,34.34. 



1.34.46.3 



DATA 44,54.34.34.54,46.: 
.34.54,54,46 
DATA 36. 36, 36, 36, 44, 54,; 
i.36. 36.44,54 
DATA 54.54.34,46.36.36,36,36.32.0.54 
54.54.46.76 

DATA lb. --6. 36. 44. 54. 54. 54. 54. 46.36. 3 
1.36.44.34,34 
DATA 54.54.46.36.36.36.36.4 4,54,54,3 




















HSO DATA 36.36.36.44.54,54.54,34,54,5 

4,54.54.46. 36. 36 

B90 DATA 36.36,36,36.36.36,36,44,34,3 

4,54.34.54.54.54 

90'.' DATA 54.46,36.36.36.36,36.36,36,3. 

6.44.54,54,54.54 

910 DATA 54.54,54.54,54.46. 3b. 36. 7s. 7 

6. 36.36.36.36, 1 16 

720 DATA 146,146.146.146.146.146.36.3. 

6.36.44.54.54.34.34.46 

V30 DATA 36.36,36.36,44.54.54.54,54,4, 



940 DATA 54. 
4,54,54.46,: 
950 DATA 36. 
.54.54.46.34 
960 DATA 36. 
6,36,44.54.? 
> DAT< 



4,54,46.76.36.76.7-6.44.54.3 

6,44,54.54,34,34,38.0.54.34 

36 

6.44,54.54.54,54.46,36.36,3 

6.36.36.36.36.44,34.54,54,5 
1.46.36,36,36.36 

24. 1,32.36.36.76 

990 DATA 36,53.54.54,54.54,37.36.36.36.3 

6,53.54.54.54.54 

1OO0 DATA 37.36.36,36.36,53,34,54,34.34. 

37.36,36,36.36,33 

1010 DATA 34,54.54. 54. 37, 36, 36. 36. 36.33. 

54,54,54,54,37,36 

1020 DATA 36,36.36,53.54,54,54,54,37.36, 

36,36.36.53,54.54 

1030 DATA 54,54. 37, 36, 36. 36, 36, 53. 34, 54, 

54,34.37,36,36,36 

104O DATA 36,33.34,34,54.34.37,36,76.76. 

36,53.54.34,54,54 

105O DATA 79,50.54,34,54.34.37,36.36,36. 

76,53,34.54,34.54 

1060 DATA 37.36.36.36.36.53,54,54,54,54. 

37,36.36,36,36.53 

1070 DATA 54,54.54,54.37,36,36.36.36,33. 

54,54.54.54,37,36 

1080 DATA 36.36.36,7.0.54,34.34.54,46.36 

1090 DATA 54.34.54,46,36.36,36,36,44.34. 

54,54.54.46.36.36 

1100 DATA 36.36.44,54,54.34,34.46.36.36, 

36.36.44,34.34,54 

1110 DATA 54.46.36,36.36.76,124.1.73.76. 

36.36,36.53,54.54 

1I20 DATA 54,54.37, 36, 76. 36.36.33.34.34. 

54.34.37.36.36.36 

1170 DATA 36.53,34.54,34.34,37.36.36.36. 

76.53.54.34.54.34 

1140 DATA 37,36,36,36,36.33.54.54.34,34. 

79.30,34.34.54.54 

ItSO DATA 37.36,36,36.36.33,34.34.54.54. 

37.76. 36,36.36.53 

1160 DATA 34.34,54,34.37,36.36.36.36.33. 

34.34.54.54, 37,36 

1170 DATA 36.36.36.53,54,54,54.34,37,36. 

36,36,36,223,219,219 

MHO DATA 147. 146. 146. IB. 34. 34. 54, 54. 63. 

36. 36,76,36,60.54.54 

1190 DATA 54.54,62.36,36.36.36.60.54.54, 

54,54.62.36.36.36 

1200 DATA 36,60,54,54,54.54,62.36.76.36, 

7.6,60.54.54,54.54 

1210 DATA 6Z. 36. 36. 36. 36. 44. m. 209 

I220 D»-CHR*<4> ;AD"3J28 

1230 FOB I ■ O TO 1927 

1240 READ 1 1 POKE AD* I,* 

1230 NEXT I 

1260 PRINT MI'BBAVE CAIT11N0*&HAPES,A332 



3 Din set to* 

tO TEIT : -o-€ 1 

"O-OAOCARf IMO*=-*fte-it . .- . 

20 FOFE 232.0i PO*E 23 - 
30 GOSUB 1000O 

«0 GOSUP UOOO 

47 C^EAft , TE1T , HO-t iMT> . 9. SOSU» 
IBOOOt DOSuB 2OO0O 

«5h ■ int < bub (I ' • «. - : if 

H ■ 3 OR M - » - 
47 MOW : HGR2 r Mift ■ -COLOR- h 

SO HFT.OT O.Ol CALL 62434- 

OiVO • BO:0 • 2 
60 SCALE- l! ROT- t> 

70 Gosue irooo 

75 VTAB 23: rBlfTT -Tjce. ,,-„ ;au 
c->e pour t»r«mf 1* aartta 
et itODBrf If r--o"&-»t »p-; 

BO GOSU9 1SOOO 

90 aosue 17000 

10O GOSUB KOOO 
110 GOTO SO 

7' ■ --""•_; :=■: 

310 GOTO 42 

B09O rem SCORES REPEEES POUR LE 

S C0MMENTA1RES 
9000 Ml - 980O:N? • 9670: M3 ■ 937 

OiN4 - 930O)N3 ■ 8930: Ne> • 8 

450: RETURN 
9010 Ml - B730;N2 - B2lO)M3 - '16 

0:N4 - 37SO:m3 • 3580:'.,- • 2 

60: RETURN 
9020 Ml - 8210:N2 - 7160:M3 - 378 

0:N4 - 403O:M5 - l97JO:N6 - - 

15801 RETURN 

9999 REn PRESENTATION 

10000 HOME ■ VTAB 10: POvE :.. 
10010 FLASH : PRINT 

10O20 PRINT -.... •••. 

10030 PRINT -. ...... 

10040 PRINT "• ...... 

10030 PRINT "* •**• .... > 

10O60 PRINT "• . . . , . 

10070 PRINT ■'•••• • • • > • 



Ir 11/2/B3" 
10110 FOR T - TO 3000 1 NEXT : FOE 

32.0 
1012O RETURN 
I 10O0 SPEED- 130: PRINT : PRINT 

: PRINT -L* but du jfu ■•-.! d 

11010 PRINT -ti(mn« » l'«id* d'u 
11020 PRINT j PRINT ■■•• CM0I1 Dii 

noriF:" 

11030 PRINT : PRINT ■ Le bouta 
n(I> 4*it o.iiUr 1 e* mj) 1 1 ■. 



11030 PRINT : PRINT i PRINT ' 

OSE DU MOT IF:" 
11060 PRINT 1 PRINT ■' Le ,< 

icl depldce 1* mnlll" 
i 1070 I RIOT ■' u boutonf I 1 

HOBO PRINT " L* bout onto) 

»»• prefid 1* motl»" 

1 109O PRINT - Le botitonlO) 

jii-iic pDir le *ut I I " 



111 10 PRINT "login." 

11140 PRINT : PRIN1 ■ IAPER 11N 

E TOUCHE POUR CONTImim 
11143 PRINT -it*prr I pour ,m 

tl*I llir le liilupr l"| 
11150 GET R«t SPEED" 233 
11133 IF R« - "I" THEN GOSUP 21 

OOO 
11160 RETURN 
1119? REM CHOIX DU MOTIF 
12000 IF PEEK t - 16286) > 127 



12003 IF D : 



■ THEN D ■ 



Suite page 44 



APPLE II 




YATHZEE 



Suite de la page 42 



BIO IF TRlll - IE THEN TRM) = T 

Sl¥ - 41: POP : GOTO 1O3O0 
B20 IF BR«i> -' ZE THEN BRM) - T 

S - INT < RND tl> • 12) * 2 

:Y m 94: POP : GOTO IOOO0 
B3" IF CAMI - ZE THEN CAM) - T 

S:V ■ 104: POP : GOTO 10000 
840 RETURN 
B30 &R'i' - INT ( RND £1) • 12) * 

2 * XStV » 94: POP I GOTO IO 

000 
860 TP.tl) - TS:V - 41: POP : GOTO 

10500 
B7^. CA(l) - TS:Y - 104: POP : GOTO 

1 0000 
900 TS - B: IF OE ( 1 ) - ZE THEN DC 
(I) - TSiY - 30i POP I GOTO 
1O5O0 
920 IF CA!1> - ZE THEN C«(t) - T 

S:T - 104: POP : GOTO 10000 
930 RETURN 

1000 IVf. - ' RND (1) • 10) * UN 

1001 ON ZZ7. GOTO 1010,1020,1030, 
1O4O.1030.11O0. 1130, 1200, 123 



IO 



. IV. ■ 



RND 



■ UN) 



1006 IF ASU) - ZE AND ZZ7. - 3 
THEN 1050 

1007 IF DE(l) - ZE AND IZX - 10 
THEN | 1 100 

1006 RETURN 

IC10 IF CAU) ' ZE THEN 1900 

1011 GOSUtf 1005 

1015 HAM) - ZIV.-.Y - 10«iV» - STR1 
(CAU)): OOBU* 47: GOTO 1 70O 

1020 IF &RI1) Ig fHCN IBOO 



47: GOTO 1700 
ZE THEN 130O 

STfi» 



/AM 



- TS:' 



14 



» IF FU(l) ■- 
I GOSUB 1003 

t FUM) - MXtV - 114-v» - 
<FU(I) ): GOSUP 47: GOTO I 



'• IF CHtl ) ZE TMFN 1500 

I ^JOSUB 1005 

? CH(I) - ZZZ:Y « 134:0* - STR« 
(CH(|)u r.OSUB 47; GOTO 1"";, 

J IF AS(l) ZE THEN 1300 

1 ASM! - 5:V • |9:V* - STR» 

(ARdlfi 0OSUB 47: TM - 5: GOTO 

1 600 

"i IF DEil) IE IHEM ISOO 

■ DF'l) - IO:V - 70:V» - 3TF-* 
'DEMI): GOSUR 47: TN - |0l GOTO 
l*rtO 

I IP TAfll 7E THEN 1300 

I rHU) • 15: V ' 41lVi ■ SIF4 
(TR(l)ll OOSUe 47: TM ■ 13: GOTO 

■ ft cum i /f. FHEN ISOO 

■ OlIU) - 20<V ' 37:'/4 - 9TR« 
(OUClfll GOSUP 47s TM - 20: GOTO 



i IF TS - 50 AND VAt 

TS - 100: GOTO 1 OOO 
) IF TS • - 40 AND TS ■ 

1 AND GSMi - 

OsGSMI - TS:Y - 134: GOTO 1 

oooo 

I IF TS - 24 AND TS < - 2 

6 ANO FIJI1) - ZE THEN TS - 2 
3:FU(1> - 25lV - 114: GOTO I 



) IF TS > "29 AND T3 < - 3 
1 AND PS(I) - ZE THEN TS • 3 
OlPBCl) - TS:Y - 124: GOTO 1 

. Qri TS r,0.5LJB 3100,5100,3100, 
3100,3100.3100,300,400,500,6 
00,700,800.900 

■ NFXT 

', IF I - 5 THEN 6000 



GOTO 100 




s r.A 1 1 ) - 


- UN: GOTO 10000 
- UN AND PS 


1 - TS THEN 




1) - ZE 


HEN V - 124:TS - Z 

- uni boro mom, 


S '■ - 4 
N TS - 4 




IF ASM 


- UN AND AS 




11 - ZE 
ASMI - 


HEN Y - I9[T5 • ZE 
- UN: GOTO 10900 



i TS ■ 



TS 



IN' 



tl r|, 




ZF 


THEN I30O 


1 M) - 






'/• - &TR» 


CI til) 


GOSUB 


4/ 


TM - 23: 


GOTO 


6> x i 










ip ai i 




IF 


THEN (SO 




un • 




74 


V4 - ST 




SI Ml i 


GOSUB 


4 7 


TM - JOl 


GOTO 












GOTO 60 IO 








f . 9TR* (MS 




:V - B4: 


HCOLOR 


GO SUP 


7 c «r 01. OR 


SlMlll 




ill) . TM:V» - 


STIi* (BSM 




BOBUS 


4 1 1 liO 





.80o 




n • Zl 


|V4 - 


!iTfi« (HI Ml 




' ■ 1M 


HCIILOR- 


't : OQSOE 




i HCOLOB- Jin 




- Ml M > 






'.rr.i 


Ml 


His OOWJt 


/: (10 T 


IBOO 












1) 


: Hi. Ill Hi' 






74 1 GOSOR 




TR- 


--: IGM 1 


- run 








BTR* (TGti 


,! 


0OBUB 4/ 


(.(] Mil. 


R8n - 


•PftOH 


»B1 


NtriPAL— 




FOR I 


UN Hi 








TS - 1 


IT 1 RND ( 


1 ) • 3m 




IF TS 


30 AND Y 


AM ) - ZE 


THEN 



SISO RETURN 



, i-i | URN 

I IF CHI 11 - 

u rs 

• (,"' II ■ T3> 



[ RND M) 



E THEN DEM) 



- Ig THEN 
■ I44|T 

F 03 M 



GOTO 105OO 



..EN 601 

0010 10< 

IN ANO YA' 

BOTH. tOt 

- UN t 



Inlrj r - 174:TS - IE. 
:GSM) - - UNI 0010 10000 

IF CAM) UN AND CA( 

11 - ZF. rMEN Y - 1041 T3 • ZE 



4060 



I AND F 



ZE 1 



■ ZE 



GOTO I' 

607* IF BRM I - - UN AND BR < 

1) - ZE THEN V - V4:TS ■ ZF: 
BR Ml ■ - UN: GOTO 1 0500 

60S'- IF DEM ) - UN AND DEI 

I) ■ ZE THFN Y • 30: TS • ZEi 
DEM ) ■ - UNs GOTO 10800 

6090 IF TRM) < >•- UN ANO TR ( 
1) - ZE THEN V - 41:TS - ZE: 
TRM I - - UN: GOTO tOSOO 

6092 IF 0UM1 ■ - UN AND OU < 

I) - ZE THEN Y - 52s TS ■ ZE: 
OUIII - - UN: GOTO I050O 

6094 IF CIM) ■: ' - UN AND CI I 
I) • ZE THEN Y » 63s TS - ZEi 
CI Ml - - UNi GOTO IOSO0 

6096 IF Sit I) ' > - UN AND SH 
I) - ZE THEN Y - 74: TS - ZEi 
SI Ml - - UN: GOTO 10SO0 

6098 IF CHID • ZE THEN TS • INT 
( RND Ml • 291 * UN: lY - 13 
4:CHM) - TS: GOTO 1000O 
0000 V4 - STR« (TS)l GOSUB 47 
0100 V4 - STR4 (MIMMiY - 1 64 1 

HCC1L0R- ZEi OOSUB 47i HCOLOR- 

0120 niu> - nun * tbiv» - str« 

IMIUIl! GOSUB 47 
0130 V4 - STO* (TO(l))iY - 1 74| 

HCOLOR- ZEi GOSUB 47: HCOJ '»>- 
3 
0140 TOM) - TOM) * TSsU« - 3TR4 

(TOM)H GOSUB 47i RETURN 
030O V4 - STR4 ITS) I GOSUP 47 

,00 V4 • 9TR4 inSIDIiV • 04i HCOLO 
:- ZEi OOSUP 47i HCOLOR- 3 

0620 MSMI - MSMI • TB 

0621 IF M9I1) i - 63 AND M3 - 
ZE THEN MS - UNiMSMl - H9 1 1 
) • 331 TS - TS * 33 

■ BTR4 IMS I 1 1 I i BOflUI * 
7 
0630 V» - BTR4 IT0(1))1 HCOLOR- 



I 1000 CH - INT ( RND ( I I • : 

UN: RETURN 
20000 HCOLOR- ZEi DRAW 64 A 

i HCOLOR- 3s RETURN 
20003 A - PEE)- ( - 16384) - 
20O1O IF A - 21 THEN POt E 

368.0! coin 20090 

20020 IF A - O IMF" I CD I 

68.0: GOTO S 

20O30 IF A » 13 THEN POKE 

368.0: GOTO 20130 
2OO40 GOTO 200O3 
20030 GOSUB 20O00 
20060 IF Y - 74 THFN Y - 111: 

10 
20070 IF V - 134 IHEN Y - Bl 



20120 IF I 



20140 DRAW 64 AT 4,Ys BOTH 1 S 

20130 HCOLOR- ZEi DRAW 64 AI «.« 

s HCOLOR- Si RETURN 
21000 FOR I - UN TO 5:1 - INT ( 
RND Ml • 3I«) » UNlAO(l) - 

Ti NEXT 1 00TI1 17000 
I ISOO 1 - INT I RND Ml " 81*) ♦ 

UNI RETURN 

22000 A - PEEK < - 163B4I - 1 2E1 

22001 IP A - 27 AND It - UN AND 
C - 3 THEN 22700 

22002 IP A • 32 THFN 32400 

22003 IF A - ZE AND TI - UN I'M N 

22010 IF A - fl THTN Ti ■ /i : BOTO 

23100 
22030 'if a - 21 'Hi" Ti - tti GOTO 

2220O 

B»» no. i '. mi N n I ffl 

■ -,... 
22OS0 BOTO ! 1 

22100 l<H I. 16761)."! H C - UN 

THEN C - !H« 
.il DLOn* '-'i P' ,nw ,: ' ** '• Vl 

C - C - tWl V - 4-I- 

21 i HC( 

- >i ... rjRAM .' ■ ..i • . ■ : ' ■"■ 



Stntr ;m.;i> J'' 



43 



REC0RD1-REC0RD2 



Ce programme permet de gerer un fichier a acces di- 
rect (longueur d'un enregistrement ■ 100 octets) qui 
contient tous les renseignements relatifs au record eta- 
bli par I'utilisateur pour un jeu donne. (Nom du record- 
man, date, score). Ce programme est axe sur une utili- 
sation simple pour chacun. 

Philippe COMMETS 

Pour adaoter ce programme aux APPLE II. et APPLE 11+ , H suffira 
tors de son entree au clavier de remplacer loutes les letlres minus- 
cules par des teltres majuscules. Une aulre modification s'impose 
aussr seul IAPPLE He possedant la touche DEL, il est necessaire 
de rectifier le programme aux :ignes n' 
suivante: 



5190 FLASH:VTAB11:PRINT SPC(40);" ' CONFIHMER LEFFACE- 

MENT PAR < ESC >...* * ":SPC(40):NORMAL 

Mettre des blancs a la place des " ' . 

5200 X = PEEK(-16384);POKE-16368,0;IFX< >27 THEN5200 

En ce qui concerne lutilisation de ce programme, il est necessaire a 

chaque utilisateur, avanl la toute premiere utilisation du programme 

RECORD, de lancer I'execution du programme qui cree le fichier 

utilise par RECORD. Sans cela. il serait impossible de faire function- 

ner RECORD. 

L'utilisation de RECORD est Ires simple. Un menu est propose au 

depart a I'utilisateur. II comporte toutes les operations necessaires a 

la gestion complete du fichier contenant les jeux. 

En ce qui concerne la creation d'une fiche, apres avoir demande le 

nom du jeu a I'utilisateur, I'ordinateur verifie dans le fichier si le nom 

donne n'existe pas deja; ceci atin d'eviler toute source d'erreur (2 

Rches dirferentes pour !e meme jeu). Par ia suite. I'orainateur ques- 



tionne lutilisateur au sujet de la date cThomotogatJon du RECORD 
Celle-ci doit elre donnee survant le format jj'mnvaa. c'est a oVs. que 
i'utilisateur doit repondre a la question posee en taper* deux chtftres 
representant le jour, puts le caradere '(stash), puis deux chiffres 
reotesentant le mots, puis a nouveau /. puts les deux derniers eh*- 
fres representant lennee 
Exemple: 29'02'84 pour le 28 Fewer 1984. 

Notez aussi que lutilisateur oeut repondre a ia ques'jon 'score ob- 
tenu" par une chaine de caracteres. par exemple: *29000 points ni- 
veau 6). 

Ces petites precisions etant apporiees. sachez que ruirtsation de ce 
programme sexplique d'elie-meme, etant donnee la simpScrte et la 
presence de menus ciaifS a i'interieur du programme. 



5190 et 5200 de la facon 




"WtN RECORD. F 
-READ RE CORD. F 



5030 FOR 



: F - I 
NT D»i 



READ PECORP.FICH. 



MJ-CIOSE RECO' " 



30 
33 



CREATION 

DU 
FICHIER RECORD 



REM >••<■•••>>•••••>>••••• 

43 RE" * FICH. ACCES D16.EL1' • 

30 REM • LONGUEUR • 100 • 

33 REM ••••••«••>• ....••• 

60 RE" 

•.-,.:■» CHP.4 I4> 

.•0 PMNI D»("C*EN RECORD. F1CM. LI 

75 PRINT Dftl "WRITE RECORD. FICH.R 

O" 

90 PRINT -O- 

B3 PRINT Ml-CLOSE RECORD.FICH" 

90 PRINT D*:-LOC>. RECORD. FICM- 





i PRINT ■ INPUT 0R» 




. PRINT 


1160 


GOSUB B000 


n?o 


IF FLAG - 1 THEN FLAG = Ol GOTO 




1190 


; M 


PRINT -Scot* obtiAu i"i PRINT 




: INPUT 9C« 


11*0 


VTAB 21: HTAB 6: PRINT "Fie 




he en court Of creation... 


1200 


PRINT D»I "UNLOCK RECORD. FIC 


. : ; 


PRINT D»i 'OPEN RECORD.FICH. 




LlOO* 


1220 


PRINT D»; 'READ RECORD. FICH. 




RO" 


1330 


INPUT N4:N - VAL 1N4) 




PRINT D«: "WRITE RECORD. FICH 




,R-|N - 1 


12S0 


PRINT NJ»: PRINT NR»: PRINT 




DR«: PRINT SC» 


1260 


PRINT 0»i "WRITE RECORD. FICH 



"Recu'dian 



ate 




: -IDS* J 






-;sc» 


VTAB 


14 




prin: 






rter . 




PRINT " 



3210 



she 1 1 - i 

FAB 12: HTAB |Oi PftlN' 
rrche en cours ..." 
*INT D»I"DPEN RECORD.) 

VINT 0»t "READ f 

INPUT N» 



HTAR II FRINT 
7: PRINT TtlD'l 
IF PEEK 



21 AND • - 
16734.128: FOrE 



RE" •••••••••••••••»*• 

REM • 

REM • RECORD 

RE" * 

RE" •«....•......••..♦ 

RE" • Autrur : PH.Coimu 
Ft" » Materiel : Apple 

RE" .................. 

> CLEAR : HOME 

) INVERSE : HTAB 17: PR 

S>: PRINT ; HTAB 17: 
RECORD "l HTAB 17; I 

9): NORMAL 
I ^TCS 3: HTAB ll PRINT 



I INT 



PR IN 



FICH 



1: 



-lodi' 



PRINT 



SO PRINT "Acceder i 
90 PRINT 'Suppn«tei 
93 PRINT "Sortlr di 



PRINT 
it» les f 



IT 0»I"LOCK RECORD. FICH" 

NOT FO THEN VTAB 21: HTI 
;INT SPCI 40): VTAB 21 1 
HTAB 14: PRINT "Ficne ouver 

■ VTAB 24: PRINT "Tape; ^RETU 
RN> poor continuer ..."!: GET 
RC« 
I RETURN 

I RE" ••••»• .*•••■• .».»##••* 
i FiEPI • « 

. RE" • MODIFICATION • 

' RE" * D'UNE FICHE » 



D - UNE FICHE": 



1 "PRINT D»I"0PEN RECORD. FICH. 

LlOO" 
! PRINT D*1"READ RECORD. FICH" 



lOO 



2060 PR I N 



DI« TI«(N) 
1 TO N 
IfREAD RECORD. FICH, 



CH»i 34 THEN GOT! 

;;■■ HOPE 

K0 CH ■ VAL (CH»1 
140 ON CH GOSUB I000.2CM 

'-0</.3000.6O0O 
ISO RUN 
91Z RE" ••••••*• *< 

996 RE" • 

997 RE" • CREATION DE F 
996 RE" • 

999 RE" .••••••••••*•««•«•••«' 

1000 HO"E :D* - CHR* I4» 

!'.!'.' HTOB Ifj; PRINT -CREATION I 
UNE FICHE": PRINT ~ 



2070 
2080 

2O90 



INPUT TI« 
NEXT Y. 
PRINT D*l 



CLOSE RECORD. I 



: :CHE5 • 



VTAOB 4: HTAB I: 
: ■: PRINT : INP1 



■ POKE ZZ.Ib: POKE S2," 
34. 5! VTAB 4 

i FOR Y. " I TO N 

i HTAB ll PRINT ""•!*!■ 

7: PRINT TI«(K) 
i IF PEEK (37) - 21 Tl 

- 163B4.128I POKE - 



.40: POKE 32.01 POt 

: HTAB 1: INPUT "Ni 

eu concern*- : "(NO 

I OR NO > N THEN 



(040 


!F FLAG = 1 THEN FLAG - O: GOTO 


2190 


VTAB 12: HTAB 10: PRINT "R« 




1021 






IO50 


PRINT D»:*OPEN RECORD. FICH, 




PRINT D»!'OPEN RECORD. FICH, 




: ■ 




LlOO" 


1064 


rptrir DSfftEAO PECCPD.FICH, 


2210 


PRINT D»r'READ RECORD. FICH. 




no ■ 




R":i 


■■■ 


INPUT N»:N - VAL <N«) 


2220 


INPUT N4 


loeo 


;f H rHEM GOTO 1130 


2230 




; ■■■ 


FOP I > 1 TO N 




1*1: GOTO 2210 




PRINT D*:"RE*-D PECQPL. FICH. 


2340 






F. '■ I I 


2250 


H ■ [NT (20 - LEN (Tt»(NO) 


1 1 10 


;n^:jT II»: [F TI* ■ NJ« THEN 




1 / 2) 




..i-r- [4i HTAS •■ PRINT "Jwu 


2260 


INVERSE 






2270 


HTAB H: PRINT SPC( LEN <T 








I«(NO>> * 21: PRINT : HTAB H 




(IE IT 1 




: PRINT " "ITl»(NO)i' "1 HTAf< 


1 i ■ 


PRINT D*:"CL0SE RECORD. FICH 




H! PRINT 9PCI LEN <TI»CNO! 


1140 


PRINT : PRINT "Nun du detwn 


22 BO 


NORMAL 



2350 PRINT "Vouler-vogs : " 

2360 PRINT " 1. modifier le nom 

2370 PRINT " 2. modifier la dot 

2380 PRINT - 3. modifier le sco 

re atteint" 
2390 PRINT " 4. eoreql^trer la 

2400 VTAB 23: HTAB I: PRINT "Opt 
Ion choisie I "I: GET 04: IF 

ASC (04) '- 49 OR ASC (04) > 
32 THEN 2400 

2410 VTAB 13: CALL - 95B: VTAB 
IB: HTAB 1:0 ■ VAL 10*) 

2420 IF « 1 THEN INPUT "Nouve 

2430 IF D • 2 THEN INPUT "Nouve 

lie date : "IDS* 
2440 IF O - 3 THEN INPUT "Nouve 

an score : "iSC* 
2430 IF O < s 4 THEN VTAB 3: CALL 

- 93B: VTAB 6: HTAB tl GOTO 
2320 

2460 VTAB 19: HTAB 3: PRINT "flc 
he en court de modification 

2470 PRINT D41 "UNLOCK RECORD. FIC 

H" 
2480 PRINT D4i"uPEN RECORD. FICH, 

LlOO" 
2490 PRINT D*i"HRITE RECORD. FICH 

,R"1 I 
2300 PRINT TI»(NO): PRINT NJ»: PRINT 

DS»: PRINT SC4 
2310 PRINT 0»!"CLOSE RECORD. FICH 

2320 PRINT D»1"L0CK RECORD. FICH" 

2330 VTAB IB: CALL - 93B: VTAB 
19i HTAB 13: PRINT "fiche mo 

2540 VTAB 24: HTAB 1: PRINT "Tap 
e* 'RETURN, pour continuer . 
..'l: WAIT - l/.3B4,12fli POKE 

- 16368.0 
2330 RETURN 

2991 REM »••... •»••••••••••••» 

2995 RE" • * 

2996 RE" • ACCES A UNE FICHE • 

2997 RE" • PARTICUL1ERE • 
299E) REM • ■ 

2999 RE" ••••••-•••■•••••••••• 

3000 HOME rD» - CHR» 14) 

3'JlO HTAB 6i FRINT "ACCES A UNE 
FICHE PARTICULIERE": PRINT " 

IO20 PRINT~oil"OPEN RECORD. FICH. 
LlOO" 

3030 PRINT D4I-READ RECORD. F ICH" 

3040 INPUT Ni DIM TI»(N) 

3030 FOR V. - 1 TO N 

3060 PRINT 0»i"READ RECDRD.FICH. 

R"IK 

3070 INPUT TltTK) 

3080 NEXT K 

3090 PRINT D«! "CLOSE RECORD. FICH 

3100 POKE 33.26: POKE 32, 7i POKE 

34.3: VTAB 4 
31 10 FOR K - 1 TO N 
3120 HTAB ll PRINT "-I "1K1 " - "ll HTAB 

7: PRINT TI4(K) 
3130 IF PEEK (37) - 21 AND K < 

N THEN WAIT - 16384.128: POKE. 
- 16368.0: HOME 
3140 NEXT V 
3130 POKE 33.40: POKE 32.0: POKE 

34.0 
3160 VTAB 23: HTAB ll INPUT "Num 

•ro du jeu concerne : "1N0 
3170 IF NO ' 1 OR NO - N THEN GOTO 



3220 
3230 

I « Il GOTO 3210 
3240 INPUT NJ».DR».SC* 
3230 PRINT D»t "CLOSE RECORD. f 

3260 HOME 



5130 POKE 33. 

34,0 
3160 VTAB 231 



5160 

> flash 



ait 

O: HOME 

40i 'WE 53,0l PO*E 

HTAB li INFtjT -No* 

1 OR NO N THEN GO10 



t 1 



3280 FLASH 



PRINT SPC( 



: HTAB H 
" ": HTAB 

ITI«(NQi 



SC4 

3320 PRINT : 
3330 PRINT ' 






R1NT 



HTAB 1 

PRINT : 



-. PRINT - 
PRINT NJ« 
3340 PRINT : PRINT 
3330 PRINT "D»te de validation 

•■: PRINT " - 

-j PRINT : PRINT DR* 

3360 ~VTA8 24i HTAB 1: 

•z <RETURN> pour cont 
.."il WAIT - 16384,1 
- 16368. O 
3370 RETURN 



PRINT "Tap 
ontinuer . 
POKE 



VTAB I 1: PRINT 9PCI 
CONFIRMER L-EFFACEMEN 

T PAR DEL ... ": SPCI 40) 

X - PEEi: l - 163841: POKE 
I636B.O: :F X 127 IHfN 
5200 

HOME 

VTAB 12: HTAB IOl PRINT "Ef 
f acement en court . . . ■ 

PRINT D4i-UNt-CO. RECORD. FIC 

PRINT D4I"DPEN RECORD. FICH. 
LlOO" 

IF NO - N 

IF NO 
70 

PRINT D»: 

PRINT D«: 
HOME : VT 
VTAB 24: 



CLOSE F.ECORD.UCH 
LOO BBCORB.FICM* 
>B 12: HTAB 13: F*M 



mt ll 



RE 1U 
: DEI 



3994 
3993 
3996 



REM • 

RE" ■ 

RE" • DU FICHIER 
3997 REM • RECORD. F 
399B REM • 

3999 REM ••*••••••■•■• 

4000 HOME lD« ■ CHRt 
4010 HTAB 8: PRINT ' 

ES LES FICHES-i 



LISTE TOTALE 



"ACCES r 



REM ••• CAS OO NO-N ••• 
PRINT D4!"WR11E RECORD. F 



VTAfi 4: I 
UK du ficl 
VTAB 22: 



IR4 (13) * D»1"0PEN 
CH.L100" 

"READ RECORD. FICH. 



PRII 



PRINT ' 
POKE 35, 



4O80 
409O 



«pe; RETURN-' 

.. . "ll POKE 34, 5t 
ll HOME : PRINT ! VTAB A 

FOR I - I TO N 

PRINT D»:"READ RECORD.FICH. 
*"S I 

INPUT NJ4 

IF INT (I / 2) ■' > I / 3 1 

HTAB 1 
INT 



(1 



HTAB : 

INVERSE : PRINT " 
: PRINT " "INJ»n 1 

: I THEN PRINT 

IF FLAG ■ 1 THEN 
'j3B4. I?B: POKE - 1 
:FLAG - O: PRINT i 

[F PEEK 137) - 2( 



4 170 



AIT 



"CLOSE RECORD.FICH 



.384. 




4, CARMINO 

^r Suite de la page 43 

2010 XDPAW AT XO.YQl FOI 

•I TO 1^,'j: flEII : irjr.f.Lj 

2020 IF PC£J i - I62G7) 
GOSUB 13000: POT- 0) 

D AT XO.VOl RETURN 
2030 GOTO 12000 
1097 REM TRACE DU DES5IN 

ACER 
3000 POKE - 16299.0: POKE 

6302.01 FOR T - 1 TO 13 
3010 X - INT 1 RND II) • 23) 

100 
3020 V - INT < RND (I) • 25) 

65 
3030 R - INT ( RND U) • 4) • 

6 
3040 QOSUB 14000 
3030 NEXT i POKE - 16300,01 I 

- 16301.0 
3060 R • Oi RETURN 
3099 REM IMPRESSION DU MOTIF 
4000 IF II • O THEN EX - OiEV 

o. 

4O10 IF R - 16 THEN EX - HEY 

4O20 IF R - 32 THEN EX - IlEY 

I 
*0M IF P - 40 THEN EX - OiEY 

1 
4O40 ROT- RiX - INT ( <X * 5t 







14060 T£ - INT (TBI 








14070 VTAB 21 1 HTAB 


ll PRINT "No 


AT 




a: "ITE 


■Ml" Temp 


127 


THEN 


14080 RETURN 




RAM 




14099 RE" PRISE DU 


"OT IF 






13000 X - PDL (0)1/ 


- PDL (1)1 IF 






Y > 159 THEN Y 


159 


EFF 




I3003 IF PEEK 1 - 


62Q7I . 127 AND 






X - 220 AND X ■; 


2M r-"f> ' 


- 1 




70 AND V f 120 


HEN RETURN 



GOTO 



i ETES UN CHAMPION' 



HEN 



n (DRAW 1 AI X,/i FOR I - 1 T( 
150t NEXT 1 IF PEEK ( - 163 
94' 127 THEN POKE - 1636 
8.01 GOTO 300 

10 XDRAM 1 AT X,Y 

:o TS - TS * .2901 GOSUB 22000 
: GOTO tOOOO 

)9 RE" CALCUL DU SCORE ET CO 
""ENTAIRES 

10 VTAB 23 1 HTAB 1 

■5 PRINT " 



JOUE.MAIS ON PEUT FAIRE "IE 

UX": GOTO 16048 
f, IF 1 N3 THEN A4 ' " PAS 

"AL.ENTPAINF7-V0US POUR AMEL 

IORER"! GOIO 16040 
M3 IF B N4 THEN A« ■ "TREii 

M0YEN.90YEZ PLUS ATTENTIF": GOTO 

1 604fJ 
10 IF S • N3 THEN A» - ",)'AI 

VU PIPE OUAND UN DEPUTE V A 

JOUE 1 '"I GOTO 16048 
12 IF 9 ■ N6 THEN A* - "iJOU'J 

N AVF.r PAS DU COMPRENDFE IE 

JEU— 



RIN 



JT " Comb i en voi 
R«lRE - VAL 



rtlU- 

III HOME 



RINT 



16'. 70 GET Rl 
I6OB0 IF R4 

1 6O70 
16090 HONE i 

l'. fl-rnr 

14 proc 
141 10 END 



PRINT "Voulei- 
IF R4 - "0- T) 



POKE 

4190 PO) E 35.24: PCU E 34. a 
4200 RETURN 

4996 REM . • 

4997 REM • SUPPRESSION FICHE • 
4990 REM • • 
4979 FEM 

V M(!rir. :D» - CHR* (4) 

5010 UTAE- 9: PRINT '"^Ut FFFS3IC1N 
D'UME FICHE": PRINT "__ . 

16999 REM DEPLACEMENT ROTATION 
ET POSE DU MOTIF 

17000 X - PDL IOHY - PDL (1) 
17003 IF Y > 138 THEN Y - 1 r,n 
I7O10 ROT- R 

17020 XDRAW I AT X.Y1 XDRAW D AT 

17030 FOR I M 10 ISOi NEXT : IF 
PEEK ( - 16286) ■ 127 THEN 

17040 IF R - 64 THEN R - 
17040 (ORAM 1 AI X.V: XDRAW D AT 

17070 IF PEEK I - 162B7) ■ 127 RND 

X > 3 AND V ■ 3 THEN " - M • 

I: RETURN 
I70B0 T9 - TS * .40: GO'Jun 230001 

GOTd 17000 
17999 REM LECTURE DU FICHIER BC 

ORE 
IflOOO [)• * CHR» 14)1 PRINT CHR4 

(131 
18010 i riiNT d«"lifi ri'.i OM ' 
18020 PRINT 0*"READSCORE" 
IBOJO FDR < - 1 TO NDl INPUT SC ( 

>>! NCKT 
18040 PRINT D*"CLOSFSCOPt" 
1B050 RETURN 

18999 RE" ECRITURE D'UN NOUVEAU 
SCORE 

19000 D» - CHR* 141 i 3C 10 - I) - 
S 

:■'■:■• v.C.p 21: FLASH i r-RINT "BR 
AVO--- V0U3 AVEI LE NOUVEAU 
RECORD": NORMAL I PRINT "Vou 



mi n F I '•'. 



APPLE II 



I'".-' Mini rjt"Dl"Lr_IESCORE" 

I f >4< . r R I NT 1)4 "(JIT NSCORE ■ 

19M43 PRINT D*"WF III M 

IVO90 FOR t ' I "J NO: FE-TNI ! 

■ I I Mir! 

19060 PRINT D»"CI.0SESCORE" 

19070 MTURN 

1999'/ I.I.M OFF ICIIAGE OES "EILI 

RS SCORES 
3OOO0 HUMC : 



RIN1 ' 



I I 



E U I 



li C f 
hli FOR X - I ID ND 
'■I PRINT : HIAB 12: PRINT ■ 

MOTH "(XI- i "IBCIXI 
10 NEXT ! VTAB Z3l PRINT "1 nil 
i C0NTINU8R lArtll 1INL (OUCHC 
■; : <,\ r i>i; RETURN 

'■i f£m initial i'jatidn du fic 
hum 

>n 111 - CMS <4li PRINT CHR4 

i pint Dt'OPlNSCORI ■ 
10 PRINT OfDtLETEiiCOftt" 

10 PRINT D»"nPFNr.C0RE" 
10 PR INI D»~WRI TE8C0RI" 

) NDlSCIXI - Ol 



rini ; 



*INT D*"CLOQL3C0RE" 
il mi n 
TE - INT (TS> I KTAi Ml 
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YATHZEE 



Suite de la page 43 



727O0 PO>E - 16368, Oi MCOLOR- Z 
E« DRAM 72 AT X.Yl MCOLOR- 3 
: If r - 3 THEN 72230 

27210 c - c • uniy - - 4 * ic • 

32)1 DRAM 77 AT X,Yi GOTO 72 
000 
77730 81* ■ 3lV* - "TEfifllMl-inG - 

740iy - 3t oosue «7tv - - 4 

» (C » 32) iX ■ 239tTE - UNl 
■ It - 6i GOTO 2200O 

M MM - 16368,01 IF NDICI - 
tl ll»"N NOfC) - UNt OOIO 223 

ICl - :ei ncoLOf.- zei draw 

71 AT X.V. MCOLOR- 3tND - ND 

- UNlT - A0IC1 • 64l DRAM F 

at ».>i ooTo 22000 

77330 DRAM 71 AT X.ViND • ND • U 

Mi GOTO 23000 
72400 FT>E - 1636B.0:V« - "TERM 

INC ":V - 3iSIX - 3lMG - Z40l 
MCOLOR- Oi GOSUB 47il - 7S« 

: v - - 4 * (C » 321 iStl - 6 

: HCOLOR- 3i IF TE ■ UN AND 

C - 3 THEN 72470 
22413 GOTO 270OO 
27470 TE • ZEt FOR I - UN TO 3tY - 

- 4 . tl • 37H ORAM 71 AT 
739.Y1 NEXT i RETURN 

22*00 MCOLOR" OtV« - "TERtllNE-iT 

- 9lSU ■ 3:NG - 740: GOSUD 
47: MCOLOR- 3 

226IO TE - ZE:C - IE: I - 739: GOTO 

22300 

22700 FO'E - 16368, 0:V« - -TERM 
INE'iT - SiSIX - SiHG - 240i 
MCOLOR- Oi OOSUe 47i HCOLOR- 
3:SIx - A: POP i GOTO 300&0 

23O0O V * |9iVl - Hi CRAM a* AT 
4,Yi GOSUB 20OO3 

27O0O X • UMlH - ZElZZ • ZE 

77010 FOR J - UN 70 3 

2 T 013 n - AOIJtiH - J 

2702O FOR I - J TO 3 

27030 IF M < ADflt TMEN H - AD 1 I 



■ ADfJ):AD 



770*0 NE X T 


' - UN AND VA(?I ZE THEM 


78OO0 FOR | • I.1N TO 3 


Tl - '|V« • 5TR» IMI 121 HV - 


2ROOI A - 40 


I64i HCOLOR- ZEi GOSUB 47i HCOLOR 


2B0O7 FOR L - UN TO 3 


:MI r. i : MI [21 . lOOlVI - BTR* 


MOOSj PO* f M.40I PT>E 29,200i POKE 


'M| C2I ) 1 GrjSUB 47IV - 17 


31,01 CALL 'MMin - A - 4ti 


10064 nil - 1 48 • "ma • 23! 




(0070 IF VI - 10 THEM 3I0O0 




SO07I ItX - v / li 


reoos poke 2a.3O0i poke 79.301 poke 


fi* 1 ■ UN 70 3 


31, I80l CALL 36B64 


' - IF ADfl) - ZIX THEN TM - T 


2B010 F • AOttl • 64lY - V * 32i HCDLO 


M • - ADfl) 


R* Oi DRAM 71 AT 239. Yi MCOLOR- 3 


(0074 NEXT 


28IOO DRAM F AT 739, Vi NEXT 1 RETURN 


I007S IF DDtZJV.) . IE TMEN 30 


29O00 TH - AD(l) * AD12I » AD(3> * 


30076 DD<ZZ7.I - TM 


ADI4) * ADI3I: RETURN 


JO I 00 Vt - STR* ITM.; GOSUB 47 


itVlOO VI - STR* <TM)i GOSUR 47 


30110 V» ■ 5TR4 1MS12I1: HCOLGR- 


79IIO V* - STR4 (Mtl2>llY - 164t 


OlV - 84i GOSUB 47i HCOLDR- 


HCOLOR- Oi GOSUB 47i HCOLOR- 


3 



GOSUB i 



OTD S20" 



FOP I 



UN TO 3 

30001 RRI7) • - UN|CA(2I - - UN 
iFU(7> - tlJNlPfll2) - - UN 
■05(2) - - UNIVAI2) - - UN 
ICHI71 - - UNtABtU - ZEiDE 
(II - IKlTft(I) - ZElOU(l) - 
ZF:CI Ml- ZEiSI (1) • ZEiBRI 
I I - ZEiCAllI - ZElFUIl 
EiPSdl - ZEiGSfll - IElVA(l 
I - ZEiCHII) - IE 

30002 MG - l-ui * (MA • 231 
30000 TGIl) - ZEiT0(7> - IE: 

- ZEifi '7) - ZEinsm 

N3(2l - ZEiMS - ZEtMSU 
Ei FOR I - UN TO 6|DD(1) 
El 

30O04 



- z 



- z 



FOR CC - UN TO 13 
30O05 V - - 4: GOSUB 210'Xi 
3000« FOR NT - UN TO 3 
SOO07 IF NC - UN THEN SOO10 
3OO0B V ■ - 4i GOSUB 7700O 
30.X>9 IF NC - 3 THEN 3O0A0 
30010 X - 239iY - 2BiC - UNi DRAM 

72 AT X,Y: GOSUB 220O0 
3002O FOR 1 - UN TO 3 
30030 IF NDIIl - UN TMEN (IOSUP 

21300lADCI> - TtNDtll - ZE 
3OO40 NEXT 
30-^30 NEXT 

30060 Y - 19iVt - 1!: DRAM hA AT 
4.Yi GOSUB 20OO3 

30061 TM 



ZE 
• 148 - 



■ AND AD (2) 
AND AOi;> - ADIfl) Ar 
AD<3> AND YA(2> < > 



30113 MB!?) . HSI2I * TM 

301 1 A IF MSIOI - ZE AND MS (21 

- 61 TMEN MSI2I « MSI71 • 

23) lV« I 



i mi - 148 i 

SI2 



30300 GOTO 329-Xr 

31000 ZZ7, • (Y I 10) - 8 ■ 

31010 ON ZZV. GOTO 31020,31100.31 

130,31200.31230,31300,31400 
31020 IF Bft(2) < — UN THEN Z 

0060 
31030 IF AD(1> - AD(2) AND AD<2) 

- ADI31 THEN 31070 

31040 IF AD(2) - AD13) AND AD(3I 

- AD(4) TMEN 31070 

31090 IF ADI3) • ADI4) AND AD(4) 

- AD (31 TMEN 31070 

3106O BR(2I - ZEiTfl = ZE: GOTO 29 

31070 GOSUB 29000iBR(2l - TMi GOTO 

29 1 00 
31100 IF CA<2> C > - UN THEN 3 

OOAO 
31110 IF ADM) - AD(2) AND ADI2I 

- ADC) AND A0(3) - AD!4) THEN 
31140 

31120 IF AD(2) » A0(3) AND AD13I 

- AD(4) AND AD(4) - A0(3) THEN 
31140 

31130 CA(2) = ZE:TM - ZEi GOTO 29 

100 
31140 GOSUB 290O0:CA(2) - Trt: GOTO 

29100 
31130 IF FU(2) < > - UN THEN 3 



10 FUID = ZEiTM - ZF:: GOTO 7 

9100 
"i FUI2I ■ 23lTM - 23! OOTO 2V 



if ps': 



- UN THEN : 



31210 IF AD(I) - UN - ADI2) AND 
AD(2) - UN ■ AD(3) AND ADIT) 

- UN ■ A0(4) THEN 31340 

31220 IF AD'21 - UN » AD 1 3) AMD 
AD'") - UN - AD'4) AND ADI4) 

- UN • AD(3) THEN 31Z40 

31221 IF ADI1I • AD17) AND AD'2) 

- UN ■ ADI3) AND A0I3) - UN 

- AD14I AND ADI4) - UN - AD 

31772 IF ADfl) - UN ■ ADI21 AND 
0DI2) ■ AD(3> AMD AD(3I - UN 

■ ADI4) AND ADI4I - UN " AD 

31223 IF ADfl) - UN - A0(2) AND 
ADI2I - UN - ADI3) AND ADI3) 

- ADI4I AND ADI4) - UN - AO 

ZElTM > Z£: GOTO 29 



lOO 

O PBC 



I - 30: GOTO 29 
- UN THEN 3 



31730 IF GS(2) 
0060 

31260 IF ADfl) - UN - ADI2) AND 
ADI2I - UN - ADI3) AND AD(3) 



31280 GS(2) - 4i 
100 

31300 IF YA(2) 



1 40: GOTO 29 

- UN THEN 3 



31310 IF AD(I) - A0(2> AND A0f7) 

■ AD(31 AND ADf3l - A0(4) AND 

AD(4) = AD(S) THEN 31360 
31330 VA(2) - ZElTN - ZE: GOTG 29 

100 
31360 rA(2) - 50:TM - SOt GOTO 29 

100 
31400 IF CH(2> < > - UN THEN 3 

31410 GOSUB 290O0lCH(2) - TM: GOTO 



32O60 ' 



9100 



' 174: HCOLOR- OtV* - STRI 
2)): GOSUB 47:TG(2) - Ml 
+ HS(2):V* ■ STR» ITGI2 



oomfe 



3! I 
S3030 GOSTJB 77470 

•?><?■?. no - 78 . (MA ■ 

■ ' 

32040 NEXT MA 

I3O30 )C»« I CALL - I77»i MTA(. 
If VTAB 101 PRINT -VOULEZ VO 
(75 REJOUER fO/N>":i GET Mi PRINT 

Rf 

'i -i --.n I \ ■ 

■N" IMF -J 
I2O70 IF F:4 - "0" THEN RUN 
12000 IF Rt - -N- TMEN HOME 1 END 

ROI -FRESENTATIDN 
33010 FOR v • 40 TO 60 STEP • 1 

13300 1 " 170IMB ■ 50i READ IMJi GOSUB 
47: GET R»i PRINT R4i ir c» 
■O" AND R» -N- THEN 






THEN FOR I 



I TO 47i READ ". 



S6OI0 " ■ SiMG - lOOi FOR I - UN TO 
5: READ V»:Y - Y » 3i GOSUB 
4/i NEXT 

360ZO v = «OlHH - O: FOR I - I TO 
2: READ V»iY • V « 7: GOStiS 
471 NEXT :Y • 63iDG - SOt READ 
V«i GOSUK 47 

56030 SIX > 5:Y » 701 MB ■ 63i FOR 
I » 1 TO 6: READ V«iv - Y - 
6: GOSUB 47i NEXT :Y » B">! MG 

- Oi READ V«t GOSUB 47: v - 
VO: READ V4: GOSUn 47 

■{,■■*,. y . |40i READ V»: GOSUB 47: 
Y - lV.'i READ V»: GOSUP *7:Y 

ISOlHB - 65i FOR t - UN TO 
7r READ V4: Y • Y * fci GOSUB 
47: NEXT :Y - IBBiMG - 30: READ 
Vt: GOSUB 47: GET R»: PRINT 
R»: HGP7 

36030 Y - 20iBG - ZEi FOR I » UN TO 
B: READ V»:Y - Y • lOi GOSUB 
47: NEXT lY - 9Bi FOR I - UN 

TO 3: READ V4: Y - Y * 6> GOSUB 
47: NEXT :Y - 140: READ V4; GOSUB 
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READ \ 



GOSUB ' 



i Y - 149; READ V*: GOSUB 47: 
Y - 133: READ U*l GOSUB 47:Y 

- 1H8:MG » 301 READ V*: GOSUB 
47: GET R»: PRINT R»: RETURN 



Table des formes 



7 DATA 72.0.147.0.182,0,227,0.26,1,72 
1. 134, l. 191, 1.20-3, 1.215. 1,227, 1,240, 1 
1.2.14,2,26.2.39.2,49,2.60,2,73.2.82,: 
9 DATA 93.2.106.2. 121.2. 134,2,147,2, li 
0,2, 172.2. 1B3.2, 193,2.203.2,217,2.230 
2,240.2.254.2. 1.3,8,3. 13, 3. 33, 3,44. 3, 

9 DATA 34, 3. 57. 3, 65, 3, 79, 3, BO, 3, 100,3. 
112,3. 126,3. 139, 3, ISO. 3, 160. 3. 173. 3. II 
6.3. 1B9.3. 193.3.202.3.21 1,3.221 .3,229 
3,232,3 

10 DATA 23.4.30.4.7B.4. 106.4, 140, 4, 17 
.4.234.4.97.5.203.5,76.6,213,6, 112.7, 
07, 10,0, 146,210,219,33. 92 ,33. 93. 44. 92 
43.93, 226, It, 

11 DATA 93.63,94.39,92,39,95,60.93,109 
.9.93,43,93.35.93.63,94.47,93, 149,0, 14 
6,210,219.39,93,60.93.44.92,44,92,231, 
13.94,43.93.45,93 

12 DATA 37,92; 172,27,94,35,93,28,92.22 
8, 191,54,94.81.49,93,46,94,35,94,45,93 
,60,93.235,3,0.28,92,227,36,93,47,94,4 
3.94.34,95.60,93 

13 DATA 43.94,46,94,35.93,53,95.34,95, 
108, 73. 73. 192, 28, 93, 49, 93,61 , 93. 33, 93, 



46.93.62,' 



:, 39, 92, 39, 92,: 



,95,44.92,: 



,93,44,93.62,94 

14 DATA 18,0,33.93.63,92.54,93.63,94,4 
3,93,55,93,62.95,44,92.37,93.36,92,45, 
92,63,92.63.93,39.93,43,93,37,93.45,93 
,62,94,47,93 

15 DATA 45,93,60,93,63,95,146,0,219,27 
,38,32,93,39,93,60,93,33,93,44,94,37,9 
3, 44, 93. 43. 95, 39, 94, 55, 94, 243. 30. 95, 62 
.94,61,95,62,94 

16 DATA 33.93.52.93,119,9.88.36.93,46, 
93,46,92.33.93,36.93,37.93,32,94,54,93 
.60,94.92.88.88,88,0.27.95.63.94,45,93 
.35,95.4*. 94 

17 DATA 47,94.43,93,43,93,37,93,36,92, 
62. 94. 35. 95, 63, 9-,, 27, 92, 36, 92, 20, 93. 33 
,92,27,92,60.94,36,93,39.93.44.94.37,9 
3.46,92,33,93 

18 DATA 33,93,36,93,191,146,0,43,92,28 
,93, 191,46,93,54,93,73.36,0.63.92.44.9 
3, 173, 30, 93, 242, 63, 95, 36,0,9, SB, 28, 93. 
191.34.94,41,93 

19 DATA 3.32,0,9,92,28,93,63.94.34,94, 
43,93,3,32.0,61,95,39,92.45.93,61,95,6 
3,94,34,94,43.93.43,0,61,93,39.92.45.9 
3,61,93 

20 DATA 63,94.34.94,6,0,41 
,88,36,92,41.93,43,0.45,92 
.219,36.93.39,92.6.0.36.95 
.46,93,63 

21 DATA 0.33,92,47.93.55." 
36,0,63,92,32, 
92,0.192,3I,9< 
27,34.94, 1 10 

22 DATA 9,92.: 
34,93, 



173 



54.93.43.9: 

36.95.37,92 
93.36,92,4,1 
95,7,32,4,0 
30,93 

DATA 63.93.49, 



,246.63,88, 
3.73,28.92.99. 12, 
,38,92,2 



92,31. 

0,27,92, 12," 

,92,44,9: 



1,22 



94,33, 
93,34,88,22 
:, 30,93,63.9 



.93,5.0.33 
4,63,93.54.93.55,94,6,0, 17: 
2.8,92.99 

24 DATA 43,93.5,0,36,95.47 
.94,34,94,0. 192,31,94, 118, 
36,0. 192.51,94. 14.94,97, 12 
94,59,94,36 

25 DATA 92.108.9.94,54,94.60,93,0,28.' 
2. 113, 14,94,243.77,275,28.92,97,4,0,4 
.93, 12,92,223.5: 
95,247, 1D0. IB. 93 

26 DATA 52.93,43 

33,92, 12.92,0. IB, 92, 33. 92, 28, 92, O, 
4.46.92. 12,94. 178,21 
.92.2B.92 

27 DATA 0.36,94.54,94.36,93,61.95,63 
3,0,50.95, 178,0.63.'V3,45,93 T 7.0. IB. 9 
'1,30.94,99, 12,92,97,4.0. 12.92,63.93. 
.94. 14 



93.43,93,35 
3.93,32,92. 
92.36,0,32. 



1,0, 12,92,( 



2B DATA 92,46,93,5,32,36,0,36.94,47.94 
,54,93.63,93,0,43,88.28,95, 191.86,62.9 
3.45,93.5,0.45,33.28.95, 191,22,94,41.9 
3.3,32,0 

29 DATA 42,93,39,94,33,95,63,92,12,92, 
41,94.6.0. 173.30.95.63.93,4,56,36,93,4 
5.93,5,0, 173,30,93,63.33,44,95, 100.45. 
93,0.30,94 

30 DATA 100,12,92,61,95,63,93.0,173,30 
,95.63.B8, 12,92,99,45,93,242,6.0,61,95 

















76,6, 


176.246,6 














DATA 
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4.0.5 


95,45 


93, 


HI 


63 


95,63,0 


9, 95.56, BB, 2 



















;, 35,92 
32 DATA 100,4: 
.94.59,95,63 



33 DATA 36,92 
73,54.94,34,9 
,7,32,36.92,3, 
,88. 191,34,94 

34 DATA 34,93 
45,88,36,92,3, 



',32,88, 1 



.93,45,92, 1 

35 DATA 92, 
,27,92,32,1 
5,93,43,92, 176,43, 
,31,93,33,92,59.9: 

36 DATA 63,93 
.92, 37,95.60.' 
3,43,93.62,94 
5,0,36.94 

37 DATA 35,95, 
63,93,219.21 
, 12,92.41,93 
3,93, 170,21, 
33 DATA 94, 



93,56 

2,4.0,219,219 

39 DATA 219,2 
2.92.41,94. 14, 
,44,95,100,24 
,43,93,45,93,: 

40 DATA 170,2 
,94,54, 



,93,45,93,21,94.54.94.34 

5, 63. B8. 36. 92,0. 193, 32, B 
30,94, 34. 94. 246. 39, BS, 22 
8 

36,92, 12, 93, 0,76, 32, 8B, 1 
30,95,63.95,39,83,22,93 



93, 1 



,94,34,93,249, 118,45 

07,228,63,93,63,93,0 
4,94,34,93,249, 11B,4 
BB, 36. 92 ,3 1, 93, 33, 92 

92,39,93,62 



0,45,93,6 
3,63,93,33,' 
33,92,60, 



,62,' 



53,93,38.93,44,93,52,93, 
219,36,92.36,92,36,92.97 
3,93,43,93,43,93,43,93,4 

'4,54,94,54,94,54, 



.243.30,94,39,93.63.93,63,93.63,93,6 



1,7,36,32,92,36,92,36,9 

9,36.92,36,92,36.92,97, 1 
,62,94,47.94,33,92,44.94 
BB. 193,40,93,43,93,43,93 
1,93 

,94,34,94,54,94,34,94,34 
, 243, 30, 93, 196, 72, 24, 92 



9,93,37,93.32,93,62.93,61,94.63,94, 1 



54,1 

41 DATA 63,93,63,95,63.9: 
,92,36,92,36,92,4,0.36,9, 
3B.93, 44.93, 108,73, 73,73 
28,28,92,227,183 

42 DATA 18, 94, 33. 93, 35,93, ( 
60,93,37,92,67,24,81 
63,93,63.95, 171,23,95. 186,: 
34.94,34.94,34 

43 DATA 94,118.14,94,113,1 
,60,92,47,92,37.94,53,93,' 
,43,93,43.93,45,93.43,93,' 
,40,32,92,36,92,36 

44 DATA 92,36,0.219,219.21' 
36,92,36.92,97. 12,92,41.94, 146,62,94,4 
7, 93, 37, 94, 61, 94. 63, 93, 3B,< 
BB. 193, 40,93.43, 9T 
43 DATA 43,93,43.93, 
0,223,27,94,33,93,43,94,: 
,92,77,49,94,34,9 
46,30,94,243,39,81 

46 DATA 67,193,60.92,47,92,37,94,33,93 
,33.93,60,94,214, 13B, 58, 93, 63, 93, 6 3. 95 
,6 3,93,63,95,7.36,56,08,7,40,73,33.93, 
43,92.61,92,39 

47 DATA 94,47.94,63,95,211,36.92,36,92 
,36,0.36,94,33,95,53,93,38.93,44.93, 10 
B, 73, 73. 73, 36.92, 36, 92. 228, 28, 92, 227, 1 
B3. IB. 94, 53. 93,35 

48 DATA 93, 38.93,44,93, 47, 92. 2B, 88. 193 
,3,33.63.93,63,93,63.95,63,95.63.93, IB 

6.23.93. 106.73.62.94.47.94.43.92.61.92 
,33,94,254,219, 36 

49 DATA 92,54,94,34.94,54,94,54,94,54, 
94. 14.94, 113. 14.93,68,216,8,92.39,95.3 

7.93.52.94.37.94.61.94. 150. 18.93.43.93 



,28.92,33 
95,53,93, 
36.92,36,92.2 

.0,94,33,92, 
,3,93,63,93, 

i4, 94, 54, 94, 

H, 24,88, 193 

1.95, 182. 146 

43,93.40,88,3 

9,219.36.92, 
, 146,62,94,4 
92,44.92,24, 

73,21,93, 17 
47.94,44,92,61 
4,34,94,2 



30 DATA 93.43. 



1.3, 40, 40, 88, 223, 27,92, 




39,93,45,93,61,94,36,93.32,93,45,93,73 

,34,92,36,92,36.92,36,0,219,219,219,21 

9,36,92,36,92,36 

51 DATA 92,97,12,92,41,94,146.62.94.47 

,94,33,92,37,93.45,93, 100, 24, B8. 193, 40 

,93,43,93,43,93,45,93,43,93,21,93, 170, 

21,95,219,31,93,62 

32 DATA 93,46,94,44,92,47,93,39.93,73, 
34,94,34,95,219,51 ,93,62.93,46,94,44.9 
2.47.93,39,93.73,34,94,34.95.219,51,95 
,62,93.46,94.44 

53 DATA 92,47,93.39,93,73,54,94.30,94, 

243.30,95.63,95.63,93,63.93,63.93,63,9 

3, 7, 56. 36, B8. 7, 40, 73, 33. 95, 45, 92. 6 1, 92 

,39,92,32,93 

34 DATA 44,93,39,92.46,93,62,93.37.94. 

182,219,35,92.34,94,34.94, 108.41,93,39 

.93,0,219.219.219,219, 146, 146. 13,92,3? 

.88,4,32,32,88,4,32 

33 DATA 32,88.12,94,178,22.94.178.27,? 
4, 173,22.94,33,38,4,32,32,88,4.32,32,8 
3, 4, 32. 32. B8. 12.94, 178,22,94. 17B.22.94 
, 178,22,94, 178,46 

36 DATA 92, 32, 8B. 4, 32, 32, BB, 4, 32,32,88 
.4,32,32,88,4.36, 173.22.94, 178.22.94, 1 
78,22,94. I7B.22.94, 114.4.32,32.88,4,37 
,32, B6, 4, 32 

57 DATA 32,88.4.32,32.86.71.94.178.22. 
94, 173.22.94, 178.22,94. 1 7B, 14, 92, 32, 88 
. 4, 32, 32, 88, 4, 32, 32, 88, 4, 32, 37,88.4,40 
, 178,22.94, 17B 

38 DATA 22,94,178,22,94.178.22.94,33,3 
8,4,32,32, 88, 4, 32,32,88,4.32, 32,88,4. 3 
2. 168,22,94, 178,22.94, 178,22,94, I 7B, 22 
,94, 114,4,32,32 

39 DATA 88.4,32,32,88,4,32,32,88,4,32. 
32,88,21,94, 17B, 22,94. 178, 22, 94, 178,22 
,94, 178, 14,92,32,88.4,32,32,88,4,32,32 
.BB.4, 32,32 

60 DATA 8B.4, 40. 17B. 22. 94, 1711.22,94, 17 
8,22,94, 173,22,94.33,88.4,32,32.88,4,3 
2,32,88,4,32,32,88,4.32, 168,22.94, 178, 
22,94. 178,22,94 

61 DATA 178,22,94, 114. 4, 32, 32. BB.4, 32, 
32,80,4,32,32,88,4,32,32,88,21,94, 178, 
22,94, 178,22,94. 178,27.94. 178, 14.97,32 
,BB,4, 37.32.B8 

62 DATA 4,32,32.88,4.32,32,88.4,40.182 
,22,94, 178,22,94, 17B, 22. 94, 170,22,94, 1 
00, 4, 32, 32,88, 4, 32, 32,88. 4, 32. 32, BB.4, 
48, 177,22,94 

63 DATA 173,22,94,178,22,94,98.4,32,32 
,88,4,32,32,88,4,32. 176,22,94, 17B.22.9 
4. 178,22,94,32,92,36,92,36,92,36.92,36 
,92,36,95,52,94 

64 DATA 34,94.34,94,34.94,34.94,34,94, 
30,92, 36, 92, 36. 92, 36, 92, 36,92. 36, 92, 22 



8.34,94,34.94.54.94,34.94,34,94,54.94. 
34.95,36,92,36 

65 DATA 92,36,92,36,92.36.92,36,92.36. 
92,33,94.34,94,54,94,34,94,54,94,34,94 
,34,94,34,94,39,92.36.92,36,92.36.92,3 
6,92.36,92,36 

66 DATA 92,36,92,60,94,34,94,54.94.54, 
1 , 54 . 94 , 34 , 94 . 54 , 94 . 34 , 93. 36, 92 

.36.92,36,92.36,92,36,92,36,92.36.92,3 
,33.94,34 



67 DAT! 



4,34.' 



. 34 , < 



1,34.' 



4.34. 



1,94,62,92,: 

92.36,92.36,92.36.95,54.94.34,94.3 
i, 34. 94, 34 

1,94,34,94,34,94,39,92,36. 
92, 36.92, 36, 92, 36. 92. 36. 92, 36, 92, 36,92 
.60.94,34.94.54.94.34,94,34.94.34.94,5 
4,94,34,94,34 

69 DATA 95,36,92.36,92.36,92,36.92,36. 
.,92,36,92.36. 



.62.92,3 



,54,94,54.94,54.94,34,94.34,* 
6,92,36,92,36 

70 DATA 92,36.92.36.92.36,92,36.92.36. 
94,34,94,54,94,34.94.34,94.34.94 
.34,94.39.92,36,92.36,92.36.92.3 

.,92,36 

71 DATA 92,36,92,60.94,54.94.34,94,34. 
94,34.94,54.94,34,94,54.94.54.93.36.92 
.36.92.36.92.36.92,36.97.36.97.36.97,3 
6.92.33,94,34 

72 DATA 94.54,94,34,94,54,94.34,94,54, 
94,62.92.36.92.36.92.36,92.36.92 

1 . M . 9? . 36 . 97. 55 . 94 , 54 . 94 . 54 , 94 . 3 
4.94,34,94.34 

73 DATA 94,54,95,36,92.36.92.36.92,36, 
97, 36, 92. Zt>. 93, 34, 94, 34. 94. 34. 94. 34, 94 
.34,94.33.0,219. 219.219.219. 133. 146. 18 
,92,36,92,36,92,36 

?, 36, 94. 33, 94, 34. 94. 54, 94. 34. 
92.39.97,36,92. 36.97.62,94,34,94,34,92 
, 39.92, 36. 94. 53. 94, 60,97.. 74, 73, 1 It 73. 7 
3,73,73,73,73 

73 DATA 73.73.49,94.34.94,36,92.36,92. 
36,92.36.92,46,94.34,94.54,94,54.94.44 
.92. 56, 92, 36,92. G2, 93. 34, 94, 34, 94, 44. 9 
2, 36,92.84.30 
'6 DATA 94,44.95.0.233 

1000 PI'INT CHM(4) 1 "HSAVF.YAM.fmi .1 

7764" 
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S.O.S ROBIN 



Vous, Robin des Bois, devez atlraper au vol tous les 
objets que vous envoie Marianne, voire dulcinee, pri- 
sonniere dans le chateau du terrible Sheriff de NOT- 
TINGHAM. 

Soyez sur de vos reflexes. .et de votre coup d'oeil! 
Mode d'emploi inclus dans le programme. 

Stephane CHEVRON 



lOO NDM»-"TI-99/4A* :; Rf 

•111 FOf 
l»2 10 7 :-. CAtL COLOR C I. 03.21 • I NEXT I 

C0L0RM3.10,?>:t CAli L; 
2.13*)- ■- 

4 II I L"0 :: VIT-30 : : C 
0»H> i! CAR>130 :: ECRAN=9 :: TA&L-l 
130 CALL D£L5PRITE(44> 
MO CALL C0LDR(B.2.2> 
15-.' CALL C0L0R<9, ! :. l" ' 
:«:■ CAll COLOR (10, 12. 12) 
170 CALL MAGN1FY<2> 
■-■■ REM 
:^.'. FEM CHAR 
. > REM 
210 CALL CHAF:u;o. "42E7FFFF7E*-.C181O0O00O 

oooooooooooooooooooooooooooooooooooooooo 

OOOOOOOOOOOOOOOOOOO" I 

220 cam. char-is*. '■o'X'MiCCBFaraiFiFjFoFo 

70- 1 .!0602O0OOO0O000OO00F0FBFCFEFFFFr< Ci •! 

OOO") 

230 CALL CHAR(i4O.-OlO3O30l0307OFl&lBO30 

3OS0A0COC0C80COODe0COE0F0DSCCC0COC06O3O3 

oje-> 

2*0 CALL CHARdOI.-'FFFFFFFFFFFFFFFF"! 

2SO CALL CHAR(126,"FFC0COC0FF18jaiB"> 

240 COLS. CHRA<112,"00O3OAO6211BOPO30307O 

FlFCt3F,>;,o.»:>C05060S4DaFOCOCOEOFOFBFCFCO 

OOO") 

270 CALL CHARM IO, "FFFFFFFFFFFFFFFF") 

■ ■ 
290 REM IHTODUCTION 
700 REM 

310 CALL HCHARI2, 08, 130.21):: CALL HCHAR 
<2I,O8.130,2l>: : CALL VCHAR (2, B, 130,20) i 
I CALL VCHAR<2.23. 130,20) 

320 FOR 1-9 TO 27 :i CALL VCHAR 13, I . 94. 1 
S)n NEXT I 

ZZO DISPLAY AT 1 17, 15>SIZE13I : "PAR" i; DI 
SPLAY Al r l 9. 3) SIZE (17) : "STEPHANE* 'CHEVRO 
N m 
340 DISPLAY AT (24, 1 1) i"PRESSER'T]R" 

SPRITE (41,63, 13,30, 120, "2. 48, 1 1 
,30, 133,43,83, 13.30. ISO) 

360 call SPRITE{M,66,13,60 t 133.»3,4B, 11 
.75, 120,96,82, 13, *0, 103) 

370 CALL SPRITEK7.73. 1 1 . 7->, I 30. »B. 7B. IT 
.60. 165) 




■ [ ■AtEAU 
74 ) REM 

':-.-.■■ . ■■■ ' 

. : : ii '. ■ 

OH. VCHAR (17. I. 1 1 

I is c ,i 

II ■ ■ ■ ■ : .17, 

,3)11 CALL VCHAR ( 
-..L VCHAR na.r - . . . 
■ . ■■ ' ■ 13,23,11 . 

1,3.32,8)!! CALL VCHAR (I 
■■:-.-. •l.'Z.f)*:: CAL 
14, 32.32. SI 
990 FQP 1-3 TO 7 :: CALL VCHAR 1 3, . 
■ : : HEX! I : : FOP [• IS TO 19 • 1 

WHS, 1, 126,*)-: Wai r u FOR I-2B i"0 12 

CHAR (5. I, 126. 6> 
- i :: CALL VCHARI6.5. 110.4):: C 
,11 ,4 
1*3 F! 32 ii CALL ..:■■■■.'■ ....:.: 
S,3li: 

I02I FOR : = 7 "D 7 BTET Z :: CALL HCHAR(4 
. I. 1261 : : NEXT 1 

FOF I-2S TD 32 S'EF 2 ;: CALL 



CALL Cft 



. I. 



t 



390 FOR 5D-1 TO 69 

KEVd.A, B>l« IF BOO THEN 530 
4t0 READ N,M :: CALL SOUND (N- 20. M. 31 
420 NEXT SO 
4"0 FOP 31 -: m IOO0 :: NEXT JK :: GOTO 

sac 

440 DATA 300,330,230.440,230,494,230,334 
,-50.-i87.r-> r '.35'>.23'J.494.rSO.'*40.230.4 1-J 

'0,300,370 
«50 DATA 300.330,300,440,300,440,300,413 
14 ,300,330,230,440.230,494,230,33 
4. 230,507, 230.354. 230. 4T4 

230,440,230,413 
■ ■ ■ 1,370,300,3 '0,300, 370,300,33 

l. 300, 440, 300, 4 13. 1300,440,300,3 
54 

490 DATA ■ 14.300,334,300.440 

,494, 300, 494, 230, 440,250,49 

■ ■■..■ . ' ■ . : ■ ,334 

SO, 494, 230,440, 123,415, ! Z5, 170 

440. 230.49 

4. 25". 334,230. 387,230, 554. 25'.>, 494 , 250. 44 

: . ■ . ■ ■ . ' . 1.370,300,3 

■ ■ . ,440.! ,41! 
DATA J 

!24, II:'-- 

l-i :o a 



*0 IF A "4 AND I - ■■ "HE1 ! 
380 CALL nOTI0N<4I,A t B>ii MET I 

I 11 FOR '1^! 10 a :: CALL POSITIO 
' ■ IN, ft, • ■}-.: IF ■ • ■ :■' OF • I 244 OF VV 1 
■■ OB ■ ■■ 183 THEN '-An. DELSPRITE(8N) t ■ ZZ 
■ IZ>I 

11 N II IF 12 =B THEN 64U ELSE 590 
- : 

620 REM REGLE DU JEU 
630 : -~r 

640 CALL CLEAR 

650 CALL SCREEN (2) II DISPLAV ATU.I2)-"- 
-n.»W ,j DISPLAY AT (2, 12): "TABLEAU 1 
" :: DISPLAV AT (3. 12): ■■==>=. = = = = ■■ 

660 DISPLAY AT(5.4) iCHR»(I30);" — > lOOPO 

[NTS" 

670 DISPLAY AT<7. 1) ; "MARIANNE EST ENFERM 

EE DANS" :: DISPLAY AT(?.1):"LE CHATEAU 

DE L-OISEAU MOIR. " 

6B0 DISPLAV AT(10.3) :"AIDER ROBIN A LA D 

ELIVRER ET" :: DISPLAY AT (13, l)i"A 30GNE 

R SON COEUR. . ." 

690 DISPLAY ATI 15,1 J : "LE BUT DU JEU EST 

D ARRETER " :: DISPLAY AT ( 1 7, 1 1 : -LES COE 

URS GUI Tan&ENT.MAIS" 

700 DISPLAY AT!19,1):"ATTENTI0N LE VENT 

PEUT SE " ;: DISPLAY AT (21 , 1 ) : "LEVER ET 

DEVIER LEUR" :: DISPLAY AT (23. 1 ) : "TRAJEC 

TOIRE.. 

710 DISPLAY AT (24. IS): "PRESSES TIR" 

720 CALL KEYfl.A.B):: IF SOI THEN 720 

730 COLL CLEAR :: CALL SCREEN(2):: DISPL 

AY ATM, 12) !"«—-=— " :: DISPLAY AT(2, 

12) : "TABLEAU 1 " 

740 DISPLAY AT (3. 12) :•■ = === = = = •=" 

750 DISPLAV AT (7. 1) : "NOMBRE DE VIES: 4" 
:: DISPLAY AT (1,0,1) 1 'IL VOUS SERA RAJOUT 
E UNE VIE" :: DISPLAY AT ( 1 2. 1 ) : "TOUS LES 

5000 PTS." 
760 DISPLAY AT ( 15, 1 1 : "UN BONUS VOUS SERA 

ATTRIBUE" ■: DISPLAV AT ( 1 7, 1 ) : " TOUS LES 

30 COEURS..." 
770 DISPLAY AT ( 19. 1 ) : "SI VOTRE SCORE DEP 
ASSE 1O00O" ;: DISPLAY AT (21 , 1 ) i "PTS LE 
TABLEAU SUIVANT" :: DISPLAY AT (23. 1 ) I "AP 
PARAITRA. " 

790 DISPLAY AT (24, IS) : "PRESSER TIR" 
790 CALL KEY(l.A,B):i IF SOI THEN 790 
BOO CALL CLEAR 

BIO DISPLAY ATM,1>:"» DES LE TABLEAU 2 
UN AUTRE ■ :: DISPLAY AT (3, 1 ) I "TABLEAU A 
PPAPAITERA TOUS" !: DISPLAY AT!3,1):"LES 

3000 PTS. . ■ 
BIO DISPLAV AT (8, 1)! "TABLEAU OBJ 

ET " :: DISPLAY ATC9. lit" 

830 DISPLAY AT ( 1 1 , 4 l : " 1 COEUR 

" s: DISPLAY AT(I3,4):"2 FAN 

TOME " :i DISPLAY AT<15.4>:"3 
NOTE" 

B40 DISPLAY AT(I7,4):"4 CLE " 

:: DISPLAV AT(19,4):"5 BOUGE 

OIR " :i DISPLAY ATI21,4): ,, 6 
EPEE " 

030 DISPLAY AT(24,9(:"PRESSER TIR" 

860 CALL KEY(l,A.B):i IF SOI THEN B60 E 

LSE CALL CLEAR 

B70 FOR 1-1 TO 8 :: CALL COLOR ( I . 5. I ) : I 

NEXT I 

BBO DISPLAY ATfl ,2" t *BCOR£")BC :: DISPLA 

Y AT(1 . 17) :'RECORD";RECO 

B90 DISPLAY AT (2, 2) : "VIES "IVIE 

900 DISPLAY AT(2. 171:NOH* 

910 CALL SCREEN(ECRCN) 

920 REM 



■~. . . ":•<-.- 



OR I* 1 3 TO 19 STEF I : 
(4,1,126)11 NE*T I 
1030 FO^ 1-9 TO 27 ETEC r :: CALI I 

10. I, 126! : : NEXT I 
1060 REM 

107O REM PREMIER TABLEAU 
lOSO REM 

1090 CALL MAGNIFY(4):: CALL SPRITEOI.I4 
O. OS. 160. 112. •2. 112, 14,33. 162,0,4,44, ! '-, 
,2,01. 1171 
UOO FOR J-I TO 30 
lllO DISPLAY AT(1.7)Si:E(7):SC 
1120 IF )L 5000 THEN VIE^ViE-1 :: l c II 
5000 THEN I L-0 

I130 DISPLAY AT(1.23)SIZE(7):RECD 
1140 DISPLAY AT(2.7>SIZE(2):VIE 
1150 RANDOMIZE 

1160 A.NG=INT(RND»2M>: : IF ANG= 1 THEN AN 
G=0 it GOTO 11 BO 
1170 CALL S0UND(4250.-6,29) 
HBO B=INT!RND»61»ANG)-30»ANG 
1 190 ANG-1 

12O0 CALL SPRITE(»3,CAR.C0,eO, INT(RND»19 
3*1) ,10,8) 

1210 CALL JOYST(l,H.V)i: IF H-4 THEN H=V 
IT 



01 v - . 



1220 CALL *EY(O.K,ST) 
IT 



I THEN H-V 



1230 IF H--4 THEN H«-VIT 

1240 IF K-B3 THEN H— VIT 

1250 CALL HOTI0N<41,O.H>: ! H-0 :: CALL J 

OYSTC.H.V): : CALL KEY (O.K.ST) : ] IF H-0 

AND ST-0 THEN CALL M0TI0NO1 ,0,O» 

1260 CALL COINC(ALL.C) :: IF C THEN 1320 

1270 CALL P0SITI0N(43.OO.HM)!: IF 0C<192 

THEN 1210 
1290 CALL P0S"TI0N(41,ZZ.XX>: : IF <MM-XX 

1290 CALL DELSPRITE(43I :: CALL H0T10NI41 

,0.0):: VIE-VIE-1 :: CALL SCREENI07I:: F 

OR F=0 TO 23 STEP 3 

1300 CALL SDUND(-200,-S.F>!i NEXT F :: C 

ALL SCREEN(ECRAN) ! : IF VIE-0 THEN 1330 

1310 GOTO 1340 

1320 CALL DELSPR1 TEie:.) : : CALL WTIONUI 

,0,0)i: SC-SC*100 :: K'L-KL*>100 

1330 FOR F-0 TO 30 STEP 6 ■■ CALL SOUND ( 

-300. 1300, Fl i: NEXT F 

1340 DISPLAY AT(1.7)SIZE(7) :SC :: IF > I. 

3000 THEN VIE-VIE'l :i IF KL>5000 THEN > 

1330 IF TABL-1 AND SO- 10000 THEN 1630 

1360 IF TABL-2 AND SC:=130O0 THEN 1710 

1370 IF TABL-3 AND SC >- 2OO0O THEN 1790 

13B0 IF TAPL-4 AND SO-23000 THEN 1070 

1390 IF TABL-3 AND SO-30000 THEN 1930 

1400 DISPLAY AT12,7)SIIE(3I tVIE 

1410 NEXT J 

1420 V-2-<l/12)i: FOR B-23 TO 1 StEP -1 

i: CALL SDUND(-40.440»V'P. II :: NEXT 8 

1430 B0NUS-1O0O 

1440 SC-SC'BOWUS 

1430 KL-KL-E-Onur, 

1460 DISPLAY ATI24. 19): "ItONUD" 1 BONUS :: 

CALL SOUND<20.-1,0> 

1470 FOR I-l TO 1000 i: NFXT 1 

I4BO CALL HCHARI24.3, 1"L'. ""i 

1490 GOTO 1100 

1300 REM 

1510 FEM PERDU '. FIN 

1520 REM 

1330 CALI SCREEN (3) II CALI DELSPftlTE (ALI 

>:: FUR 1*1 TD 30 STEP 3 t: CALL SOUND) I 

00, -3,1)11 NEXT I 

1340 call SPRITE (44, 136,2,160,117,0, 10] 

1550 CALL COLOR (10. 14. 141 

1560 DISPLAY AT(2. ;i51^E(2) IVIE 



1370 rem I-l TO 8 I 

: NEXT 1 
1SSO IF 

'■ ■ 

Hn 

16->0 DI? ; 
SUCK* 

■ 
■ 

■ 

■ ■ 

I6SO TAF: 

8 :: El-- ■ 
it 

• - . ■ ■ 
160O GOS I 

■ • 5 

. - 
. 

II VI . ■ 

: - 
1740 CALL CHAR,: " 

■ : ■ :■•".:■ 
1760 BOSUE 

no a-'- 

■ • . 

1790 REM TABLEAU 4 

!fr» REM 

ISlO TAf-L-i : 

OS :: CAR* : " 

1820 CALL CHAR: 17 . 

1B30 CALL PA1 IERM ■ 

1840 GOSUG 

. : ' ■ ■ . ■.-■ ■ 

I860 FFr 

187* REM TABLEAU :. 

1890 REM 

1890 TABL-3 i: VIT- 10 CAf 130 :i CO-6 

:: ECRAN-16 
[900 CA1 L CHAfil I ' '. >H 
19io CALL PATTERfH-3,130 
. ■ ■ ■ ■ ■ : . 

1730 GOTO 870 

1940 REM 

1950 REM TABLEAU f 

I960 REM 

1970 TABL-6 :: V1T-3 n CAR-i 

:: ECRAN-08 

1980 CALL CHARI130.-11OA1CIE3970E0C0-) 

J99o Ci^LL FATTERN143.130) 

2000 GOSUB 2030 

2010 GOTO B70 

2020 rem 

2030 rem intro d'un tableau 

2040 REM 

2030 CALL CLEAR ;: FOR 1-1 TO 4 :; CALI 

DELSPRITEI4I) 

NEXT I 
2070 CALL Sr.REENfOD 

2090 J-2"(1/I21n FDR A-l TO 23 :■ CALL 
SOUND ( -40. 220»,1 A. 1) I i NEXT A 
KJ90 FDR DE-7 TO 12 

2100 CALL SPRITE (»Dr, CAR, lr<T <RND> 1 3> • 3. 1 
94. 1) 

21 IO NEXT DE 
2120 SP»7 

■ an rntiR-i to 3 

.!-■•■' FOR R-0 10 360 STEP 15 
2130 A-R»P1/1B0 
2160 X-9i-i.BO»C0S(A)«1 
2170 V-110-GO'COS!A) 

2180 BALI SOUND'90,-3. CALL LOCATE!* 

SF.X.Yln SP-SP*I :: IF 5F i: THEN SP-7 

2190 NEXT R 

2200 HEXl rOUR 

2210 FOR D6LAI 1 HI '00 :: ME XT DMA] 

2220 FOR A*7 TO 1 ." n CALL DRLSPRITtlSAl 

: i NEXT A 

: -M AH 

r| i SCREEN (2) 

■■'.: I I AY ATll . 12) i"- .--•"».■■.'■ ii DIS 
I I AY AT (7. 12i : "TOM f.Ml"! I.ll'l : : IHliM.AN 

'' = " " ^ 

■ ;■!■■■ | AV R1 </.. J) il hi.. ■ t tO) r 

PTS- 
; J '.. H I .t i AV RI 19, l J l '■""< Hi n.: i-i ■ DU 
R LT" :: l)IF>»LAV AT ( 1 1 . 1 1 1 " 1AW I Air i TAIH 

11 '.MAIS ATTFNTION" 

■ ■ ' i AV At (13.1)1 "( •'■ VI II BSI i'l ROM 
IN DIMINIIF" :: PI'.FIAV AT(|6,1)|"A inlul- 

■■,,■: i AN1 R1EN D* 
. 190 I'l'.rr ,,v ATuS, ] Ii ■ IM OSfilSI E" it 1)1 
SPLAY AH20.061 i" EKMM ( HAM I , . . . " 

DIS I AY AT (.-4, III) : -I -:| '.M I- T II. ■■■ 

■ ' !■■ i r,i i i i y ( | .,.. |.i || |p B , mi f| 7310 
. ■-;-<■ CAI i ii i Af) : : r^r iik.n 



CO-7 



TI-99 4/A BASIC ETENDU 



MONKEY KING 



Vous, Mario petit charpentier italien, venez de voir 
sous vos yeux, ravir votre fiancee par le terrible Mon- 
key King. Votre but? Sauver votre amie malgre les ton- 
neaux que lance Monkey King sur votre route. 
Mode d'emploi inclus dans le programme. 

Dominique ENET. 



■ . 

■ ■ ■ ■ i ! > ( | I 

i Call BCREEM4Z) 

■ : ■ ■ ■ . 
' CALL [NIC i: CALL LOAOi 
• GOTO 210 

i CM l itft. [FF.Fl i 

II DM II BO-500 
■ ' " TO O : : CALL CO" DR II, li 




420 'GORILLE 

■ [Q4D40", 129 

. "4044*221 2 1'lOOo'i.M',-, 150, " 10I00B04043820 

F", 131, ■■ ■ ■ ■(■■.'! ,T") 

.i.;.. i A| i ■ ;' 

■ 0dC03O30C0 ',134, . 

,.■■ _ , -.,. ; . , 

430 r.C\l l I HAI ' i .-., i ■ ■-■! IB! ■ ■ • '-,13 

. ! ■ :.-..!■:, I 1404040 tO 

■■.:.>-■ : : .2", 140, 

■';■■■ 09 i ■ 

,.i .,..-. |4)I, ■:■ 1010 !0: Oil 041 C* I 

470 r.'ii I. CLEAR 
490 FDR I-l TO le, ;, CALL COLOR ( 1 , 1 , 2) I I 



730 ' 

740 I 



'T I 



( . 



■ ■ ■ ■ 



(6, 1) 



240 DISPLAY AT(B, 10) :"MONI FY I Inrl- 

Ml LAY AT ( 10, 141 : "PAR I ■ 

DISPLAY fiTtl2.9)i"00HlNI0t)E FNF r 

S70 DIBPLAY ATI14. ]);".. 

: [SPLAY AT (24.5) : -PATIENTCZ UN INSTA 

NT" 

• ■■ CALI CHAR(33, •COCOCOFFFp'COCOCO", --,. " 
'■■> "FO-03030") 'ECHELLE 
300 CALL CHAR(36,*000 VIOOO0O0O003C7EFF 

1 '1 ' I ' ■'' " ■' ■■ - m-ir.r-,.,, ,, 

'"I- I ' -ONNEAU 
110 CALI ' MAR(42,-| I I I 814: AlSi FFI ",43,- 

0O0O0001O00000". 44. "OOOf. ■'■:."".■ IOO> 0' ,43 



■"' ■''•'. '." ">■'•' • 1 fl If IM'J 



320 CALL CHAR(46, ■36777T»7F3klClt0B - l 

ZZO CALL CHAR 1 6' i, ■'•>■■ -f'k.h R'i7.,-Tr,'F0FdB0B03' 

03020if0607bl 

OO'-l'MARIO ] -/ 

340 CALL CH'R.ll, i -3A993I /I ' FFF-1 
[30 CM i CHAR It2, -.,/:.|. ...■■!.. 

03ii [i i irt ■■■ ■■■ ■ i '" ■■in i ■■■ "•!■ I'miciwococo 

E0"l 'MARIO 2 - i 

360 CALL CHAR 19*, ' ' "tOOOpVo (Olflk O7Ol0> 

■■I I- ■! ■ I ■-■ ■ i i,|,i, hi. I ,-, ..'.l.i/.'if... 

EO") 'MAKIO 1 

' '■■ i «M ' CHAM tJOO, "000 '*■ '■■ I t*O7090 l 

lOlOIOlOld i i| i ■ i '.'■■ i i 01 ■■! ■ i ■■. 

4S0" ' 'MAI- 10 . 

30O CALL CHARdO*. -.,!,, ■ *0BO90V07v^3030 ' 

■ -■....■„, .in/,,,,, 
060 ' ■MARIO " 
[90 CAI i < HAH I lOS, " U s>- n ii- u ii ■ 

1 I'l 1 IF1I "I I I.I HI DI MM ii nr I III I.'' ■■■ 

mi. ') ■ IIDON D'HUII i 

■ ' MAR1 111, " ' 2020V*0303<* ODoVo 

10B090* ■ : iDOSO* ■•< 060C I "' 

'■ - ! SOU i DI FtU 

»10 CA ■'■ (lift, "00 tB4404bB/o0010"l 



490 CALI- COLOR ( I . H. I . 7 . I •! . 

i.n. i4, r. i ■. to. i ; 14, io, du fof ra 

11.16,1*11 ii:.: I 
rABI l 'i I 1CHR1 (131) ICHRI i I '.'ii 
310 f I. INi rABOSI ICHtt*(12B) ICHR9 4 l -L - iCH 
R«( l --., I CHI i i t 19) 
■■?•■ PR INI rABI 13) ICKR4I 129) |CHR9 ( 1331 (CM 

■ |(| :,'-,.i Hft< ■' I .v.i 

■,■!' II II' » ■ I '■■> Jl Ml.t (| '..') :(.!! 

R* I l SB) ICHR4I 141) 

340 PRINT ■ ■ 

90 FOR l»l TO 12 ii PRINT * ' 

* •■" ■; NtXT I 
540 ! mi 

370 DATA i 10, ■'. i. I, >"*. ! U ,400, i lO.SOO 1 

.163, 1 162, 00,1*3, ■!■ ■■. !.-■. . ; 163 

. goo 

MO DATA lti2,-90o\u,B, B00ll*2 ,'l*3, 

■ o 
890 i Of) fuMi i ro 13 
600 RtRD NO.DUR ' 

610 CALL OOUNDIDUH.NO.",, 
/.. in - i NOTI 
i. ■■■ i in- DCI -i ro 100 M NBX1 DI I 

t.*0 DWM LAY IK I !■ ATI ■,. I |, ,■■-«-, Ml ll.fr 
■ IIFLAI-I TO 60O il NEXT Dfl.Al 

■ ■ ■ CALI 

670 i i.i t '-i i.i i I 

*B0 I OF. I Olll -1 TO 14 1 I nil III,: 

2, Du NEXT O ' 

690 i mi ■ 1 1 on io ■• 

TOO PRIN1 ■ '• 'h -b-b" 

71$ PRINT " ' » 'ti»c*e«e" 



750 FRINt " ' 

',.■■ PRINT " ■■" 

■•70 ' F INI " ■» ■ 

■■■■ i I.IMT - ■■■' 

i • 

§00 F ■'INT '■ >4" 

Hi- I I- INT " ■»■■ 

B20 I "INT ■ ■«- 

S PRINT 

O*,- FRINT " •■" 

BSO i r INI " ■■" 

B60 if ini ■ if)- 

i : i r 

Fill., I I. INI "i,- ■•■■ 

B90 PI hit -in '«'■ 

I I- INI ■.-., ■■" 

910 PRINT ' 

920 FOR 1-11 TO :■* MM ■> : : CALI Ml 

I. 1,43, 12)11 N' ■ i i 

'■ i ■■ .' 14, ,i 801 ■■ ■- CM i HCHAR (3, I 

It CALI mi HAP •!., :, i -.u 
940 (ALL MCHAR<3,4, 131) M tail HCHAR (4,4 
,132)11 CAi i HCHAR <3, 4, i I I 

I CHAR (6. 4, 134)11 CALI HCHAR (3,8 

, i^r.i i ■ i i,i i mi KAR(4,S. i V.i 

9*0 CM i HCHAR (3. 3, I37)ii CALI I ■>'■ l*,l 

. I"!8) i t cot I HCHAR i4. i.. i ■■■vi 

970 i"AM HCHARIS, 6, 1*0)11 CALI HCHAR 1 6 ^4 

,141) 

980 CALI COLpAl I,B. 1,2, 14.1,3, 11, 1,4, ) I, 

i . ■'', 1 1 , i. hi,'/., i, in?, i. ij'io.i, i4iio, ii 

-'■■ i i '. in ii 1 1 CM i I "i OR ; i DU . i 

',. I 1 11 Nl ' I 

i DlH i AY HE' mi ' 14, 2) I 'I Rl BStl I 

"■■i"C"i i ■ POUR (.univ. ■ ■ 

|l I -.1 I II /(Oil .'.Ml IF '.-,' 1MI N 1010 

1,,.',. |l , ■■ : I,' ■! 1090 I I ''I [I ' '.•• "'I 

N 1010 

103O DISPLAY in I i ATC13.3 

'.■i i. mi i in. LOO 

1040 BOTO 1010 

1030 DISI i AY AT(1 1,3)11 II I 181 i ■" 

10*0 DIBP1 AY at (.'4. i i i "" 

1070 i i 

Smlo pago 47 
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FERNANDO BRICOLO 



Non, vous ne rfivez pas, voici un jeu enti&rement gra- 
phique a quatre tableaux. Fernando le bricolo s'est 
ikjare dans une usine delabr6e ou regnent des petits 
monstres pas tres accueillants. Dans ce d6dale de 
poutrelles, il doit retrouver sa perceuse. II n'a pour 
seules armes que sa rapidit6 et votre dexterite. 

Stephane FERHAT 

TaWeau n" 1: Fernando doit grimper quatre etages el atteindre le 
point d'mtefrogation. Mais, a chaque etage, il rencontre des mons- 
tres sur les poutrelles. Fernando, pour passer a I'etage superieur 
doit avancer puis sauter !es monstres car leur contact est mortel. 
Tableau n* 2: Fernando doit cette tois, traverser un precipice pour 
atteindre I'autre c6te de I'ecran. Pour ce faire, un tapis roulant avec 



poignees, ou il peul s'accrocher. defile au dessus de Fernando. Ap- 
puyez sur le bouton d'action au moment ou la poignee passe et 
Fernando s'y accroche. A la hauteur du point d'interrogation reap- 
puyer et Fernando lombe sur !a poutrelle. 

Tableau n" 3:A la maniere de Frogger, Fernando doit traverser 
I'ecran ou passent des tas de creatures. Arrive en bas de I'ecran, 
c'est gagne. 

Tableau n° 4: Enlin. lepreuve finale. Fernando commande une arba- 
lete. Vous devez empecher les trois monstres de I'atteindre. Pour ce 
taire, bougez la Heche vers le haul ou le bas. Quand un des mons- 
ires passe a la hauteur de votre fleche. appuyez sur le bouton d'ac- 
tion. Si vous tuez les 3 monstres, vous gagnez 1000 points, mais si 
un des monstres atteint la perceuse c'est perdu. 
Remarque: Pendant I'inter-tableau. si on vous derange, vous pouvez 
arreter la partie quand le rideau violet descend en appuyanl sur la 
barre d'espace:une pause musicale retentit. Pour repartir, appuyer. 




Lfl * iTMl 
600 ON LE BQSUB 610.1490, 



131, 170.0,6-LE' 

6*0 CALL PATT£RNia].]03M( CALL POSITION 

(•I. fi.fl:: CALL LOCATE (•! .F,8> 
6SO IF B>231 TWEN CALL LOCATE!*,. 
660 IF B<33 THEN 80O 

CALL COINCIALL.CRAHi IF CRA=-: Mn 



■ ■ 



IOO DATA 262.1,330,1,392,1.440,1 


466, 1 


3 








.622.2 






110 DATA 494.2,323,2,440,2,392.3 


494.3 


*f 


87, 3. 639, 3, 698, 3, 334. 3.387. 3, 491 






120 DATA 349,2,440,2.523.2.587,2 






94. 2, 52". 2. 440. 2. 262. 1 , 33©. 1 , 392 




1 


. 166. t 






ISO 3ATA J70, 1,392,1,330, 1,262, 1 


196. 1 




62, 1. 196, 1.2*21 >■ '*«>■ 1)262/1, 196 


1,262 


1 


.262. 1.294, I.330J I 






140 DATA 349. 2. 262.2. 349,2,262,2 

'.r.:-, :;49;2,7-;o , .2,2 t »4,2.262ji, 196 


349.2 




1 




ISO DATA 262. l,7-30; 1.392; 1,440) 1 


466,' I 




70. 1,392,'!, *"-"'. 1, 34912,440% 2.323 


2.5B7 




160 DATA 392, 1.262i 1.262J 1,4,4 






170 RANDOMIZE :: CALL SCR£EN!2)i 


CRE-2 



Fteioboooo-i 

240 CALL CHARd 18, "F0F0FOEOEOEdF8F8" > 
250 CALL CHAR(9B,"3C7EFFE7E7) : F7E'3C003C7E' 
FFA69335950O , 183C5W99fc666E730tSB47 l 2390'CC66' 



:: SC=o i: LE-1 :: V»0 : s CALL CLEAR 
1BO REH redehtiont 

de>s caractp 

190 CALL CHAft(64."OOOO7CFFFtE04'o4O H > 

200 CALL CHAR (106, "003F t 7FFFFF7F3FV_,OOOFCF 

EFFFFFEF'COO" ) 

210 CALL CHAR (I 03, - I B1818'3C3A'l83C64", 104 

."lB5A3ClBlBb68l'00-. 103, " iai8ia3C5A'lB18] 

B") 

220 CALL CHAR!U2.-3CFF0B7E7E6600l8030 l 70' 

FOE07O30OO7FFFFB13CTFFF0OFFCOEOF<770EdC0O 

0EO-) 

230 CALL CHARI1 16.-CFOFOF6707070FOFFFFFF 



', 260 CALL CHARI96."3C3C3C3C3C3C3C3C"> 

270 CALL CMAR{40, ,, BlFF8IBI81FFBier , -,42," 

FFFFFFFFFFFFFFFF " ) 

280 CALL CHA«!33. "FF182442B1FF0O0O 1 " . 34. - 

AA55AA35AA35AA35" . 36, "5A5A3C'l 018161818"! 

290 CALL CHAR135, "18244 1 2423C0OOOO0-) 

30O CALL CHARtl20,."OOOO3C7E7EFFld7E-. 121 

. "00OO7CFFFCEb4O4O-) 

310 CALL CHARU23. "222424242242B2Sl'BD425 

A422<466AhlB"l 

320 CALL CLEAR :; CALL DELSPRITE IALL) : : 

FOR T = 5 TO 8 :: CALL COLOR I T, B, 1 > : : NEXT 

T 
330 REM 

340 CALL HCHAR (21, 1,33,321 : : CALL HCHAR < 

17.1,33,32):: CALL HCHAR ( 1 3, I , 33, 32> : : C 

ALL HCHARI9, 1,33,321 

330 CALL HCHAR!3,9,33, 16) : : CALL VCHAR ( 1 

8,4,40.3):: CALL VCMAR 1 1 4, 4, 40, 3> 

360 CALL VCHARIIO.4,40,31 

370 CALL HCHAR!4, 1,33,32»2) 

3BO DISPLAY AT110. I) I "fcf j li j I j I- j I- j I. jljl,l: 

jfcjkjkjkjfc" it DISPLAY AT ( 1 4, 1 ) : " j (k j k 3 V 

jkjtjkjkjkjkjkjkjkjkj- 



390 DISPLAY AT (18. I > 1 "kljkjfc iktl ,i l. j I j t. il 

400 DISPLAY ATM. II:- FERNANDO 

BRICOLO - :: IF CRE--1 THEN 930 
410 DISPLAY AT!1, 15)SIIE(3);RPT»!-q-.CRE 

420 DISPLAY AT (3. 1 > SI ZE (6) i HI :: DISPLAY 

ATC3,23)SIZE!6):SC 
430 DISPLAY AT!7,2)SIZE!1>: --" 
440 CALL C0L0RI9.7. 1.2.6. I. I. 14. 1. 10.3, I 
,3. 16. 1.4,16. 1. 11. 1 1 , 1) 
450 RESTORE lOO 

460 READ TP.FR :: ON PR GOTO 470.490.SJ0 
,430 
470 CALL SOUND!IOO,TP.l.TP.2.2.TP*3.3>:: 

CALL SOUND1IO0. 165, I. 196. 1.262. I) 
4 BO GOTO 330 
490 CALL SOUNDtlOO.TF. 1 , TP*2, 2. TP»4. 3> : : 

CALL SOUND (IOCS 175. 1.220. 1,262. I > 
SOO GOTO 330 
5IO CALL SOUND<lOO,TP. I , TP.2. 2, Tp.4, 3) i i 

CALL SDUNDIIOO, 190, 1.247. 1,294, II 
520 GOTO 330 

530 DISPLAY AT (23. 4) : -pRESSEZ C FOUR COM 
MENCER- :: CALL KEYtO.K.BJ 
340 IF K«67 THEN 360 
550 GOTO 570 

560 CALL SOUND12O0.220.O): : DISPLAY AT<2 
3,4) :-DEVEROUILLEI ALPHA LOO*: ■ t: FOR T 
=1 TO 300 :: NEXT T :i GOTO 460 
570 IF K-99 THEN 590 



760 
680 CALL JOYST (1,1 

L PATTERN!*: . 

690 CALL MOTION!*: , . ■ • 

700 CALL KEY(I,K,Slll IF S-O THEN 640 

710 IF I. IB THEN 640 

720 CALL PATTERN!*] ,1041 

730 CALL SOUNDI-1CC.-3. 1) n FOR T--16 ID 

13 STEP 2 :: CALL MOT ION [•! , T , I n . 71 II 
CALL COINC(ALL.C>:: IF C--1 THEN 760 
740 NEIT T := CALL MOTIONIHI , O. »•?> 1 1 C* 
LL PATTERW<*1. l'„'5>:: Gd:2 _-» I 
7SO REM touch* 

par let aonatr 

760 CALL MOTION<*I.O.(>>:i CALL COLOR!*). 
7>j: FOR T-300 TO 210 STEP -15 :: CALL S 
0UNO(-4,T,O.T«l,O.T.2.O)i: NEXT T 
770 IF CRE"0 THEN 930 

7SO CRE-CRE-1 :: DISPLAY AT ( 1 . 14ISI IE 43) 
RPT»(-g-.CR£>I 



790 I 



6tO 



IF V»3 THEN 850 
BIO CALL MOTION(«M,0,O>:: CALl LOCATE<<lt 
,F.24)t: CALL DELSPRITE (O. • '. , mi • 
B20 FOR T=P TO F-31 STEP -1 :: CALL LOCA 
TE(»1, T.24):: NEIT 1 i: SC-SC*230 i: GOS 
UB IS^O 

830 CALL MOTION)*]. 0.-13!: : FOR T-l TO 1 
91 :; NEXT T :: CALL MOTION<*I . 0.0> 
B40 V^V»1 i! ON V GOTO 860. 880, 9O0. 830 
B30 GOSUB 1030 :: GOTO 1080 
860 CALL SPRITE(»7.9B.3. 1 2V, 20, O, 7«LE . »3 
.98,3. 120, 110.0, 7*LE.«4.98. 3. 120. 1 70. O. ? 
♦LEI:: F-I2C 
870 GOTO 640 

BSO CALL SPRITE142. 99. II, 88,30,0. 31E,«3 
.99. I 1,88, 100,0, 5*LE.*4,?Q, t ] . 88. 180,0,3 
*LE>11 F^88 
B90 GOTO 640 

900 CALL SPRITE <»2, IOO. 15,33. I I 0,9*(.E,IS 
. IOO. 13,33, lOO,0.9»LE,44. 100, 13.33. I8O.0 
,9-LE):i F-57 
9IO GOTO 640 
920 REM «in 



H SPLAY I 



GAME - OVf 

Suite page 43 



Tl 99/4A BASIC ETENDU 



MONKEY KING 



^kf^dP Suite de la page 46 

10BO CALL SPRITE(»l. 60, 16. 161,32) 

1O90 CALL SPRITE(42. 36, 7. 161. 100.43,36.7 

. lit .2O07 

UOO CALL SPRITE(44.36,7,l29.50,»5,36,7, 

1^9. IBOl 

'110 CALL SPRITE 1*6. 36,7.97, HO. •7,36, 7. 

•>8,210> 

1(70 CALL SPRITE(»8. 36. 7, 65. 40, •9.36,7.6 

3. 1 20. «10, 36.7.63, 190) 

1130 COLL nOTI0N(»2.0.-B-DI."3,O,-B-Dl> 

1140 CALl. r»CTI0N<»4,0, 10*DI,»3,O. 10*DI) 

II30 CALL MOTiaN(»6.0.-I2-DI,«7.0,-l2-DI 

1160 CALL MOTION(«B,0.9*DI,49.O,9*Dr,"10 

,0.9*01) 

1170 DISPLAV SIZE(7)AT<l,8)iSC 

HBO CALL MEYtl(K,Sll« IF K=18 THEN CALl. 
SAUT 

ll^O CALL MOTION(41.O.0):i BO-BO-I 

1200 CALL COINC(ALL.COIN) :: IF COIN=-l T 

HEN CALL CHOC : : 

1210 CALL JOYSTII.X.YI 

1220 IF X-4 THEN 1 240 ELSE IF X — 4 THEN 

1260 EL5E JF Y-4 THEN 1280 

1230 GOTO I 180 

1740 CALL PATTERNI4I.92) i : CALL MOTION!* 

1,0, IO>tl CALL COINCIALL.COINt: : IF COIN 

«-l THEN CALL CHOC 

1230 CALL PATTEftHt»I,60)>i BOTO IIS" 

PWTTEnm«l, lOOlll CALl MOTION! 

•1,0,-lOHl CAt_( KEVM.K.St : : IF S»IB TH 
vfN CflLLSAur 
r rr 70 r. AT f " '' A T I E P.r J ' " I ,9/,i : : GOTO 1 10" 

I2B0 CflU GOING [#1, l*l,206,3,rOL.Hl l f T 

01 -I T)CN 133" 

1790 CALl PATTERN!*]. 104):: CA1 L COINC(A 

'-I.COINI:: IF COIN--I THEN COLL CHOC :: 

BOTO IOBO 

(300 CALL MOTION!*!. -IO.01 si FOP D-l Tu 

230 :i NEXT D II CALL MOT JON<*l . o, 0> 

13l'l CALL COINCIALL.COIN) e: IF C0IN--1 T 

HOI '.Ai_l CHOC il GOTO 1O80 

1320 CALL LOCATE !•!, 129,206) :: SOSC-23 

11 GO ID 11 70 

1330 CALL C0!NC<*1, 130.24,3,10L)i i IF TO 

L'.^-l THEN ['.no 

1340 CALL PATTERN<*1, Kp4Hi COLL COINC'A 

LL.COINIi: IF C0IN--1 THEN CALL CHOC n 

(WTO I08O 

1330 CALL MarifJN(*l.-lo,iM: 1 FOR D-l TO 

250 11 NEXT D II CALL MOT [ON 1*1 , 0,0) 

1360 CALL COINC'ALL.COINMi IF C0IN--1 T 

HEN CALL CIIOC il GOTO IOBO 

1370 CALL LUCATE(*I. 97.24H i SC-SC5H (I 
G010 1170 

I 180 CALL C0!NC!*I,99.2O6,3.TOL) i : IF TO 

L- -1 THEN 1430 

1390 CALL PATTERN<*1. 1041: j CALl. COINEM 

LL.COINIi: IF COIN--1 THEN CALL CHOC II 

GOTO IOBO 

1400 CALL HOTlr]N(*l,-irj,0)i I FOR D-t TO 

230 II NEXT D t! CALL MOT ION (• 1 ,0,0) 

1410 CALL COINCIALL.COINlll IP C0IN--1 T 

HEN CALL CHOC ii GOTO 108O 

1420 CALL LOCATED, 65. 2061 I I SC-SC'73 I 

I GOTO 1170 

1430 CALL C0INC(*1 ,67.48.5, TOLli i IF TOL 

- --I THEN 1180 

144C CALL PATTERN!*], 1041 i i CALL CDINCIA 

LL.COINIi! IF C0IN--1 THEN CALL CHOC II 

GOTO 1080 

1430 CALL MOTIONI«I,-IO,OI I I FOR D-l TO 

250 ii NEIT D It CALL MOT I0N(»1 .0,0) 

1460 CALL DELGPRITE(ALL) I I CALL SPRITE!" 

1.60, 16.33.49) 

1470 CALL HCHAft(4,9,46)l I CALL HCHAR (3. B 

,46) 

14BO *1C-5C«2S0 II DISPLAY ATM.Hi ,l,'i ', 

i8C 



149CJ RESTORE 1 300 

1300 DATA 220,20O;247,20O.294,20o',3OOO0, 

100, 220;200, 247,200, 196,200 

1310 FOR NOTE"! TO 7 :i READ NO.DUR tl C 

ALL SOUNDIDUR.NO.OH: NEXT NOTE 

1320 FOR SON-196 TO 400 STEP IO ii CALL 

S0UND(-3OO.SON,0)i : NEXT SON 

1330 DI-DI*1 II IF BO<0 THEN 1390 

1340 DISPLAY AT (2. I )SI IE (3) : "BONUS- 

1530 BON=INT!BO/IOI 

1360 FOR BONUS-O TO BO STEP 10 ■■ CALL S 

0UND(l.33O,0}i: DISPLAY AT < 1 .81SIZE <7> : S 

C*BONUS i: NEXT BONUS 

1570 SC-SC*B0N»10 

1380 D15PLAY SIIE!3»AT(2, 11 i"- 

1390 FOR DEL-1 TO 30O II NEXT DEL 

1600 CALL HCHAR(4.9,32> 

1610 CALL HCHAR(3,8.32> 

1620 GOTO 1070 

1630 SUB SAUT 

1640 CALL S0UNDII.33O.0) tl CHO-0 

1650 CALL J0YSK1.X.Y) 

1660 FOR SA--14 TO -8 

1670 CALL MOTI0N!*I,SA,X»1.3) i i CALL COI 

NCIALL.COINM: IF COIN--] THEN CALL CHOC 

I I GOTO 1 740 
1680 NEXT SA 
1690 CALL MOT10N(*I.O.OI 
1700 FOR 3A-8 TO 14 

1710 CALL M0TIDN(*1.SA,X-1.3) I t CALL COI 
NC (ALL, COIN)!! IF COIN-- 1 THEN CALL CHOC 

: : GOTO 1740 
1720 NEXT SA 
1730 CALL M0TI0N(*I,O,0) 
1740 SUBENll 
1730 SUB CHOC 
1760 NC-NC*2 
1770 CALL M0TI0N(»l,0,O) 
1780 CALL COLOR (*1, 9) 

1790 FOR M-l TO IO tl CALL PATTERN(»l . IO 
4lii CALL PATTERN<*1.60) : : CALL PATTERN( 
•1,104)11 CALL PAirERN(*l,96) 
1800 NEXT M t: CALL COLOR 1*1. 7) 
1810 FOR MUS-900 TO 400 STEP -23 ii CALL 

S0UND<lO,MUS,0)I t NFXT MUS 

I S0UND(230.3B7,0>! i CALL SOUND! 

i: ■ CAI I. COLOR!*!, 16) 

1840 CALL DELSFRI1L IALI.J 

1830 IF NC^7 THEN 1930 

I860 DISPLAY AT!13,3)SIZEI19)i"ENCaM UN 

E PARTIE *.■' 

1070 CALL K£Y(2,K,S)1I IF B-0 '•* N IB70 

hLST. IF 1^.13 IHEN CALL CLEAR it END 

1880 IF V'.rb THEN IB70 

[890 IJR.PLAY AT12. 17)t--*'b-b"b M 

|900 DISPLA/ AT!3. 17): " • •acacc" 

\1\<3 DISFLAY SI7E(19)AT(|3.3I i -" 

1920 RUN 1070 

19 30 CALL RPR] If '•] ,',■■>, If.. 161.32) 

194'i CALL SPRUE 1*2, 36, 7. 161, |i.0,*3,36,7 

. 161.700) 

1930 CALL SPR1TE(«4, 36,7, 129. 30, •5.36,7, 

129. 1BO) 

I *60 i M I 5PRirF(»6.36. 7,97, 1I0,*7. -,6. 7, 

97,1 BO) 

19/0 CALL SPRITE! I 



190) 



'KI-, <./■{{ >'r.HAR(7,27-NC,32,21ll CALL HCH 
R!3.27-NC, 32,2) 

13.0,-81 



I-'-',, cr,, , ran mm,;' 

2000 CALL KOI I0N(»4.0, l'J.»3,0. IO) 

2010 CALL MOTI0N!«6,O, -12, •7,0.-12) 

Z020 CALL M0TION<i8,0,9 1 »'»,O 1 9.»IO,o 1 'H 

2030 fiUDEND 

2040 Mllr FN Ml ■ 

2030 DISPLAY SEEP AT ! 1 2, 2) I "VOULEl VOUG 

LE9 REOLES t" 

701,0 CALL KEY!0.K,S1 

2070 IP S-0 THEN 206O 

2000 IF K-70 OR K-IIU THIN CALL CLEAR i 



SOW IF I '' Mir 
2100 CALL CLEAR 
2110 PRINT ■ • 



Jll I THEN 2060 



2140 


PRINT 


-• ........ 


.. 


2 1 SO 


PRINT 






2160 


PRINT 






2170 


PRINT 






2 1 » i 


PRINT 






2200 


PRINT 







2210 








2220 








2230 


PRINT 






2240 


FOR DELAI-1 TO lOOO it NEXT DELA 




2230 
2260 

2270 


CALL CLEAR 




PRINT 


1* 


1, 


2280 

2290 
2300 


PRINT 
PRINT 
PRINT 


!• MONKEY KING 




■* 


2310 


PRINT 


■• MARIOiLE PAUVRE PETIT 


» 


2320 


PRINT 


■• 


■ 


2330 


PRINT 


'• CMARFENTIER ITALIEN VIT 


•• 


2 (40 


PRINT 


■• 


• 


2390 


PRINT 


•• SA BELLE ENLCVEE PAR UN 


• 


2360 


PRINT 


•• 


• 


2370 


PRINT 


•• HIDEUX GORILLE. 


> 


2300 


PRINT 


■• 


■ 


2390 


PRINT 


'« BRLUI CI A JUCMG CELLL 


• 


2400 


PRINT 


•« 


• 


2410 


PRINT 


'• LA AU SOHJVT D'UN 


■• 


2420 


PRINT 


!• 


!• 


.'A ■<■ 


PRINT 


'■ ECHAFAUOGfie. 


■ 


244D 


PRINT 


!■ 


'• 


1490 


PRINT 


>, 


'• 


2460 


PRINT 


'. PRCSSE* IJNt IP POW 


• 


2470 

-■■!!;■. 

7490 
2300 

2310 


PRINT 
PRINT 

CALL mi 

PRINT 
PRINT 


•• CONriNlltIR 


• 


JiJICMJIi 




. 


.. 


2320 


PRINT 


■« VOUS RCVC7 HWC HUIDI 1 


• 


■■-, ■,, 


PRINT 


•• 


• 


.--,*., 


PRINT 


■. LE PrtUV&F MftKIri ft 


• 


2330 


PR I NT 


'• 


• 


.•-,/,•. 


PRINT 


'■ L.-MM M vnn i MAM i " 


• 


2370 


PRINT 


'• 


• 


2380 


PRINI 


■ M .'i n 


■ 


2390 


PR INI 


•• 


• 


7600 


PRINT 


'. vnn-. i mivifc. w i rhi ft 


• 



2630 PRINT 


-■• i 


2640 PRINI 


■ ■« i-n H.Mil Mills VOUS M ! > 


2630 PRINT 


-•* 


2660 PRINT 


-•■ I'lHIVI | 1 A". M Ml HMI . 


2670 PRINT 


-■• •• 


2600 PRINT 


., 


2690 PRINT 


-•• POUR LONTINUI.r- 1 M ..p p. 


2700 PRINI 


-■« 1IN1 IIHIfl* ■■ 


27IO PRINT 

2720 PRINT 

2730 CALL Ml 
2740 PRINI 

2730 PRINT 


■II 


JSIOUL 


!■ 


2760 PRINT 


'• POUR SAUTI A 1 Ai- DOBCUt - 


2770 PRINT 


■ ■ ■* 


7700 PRINT 


•■ 1 IS rONM AUl 1 I.I '.'.I (■ : ■■ 


2790 PRINI 


.« 


20O0 PRINI 


'■ .1 [ rr. ■■ 


2BIO PRINT 


■ ■ '• 


2820 PRINT 


■» un BONUS EST AimifiM «■■ 


7B30 PRINT 


• I 


2840 FRIN1 


'■ CHpABU i 018 cur nark) ■• 


7030 PRINT 


.. 


7B60 PRINT 


■■ DS) (VM M i IAN ii. '■ 


2B70 PRINT 


)• -I 


moo PRINT 


'• CU.UI CI i m KTTRISUI '• 


2B90 PRINT 


■• 


;■?..-. r i |NI 


■ " i i, i i ■;■ • ION I'll 'I f ■■ '• 


2910 i ftlNI 


'« 


7920 PRINT 


■* Ai it MDU ' All i * i W i ivr ■* 


;'9TO PRINI 


■■ 


2940 TRINT 


'* r >.i ■;■,((. iini: loncm nunc* 


2930 PRINT 


if COJll fj; i i '• 







2970 Lrtl l ■ 
980 BUM nii 
2990 SUB MUSI OU 

■ .1 vuir.1 him , 

IO10 DATA i *,■.-."'.. ]/.-,, tOO, t ■*...■'■',' ■■■■. 

,147, '■.. 120, 

■-.-.. riAiA ■ '..: i ;>• \ i «>, ."m. i. ■■, ■■■ .12 

... 33,1 !0J ■'.■■. 1 ". 1 "■- i-20{ 

J034 Iiaia 196,4001 IO, ' •■: .1 "'. 220, 1 I 

■ ■: 194, 1 ".'w:.. MO 1 FS, '-. ' 

(040 DA' A 147,100(160, ■■'. 16! [139,30 

01 147. .■•"•: I*', 200' 

1030 1 OH '-N- 1 tO v< 

1060 "i on BOH.DUA 

S070 i"Ai 1 ■OUNOd 1 -i ■-■■-. BOM M, IO] 

- ,it 1 11 VIO.I ,31 II i' ■ ■■ 

■..■,■■■ M < 1 :-n 

UOO BOTO " 



SUPER ETENDARD ET EXOCET 



Imaginez-vous pilotant un Super Etendard equipe de 
missiles air-air "Magic" et de deux Exocets.La base ar- 
gentine nest plus qu'un lointain souvenir, et vous pen- 
sez deja a I'attaque. Mais auparavant, il va falloir vous 
ravitailler en vol (tableaut). sous peine de vous ecraser 
en mer faute de carburant. La Navy a detecte votre 
presence, les Sea-Harriers attaquent: detruisez-les! Si 
vous dejouez ce rideau defensif, vous survolerez la 
Navy. Larguez vos Exocets sur les objectifs, mais at- 
tention a la DCA et aux conlre-mesures electroniques 
du H.M.S. Sheffield. Ensuite si vous vous en tirez, es- 
sayez d'atterrir a Port Stanley. 

S.MESUREAU 



Explications: 

Tableau 1. 

Bui: Ravitailler le Super Etendard en vol. 

Comment: Manoeuvrer le S.E. pour le meltre dans I'axe du luyau de 

raviiaillement de I'avion ravitailleur. 

Manette: Elle dirige le S.E. dans le sens vertical. 

Tableau 2. 

But: Abattre les Sea Harriers. 

Comment: En utilisant le bouton de tir de la manette de jeu pour 

larguer les "magic". 

Manelte: meme chose que precedemment. 

Tableau 3. 

But: Detruire les navires de la marine britannique et plus particulie- 

remeni I'Hermes et le Sheffield. 

Comment:Utiliser le bouton de tir pour larguer les exocets. 

Manette: Idem tableau 1 

Tableau 4. 

But: Faire atterrir le Super-Etendard. 



Comment: Votre vilesse decroit regulieremem. vous pouvez avg- 
menter cette deceleration en manoeuvrant le S E de gauche a drorte 
el vice-versa. Vous pouvez accelerer en pressant le bouton de trf 
(eviter de manoeuvrer dans le meme temps). Un message vous irv 
dique si vous pouvez atterrir, ou si vous devez accereref oo ratenbr. 
Pour atterrir. abaisser la manette vers le bas (contrairement a un 
veritable avion). 

Vous dispose? en tout de trois avions. chaque destruct>on (art repar- 
tir au tableau 1 . une fois le troisieme avion detruit, le tableau des six 
meilleurs scores apparait. 



190 REM INTRODUCTION 
TOO DIM 5C»(fc>.N»*<6> 
1*1 TO i 
< | ■ \-ve [ ' -"AAA" 

230 NEXT 1 

CLEAR 
... ; SCREEN (21 

[-1 TO 8 :: CALL COLOR ( 1 . 4. 2 I ; : 
NEXT ! :: CALL C0L0Ri2,9,2) 

I, &)!"•• *■'■ 

280 01 SPLAY AT(3,6>:"« SUPEfi-ETENDARD 4" 
; LAY AT 13.61 : '■ • E" I «" 

njn AT'7. &•;"* EXOCETS «■" 

LAV AT (9,61 :" .......'■ 

XJS ALLEZ REVIVRE 

rAouc- 

ftV AT (IS.lll OE LA NAVY PAR LES 

I -ENDARrr ARGENT I NS.F-ENDANT LA G 
-. HALOUINES. " 
- lav AT (16. II :" -VOTRE MISSION C 
QNSISTE A COULER LE FORTE AVIONS HHS" 

LAY AT (18.1) J "HERMES OU LE hmS 9 
HIEFFIElD" 

PLAY AT! 19. II : "VOUS DISPOSEZ DE 2 
EXOCETS. ET DE 12 MISSILES AIR-AIR 'MAG 

..■-' AT<23. 11b"B0NNE CHANCE ' '* 
380 3ata zoo, S92l 400,392.' 200. r<? 2' too, 323 

i.'.60O, 387/600, 587.600,734 ' 400, 63?! 

. :■'. ZOO, 323 '400, 65?! 200. 523 ' 

J80O,698j40O.387,200,494\800,323' 

: : TO IB 

410 READ A.fi :: CALL SOUND (A, &. 3) 
NEXT I 

CHAR<lOO. ,, OOOOO00ot>05*>4Ef447f : 00E< 



5000000*1 SCE37%ErbOOO 

■ ■.■■ ■ 



460 CALL CHAR(96."040'E3&1FOD0003<T , B1D3F7f' 
■■ lOOOOHOOOOCfceB^FFFFFfcFSFtFCtte^O* 

470 CALL DMR<112,*200O0OW422OSO2b533b7o' 
l!42*44bo08000 l ?220tatV)AOd*Eb90t4rf300eeO 



000" J 

a?M call Charm 10. ■000OO0O0000OO0O0%OFC4 

'■■-.....,,.■, :■■■■>■■■■■,:.<.,■ ■■;r,.y ,, --,-, ...,...,<. jOOOOOOOOOOO 

SOO CALL CHARf 124. "FFFFFFFFFFFFFFFFFFFFF 
FFF=FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 

FFF-I 



330 CALL CHAT- a. 



i,-, E t:.Eo 



■ 0''".'" ' 



330 CALL CHARf I 

CALL CHAR! 141. "FFFFFFFFFFFFFFFF"! 

340 REM PROGRAMME PRINCIPAL 

330 RANDOMIZE 

360 CALL CLEAR 

57.. HI .CPT.F r.H.CPT!=o :: AV=4 

58D CALL SCREEN (1 I 

390 call COLOR £1,5, 6) 

■ i r.HAR(77. "FFFFFFFFFFFFFFFF") 
610 CALL HCHAR(22, 1,33,321 
,:■ FOR !^4 TO £! :: CALL COLOR! I . T. ft I : : 

...: . - | 

i ■ '■ ' FOR :--. TO -1 :: CALL COLOR (I .9,6) : : 
N£X1 I 

COLOR114,3,2>: : CALL COLOR >. 1 3. 1 
6,2 



960 IF I ;3 THEN 980 
970 FOR X=5 TO 1 STEP -I :: SC* 
(X):: NM»(X*1)=NM»1X>: : NEXT X 
9FJO SC»(I1'STR»!PTI 
990 IF LEN(SC»(I) )=4 THEN SC« ( I . 
(I)i: GOTO 1010 

1000 IF LENISC4U) >=3 THEN SC»'lJ = "0" "«iS 
C*( I » 

1010 PRINT ■■•••*• MEILLEURS SCORES ••••• 
- :: PRINT 
torO FDR J=l TO 6 
1030 PRINT :Ji" SCORE. . . " ; SC* (J > ; " PTS. " 



■ ■ at<Z3, i I 



IZENE: 



i rjiri 



660 DISPLAY AT124, 1) ; "AVIONSl " 

670 DISPLAY AT(24. Ill :"MAGIC: 12" 
6S0 DISPLAY AT(Z4,20):"EX0CETl2" 

690 CALL MAGNIFVI3) 

700 CALL SPRITE (HI, 96. 15, INT (RND* ISO) +10 

, 120,82,96, 15. INT !RND*1S0)*10.32> 

710 ftV-AV-I :: DISPLAY AT (24, 8) SIZE (2) : A 



720 IF AV=' 



THEN 870 



000") 

740 CALL CHfiRf 103,"704B44424'lFF80FT407ko 

70l'023CF J 08 l ">'-..,^.<..;.',.,,.iooaOFF302303Fto4o'B08l' 

OIF") 

730 AL-INT<RND»70>*32 

760 CALL SPRITE(K3, K'8, 2. AL. 224, »4, 104.2 

.AL.239I 

770 CALL SPR1TE!»5. 100,2,96, 16):: 

7BO CALL SPRITE<»26, 124, 1,AL*15,222> 

790 CALL TABLEAU] (FUEL.PT, N, AV) 

800 IF n=l THEN M=0 :: GOTO 300 

BIO CALL TA&LEAU2(FUEL,PT,N1 

820 IF N-J THEN N=0 :: CALL DELSPRITE t »Z 

,44)11 GOTO 580 

830 CALL TABLEAU3(FUEL.PT,N,EX0,H,CRT1,H 

1) 

S40 IF N=I THEN N-0 :: GOTO 3B0 

BSO CALL TABLEAU4iP7,N> 

B60 CALL CLEAR : : GOTO SQO 

070 REM •• TABLEAU DES SCORES •• 

3B0 CALL CLEAR :: CALL DELSPRI TE <ALL) ! : 

CALL CHARSET 

890 FOR 1=5 TO B :: CALL COLOR! I , 14, 2) I : 



NEXT 
900 CALL I 



6.2,2, 16,2.3 



910 CALL SCREEN(2) 

920 FOR 1-1 TO 3 

930 IF PT>VAL(SC»(I) ) THEN 960 

940 NEXT r 

930 GOTO 1010 




■ ■ f sc* 



I'.'ft'.' CALL SOUND (30O, 131, 1. 165. 1 . J30, 

1070 CALL SOUND (300,392, 1] 

1080 CALL S0UND(300. 131 . 1. 175, 1,440, 1) 

1090 CALL SOUND (300, 131. 1. 196. 1,523. t) 

1100 CALL SOUND(300.494. l) 

1110 CALL S0UND13OO, 131,1, 173, 1.440. I I 

1120 CALL SOUND (300. 147, 1.196. 1. 392. 1 1 

1130 CALL S0UND(30O. 147. 1. 196, 1,294, 11 

1140 CALL S0UND(3OO,294. 1 1 

1150 CALL SOUND(3O0, 131, 1.173,1,262,1) 

1160 CALL SOUND (60O. 131, 1,196,1,330,1) 

1170 FOR TP»1 TO 600 :: NEXT TP 

1180 ACCEPT AT !4* U •?.). 23! VALIDATE (UALPH 

A1BEEP SIZEI3) :PIM»(I) 

1190 CALL CLEAR 

1200 PRINT "UNE AUTRE PARTIE <0/N> ? " 

1210 CALL KEY(2.S,T):: IF S= 1 5 THEN CALL 

CLEAfi : : END 
1220 IF T'O THEN 1210 ELSE 540 
1230 REM SOUS-PROGRAMMES 



1240 REM ATERRISSAGE 

1230 SUB TA8LEAU4(N,PT1 

1260 CALL CHAR (135, "FFFFFFFFFFFFFFFF "I 

1270 CALL CHAR* 104. "OOOOClOl II 1*7 l.9l'l 2147 

596 , 303OF01<KAj0B0C0CO l 4flF4CC444 l 2714T)E:A>0FFr 

COBO-1 

1280 CALL CHAR(1OB,"O10101010101v>1O1"I"I 

O 1 O 1 O 10 1 0101 BOBOBOBoaOBOBOBOOOBOBOeoeOBO 

8080"! 

1290 CALL CHARI42. "FFFFFFFFFFFFFFFF") 

1300 CALL DELSPRITE(ALLI : : CALL CLEAR 

1310 CALL MAGNIFY(41 

1320 CALL SCREEN(21s: CALL COLOR ( 1 .3, 13) 

: .- CALL C0LDR(2.2,2) 

1330 COLL VCHARI1. l.T-3.240) :: CALL VCHAR 

' I . 23. -3,240) 

1340 CALL VCHAR U. 11,42,24) tt CALL VCHAR 

11,22.42.24) 

1750 DISPLAY ATI23.221SIZEI6! :"SCORF: " : 

: DISPLAY AT (24, ?2)SI ZE (3) : PT 

1360 FOR 1-4 TO 6 

1770 CALL SPRITE <*I. lO!]. 1 I. 1 .69, •.,".... »I . 

3,108, 11,1, I37,30,0)n FOB T-l rD 170 :: 



Sl.'t :S 



t-5 :: DISfl A\ AT 
: : ■■ EH I 

:-RALE»1 IF 



L450 IF 



-. I! 
IF VII 
E(B): "ACCELLF.R" ELSE DISPLi 
F 13) : "At ■■;■ 
14S0 IF VII 

FOR 1-4 TO 6 I! 
D/10.0,«1*3,SPEEI . ii fCXl 1 

. J0YS1 <:■. <,y)ii 

: : CALL SOUND I ■ ■ i> ■ . . 



* .- ■■ 



• IIO.I 



I WIlOMiU, 
■20 

■. ) ■ 



. ■ ■ 



1490 IF T THEN '. 
I3O0 IF V tM N 1420 

1510 DISPLAY AT (8, 



1320 IF VII 360 OR 
TERN(«1. l 121 : ■ N- l 
1330 FOR DEC-SPEED 

1 " 



HO 

: : ■ ■ 

,1 . BTEI 10 

it ir ii 



IL HDTION(tl,0, INTd 

POSITirjN(»I.Yl.Xl):l IF XI Hi. 
ii!-: ii [40 ihi:n call HOTiONdi, . 
L PATTERN (• 1. M 2) 1 ! GOTO 1650 
1360 FOR 1-4 TO A :: CALI MOT !0N(« I . INT 
DEC/ 10) ,0. "I • ■. INI (D£C/ 101 .0)11 NEX1 I 
: NEXT DEC 
1370 DISPLAY ATI4.1)SIZE(3)I" " 

iseo call noriON(»i,o,o) 

1590 DISPLAY AT(14, 1 2l S! ZE (7) : "PONUSi " 
L600 FDR 1 = 1 10 10 :: DISPLAY 6.1 16.121 
IZEISlSEEPlBS :: TOR J-l TO 30 :: NEXT . 
:: DISPLAY ATI16. 121 SI ZE (5) : " " :: 

NEXT I 
1610 PT-PT.r.5 :: DISrLAY ftT<24.22)tPT 



i.l KO.I 



.a i 



1 1 

1670 FXO-2 M D-l ii CD-I 36 n CP1 CPTl 
1600 CALL CHAR (10*. ' V fl4Oh07 

ii7FcVj2--ii'-.':ir^"' .'.-... m| „•:./(■ :\ i'v.r_-.<ti ■ 

''■') 

1690 CALL CHARi l'-TI, -'■> 10 ■ ■ 

fi i n'.'h-i 'h m' ■ '. mi (i-,ili r 7t';«W 

1 /OO CALL CHARI1 -ft. "■ ■• ■" "' 

•^."140AFF*7F3fV"» .,.i.-.-,,-,.t HIT 

FFFF 1 ') 

[710 II DPT"4 THEN CD-114 
1720 IF CPT--3 THEN CD-I'TJ I I M f I) 136 

Suite page 49 



FERNANDO BRICOLO 



Tl 99/4A BASIC ETENDU 



Suite de la page 47 



P " :: FOP T-I TO 300 :: MEXT T 
940 IF SC HI THEN 930 FL5E 970 
930 FOR T = ! TO 7 :: CALL SOUND ( 100, I 10. 1 
,700, 11 SI HI-SC :: DISFLAr AT (3. I 1 SI ZE(6 
):HI :: DISPLAY AT(23,I)l' BEST 

■ SCORE " :: 

"■' '..'■!■ SOUNDdOO, 110,0)11 NEXT T 
970 DISPLAY AT'23.1):" VOULEZ-VOUS REJ 

ODER O N '• 

KEV<9,K.SMl IF S=0 THEN 980 
990 IF > =tll THEN CRE-2 :: LE-I :: SC-0 
:: CALL DELSPRITE (ALL ): : GOTO 4IO 

U IP K-1I0 rHER CALL DELSPRITE (ALL! tt 

CALI CLEAR : ; STOP 
IOI0 BDTO 980 
1020 I I M inter 



T-l TO 74 

IT T 
-32 THEM GO^U 



IO30 Cffl i DELSPR1 fE [ALL I i 

:: CALL HCMAR1T, I ,40,32) 1 1 
[040 CAl i. yEV'.0,y.S> 
B 1980 
1030 FOR 1*1 TO 24 :: Cai l MCHA*;i i . I . 

-ii- 'IT:: FOR T= I TO 2* :t CALL MC 
HARfT, I,32,32x(l NEXT 1 :: RETURN 
1060 REM 

2 P»» t4bl*»u ~ 



,■■- 



.... ■■; :■..,.- I] ■' ... .,,■....: ,:., 
■ .... 

oho FDf- T-3 I'i "I STEI 9 : I ' ALI '■ HAf I 
CALL VCHAR ( 1. T.i . 107,24) II 



'■ <:■'■ i 

1 *l.'l',; 



l.T 



NEXT I 

1090 i DP ' B ro .a -jrcF 5 i 
I0,T, 52, 11);: CALL l/CHARI 10 

NEXT T 

l 100 CALX HOMRI 13.4, CS,3)i 
13,23,33,8)11 CALL VCHAR(14 
ai.i VCHRA(14,26,40, : 
I 1 10 call HCHAR(7, 1 
B,t,S2,32«4)ti call 
■I HCHAR<10, 



CALL VCHAR ( 



12.5, 

II 30 CALL SPRITE (03 
•4.33, 13.60,130,0, -• 
1140 CAl I '.' MTI I 13 

00,-3 LE.OI 
1150 CALL SPRITE 
1160 CALL C01NCL 
N 1360 
1170 CAU 'I'M. 



34.3?!:: CALI. HOMRI 
HCHAR117. 1 ,32, 32) 

."., Zi :: CAl I HCHW : 

ss, ts.,60,30,o.-a-Le, 

i-LEl 
9B*INI(RND»-i ■ I . I 1 .. 



1 ISO GOTO 1160 

1190 FOR T— 17 TO :: CALL MOTION141.T, 

0):i CALL COINCIALL.CA): : IF CA=-1 THEN 

1240 

120O NEXT T 

1210 FOR T-0 TO 13 ;: CALL MOT ION (» 1 .T, 

):: CALL COINC (HI , 05, i 3. CA) : I IF CA--1 T 

HEN 1360 

1220 NEXT T :: CALL MOTION!" 1 , O, 0) : : GOT 

O 1 1 50 

1230 GOTO 1170 

1240 CALL SPRITE (HI ,36, 16, 64, 200,0, -3-LE 

I:: CALL MOT ION (US, 0.0) 

1230 CALL KEV(l,K,S)tl IF K-18 THEN 1270 

1260 SOTO 1230 

1270 CALL FOSITION(»1,A.B) : : IF B>33 OR 

B 24 n j r.fl 1340 

1280 FOR T«0 TO 21 :: CALL MOT ION (■ I , T, O 

I:: NEXT T ;: CALL MOT ION (■ 1 , 0,0) 

1290 FOR T-JO TO 12 :: CALL HCHAR I T , 1 . 77 

,3):: CALL HCHAR (T. 1 , I . 33. 3) 

13O0 NEXT T 

1310 FOR M^fi TO 1 STFP -3 :: CALL LOCATE 

(•I.88.M):: CALL PATTERN (41 , 103) : i FOR I 

"1 TO 30 :: NEXT T :: CALL PATTERN** 1 . 10 

31: i FDR T-l TO 30 II NEXT T 

1320 NEXT M 

1330 SO-BOIOOO t: CALL M0TI0N(«1 , 0, O) 1 1 

GOTO 1390 
1340 FOR T-A TO 240 STEP 2 i: CALL LOCAT 
E(Ki.T.B) :: NEXT T 

1350 CRE-CRE-l :i GOSUR 1030 :i GOTO 720 
1360 CALL MOTI0N(45, 0,0, 41.0, OU i FOR T- 
200 TO 110 STEP -2 :: CALL SOUND ' 100, -5, 
O.T,0)1I NEXT T 

1370 CRE-CRE-1 II G0SU6 1030 ii GOTO 320 
1380 REM 



1030 . 

CHAR (I 10, "02OT SEP1 ii i J"l 



! ■■>•■ MiMJI- !•■ ■•■ 

1400 CAJ 1 CHAR (I 
1410 FOR 1-1 TO 31 STEP 5 it CALL VCHARi 
lO.T, 106, 14)! : CALL VCHAR (10, T+I, 107, 141 
II NEXT T 

1420 CALL VCHAR (I .7.33,24)1 i CALL VCHAR I 
1,2,33.24)1! CAl L HCHAR (2*,, 1,33.941 
MTU CALL VCHAR (1 ..■■?.«'■.:■''' t CALI VI ii.. i 
11,4,40,24) : i CAi i hi HAP '■. i.'. ■ 
(440 CAl i Bl fi I n (87, 16, 16, 1*8,241 
14=1. 0-0 

' 460 I 'I >~BB TU ! 76 STEP 1ft n 0-0»1 II 
CALL BFRITR(80, 42, 1*.T, 230)11 NSX1 I 



0, 161 

1490 REM 

1500 lo!NT(RND«6)+l :: COLL BOUN0(13O,-S 

,0):l CALL MOTIONdH. 0.-701 

1310 CALL MOTI0N(*7,0,O) 

1520 FOR T=t TO 7 ii CALL CO INC {ALL . CAR) 

: : IF CAR»-I THEN 1360 

1570 CAi.L P08ITI0N<»7,A,Blll if fl 183 i" 

EN SC"SC«30O>LE :: GOTO I390 

1540 CALL JOYSTd.X.YI ! : CALI MOT ION f 47, 

-V.O) :: NEXT T 

1330 CALL nOrlONl#I,0,0)tl CALI LOCATI (0 

[,72416*1, 230)1) GOTO 1490 

1360 CALL MOTION) ■ I .".".":'."." I ; = CALL C 

0LDR(t7,7)ii CALL BOUND! 400,700,0)11 CA 

ll eOUNOi-20, 200.0.-4,0) 

1370 CRE^CRE-1 :: G0SLI8 1030 ll LE-LE'l 

:: GOTO J20 

1380 REM 



1370 aOSUB 10 10 

16 ..( i COLOR I 10,3, l ) 

1610 'op t-i to :i BT6P ' :i cam vCMAfit 
I ,T, 106,24)11 cai I VCHARtl, r*l, 107,24) n 

NF'T I 
1620 I (IP' 1-4 TO 19 ii CALL HCHARIT.7,32, 
I'*): i MM I I 

1630 CALL VCMAJt(6, 30,33,14)11 CALL VCHAR 
(6.7,33,14)11 CALI HCUARM7, 7, ".3,741 t I C 
SJ i i" HARI6, I". (3,211 

1640 CAi.i vi iwm i. .-,. :4.4) ; s CALI HCHAR 
(14,8.64) 

1*50 I W ' - tn ift ; : CALL color do, r. i» 
:i for v-i in jo i! NEXT Y ii niii r u 

CALL COLOR I to, I?. I ) 

(660 CAl I MP III I •■.'.''•),:„ 30. 72.45.99. 16, 

-'..((.'. -■I.V, ! . IO,«l 

1670 W-2 it CALI. CHARC102, *0000")lFP4100d 

tJC (680 TAl I r.rf. I T< <*1 . 102, 15, 100,2201 

1690 CALI LCCATI t»N,30,6OI 1 1 CALL MOTION 

(«W.4.I I ,■■> 

I ^00 CAl I lu/M I I ,«,¥) i , CALL MOTION!*!, 



■."< 
1710 CM i POeiTIONd 



fi.Mi 



IF A>133 TH 



EN ( 



133 



IF A<30 THEN A-30 

i J 10 CAl i i OCATEHII,A,i) 

17-10 CALL POS1TION14W.CDI: ! IF C>143 TH 

I ii I860 

1750 CALL HV1I.I .Sri II S-0 l"EN 1700 

1760 IF K-IB THEN 1770 ELSE 1700 

1770 IF (A 79 AND A 1m9I THIN 1 ZOO 

1780 CALL nDTI0N(«l,O,-S0>H FOR T-l TO 

43 :: CALL CO INC ( ALL. CARI i 1 IF CAR--I TH 

i ii (BOO 

1790 NFXT T :: CALL M()TI1)N(*1, 0,0)11 CAL 

L 10CATEI*!. 100.P) :i GOTO 1700 

III"" CAl I DFI.SI'RI rE(4l ) :; CALL MOT KIN (4M 

,0,0)11 CALL COLOft(*W, 1 I I ii CALL PATTERN 

tfH,124)n DIP r«200 H) no STEP -2 

IRIO CALL B0UNB(-600,T,llM NEXT T 1 1 CA 

IL DELSPRITE <*W! 

1820 IP W-4 THEN 1840 

iNjiuxm : : r.iiiii I6M 

1840 DisriAv at in,n)r.i7r it7) i "ROnus 1000 

POINTS" : ; '■'.■ '■'"■ I""" 
1(150 FOT, T-7o TO i STFP I !! CALL SOUND 
(100, 700.T.7OI.T. 702, Till NEXT T ii LE-L 
K.i ii limn (20 

IflftO CAl I HI HA) I l').H, ■;•>• - FALL SPRITE)* 

1.64,0.135,60.-6.0)11 CALL MOT ION (4W, ■•(,. 

0) 

1070 FOR T-I TO 1000 ii Dili 7 ii CALL M 

OTION(«l,0,0,tM,0,0><i DISPI nv at in, mis 

! IEI 12) : "PA!-, DC &ONUS" 

1000 FOR T-l TO 1000 II HI" ' I : I F-l T • 

1 ; i BOSUI 1030 I i Gdli' 

lHVi. DISPLAY AT<3,23lSI/.F.(ftliSC I) IF OC 

;'M.-,n Mill N CM . ' i ■ i MM IVJn 
1400 Dl'. MAY AT (1 . l4IM7C(41iRPT4Cg-)l 
(910 l( TIH.N 

l«0 i ai i Bl "I " 181 ". 123,8,30,30) 

19 10 CAl i 81 r. I rE (412, 1 23.8,80, 1001 

1940 CALL SPRITE (•11,123.1,110,190) 

I'M i ..i i -.ill ii (810, t ! '.". 140,2001 i i RE 

T URN 

I960 DATA ■ '". i"". ■''.■. '0, ■■' . '"■ .'■■'. 

■y/, (00, "' ■ ■". ... 100. 

■ 'i ; ■>.-. '0, • ■.'.'■- J49. i"". I .!■■■■. 

i 

BfORl l»40 I I CM '-1 TO 16 it RE 

60 I'.'. I I CAl I Mll'-IIMO- .'.I', 1 .1" i . i .ii-. 1 . i 



48 



SUPER ETENDARD 
ET EXOCET 



Sutte <fe iti page 43 



is*. 2, 



1730 CALI ■ ! tTt(»3,d>,3. 136. 23< 
1740 CALI P08IT10Ntl3.YB,KBlM 

THEN 1830 II B4 IF 1-rt T. I 

n n-T-«-TOTN-nior5PR]iiri»3. i 
136.233,0.-13)11 goto iero 
: "6*> [i- CM * HKN |?0O 

•.•■> !( It 7 TICN CD- I 04 ii GOTO IB10 EL 
RE cpt-li t . i 
1780 IF CRT '3 T»* N 

HI 3 1MEN CD- 108 II GOTO IHIO : 

| 7.CIT.I 

PT>3 AND CFTsO THEN CO- I 36 BLSf 
7030 
1810 CALL SF-RITEIB3.CD.2. 136.236,0,-121 

iaro c«l positioni«3.y3.x:i:i hall spri 
•i ■• '. nS.IS.lNTI iSO*RNDi *l,X3)ti call 6 
OUNDI-100, . 

IB30 CAI l CDINC<6S,«7.IO,Clil IF C«0 THE 
N 1*30 !! CALL FATIERN03. ll?)>! LALI f.O 

■ ■ ■■ . ■■ 

■3, II':: CALL 80UNDI2SO, 

IL8PR1TI (l3,iS,«7)i: 

: . . ■ . 

■ ' ■ . ■ . ...''■.,..' 

■-:,-.■-■.,... ;■■! ■ 

■ ; 

[T10N ■■■. ■ . " : : If v 1*0 OF 

■■.■.•..'■.:■■ 
■ CI THEN 1740 

1880 TAIL Pa5ilT10NI«3.Y3,X3) Jl IF Y3 132 
THEN 17*0 PRITE 1*6,1 

I : rti»?> 
•■;:■. ■.-. ■ . •!.< : : IF' Y6 lc-.i 

l)*N CALL NOHONHi...., I "i 



i io cali coiiett*,H,e,c>ti if c--i the 

I IP CPT<>4 THEN 1900 ELSE CALL POSH 
I0N(»6, Y6.X6I 
1930 IT Vft >|60 THEN 1910 ELSE CALL DISIA 

I I «3 , *6, D I SI 
IMO IF r.OPiDisi 100 THEN 1900 ELBE call 

PATIERN(«6, I 121 ;i CALL CDLQR (•*. 71 i i CA 
LL SOUNOl tOO, I I ■■.". 6,0)11 CALL DEL5FRIT 
t (f6l t ■ EIO-EXO-1 

1930 DISPLAY ATir4.37t lEXO II GOTO 1740 
I960 CALL FAllEPNr»7. 11T> i t CALI. SOUND ( 3 
DO, 110,0, -6. 0)11 CALL DELSPRtTt(«3.861 
19'u IT CRT 4 OR CPT>3 THEN BS-2300 ELSE 

!'■ ". ■ l< 

1980 IF CRT-4 rMEN H-3 
19-70 IF CPT-3 THEN Hl"3 

2< DISPLAY ATia,B)BEEF!"&OMJSi"tPS 

2O10 E<O-E<0-| ii OISPLAV ATI24.271 lEXO 

3030 PT-PT.BS II DISPLAY AT<23.22)iPT 

2030 DISPLAY AT(B,B)i" " 

204O FOR I-l TO IO0 II NEXT 1 ti CPT-CPT 

•1 II CPT1-CPT1-1 |l GOTO 1730 

3030 SIJBEND 

3060 REM SEA HARRIER 

3O70 SUB TABLEAU2IFUEL,PT,NI 

2080 MAG- 12 

2090 SF- | 

3100 CALL L0CAT£(«3,9O,74> 

3110 CALL SPRITE<«3, 116, 16,35.340.5.-23) 

3130 CALL SPRITE(»4, 1 16. 16. 160,340.-6,-2 

3) 

3130 CALL J0YST(2,»,YI : : CALL KEY (2, T, 3) 

:: CALL BQUNOI-IOOO. 120, 4,320.3, 193,2,-7 

.31;: C ALL HOT ION 1*3. 0. 01 

2140 CALL F0SITI0NI»3.Y3,X3) n IF Y3<12 

OR n 150 THEN CALL HOT I0N(»3. 0. 01 

2130 FUEL-FUEL-1 ti DISPLAY AT (33, 10) SI I 

EI3):FUEL :i IF FUEL-0 THEN 2300 

2160 IF V -O OR 500 THEN 21B0 



DISPLAY AT <7*. l7>S!t 



CALL SFRI 



O ELSE MAG-MAfi-l 
E 1 2 1 I HAG 

220O CALL KOT ION (•3.0,0) 
2210 CALL POSITI0NI15, Yl . 
TE(«6, 1 20. 7, VI. < 1.0.43' 

2220 CALL C0INC(»SP.»6.b.C)ii IF C-0 THE 
N 2330 ELSE CALL PATTERNUSP, I 1 3) 1 I CALL 
C0L0R(»SP,7) ie CALL SOUND < I 50. 16D, 4, -6, 

2230 CALL DEL5PRITE<«6."SPli i SE-SPM II 
l-l-l it PT»PT*2SO ii DISPLAY RTI33.331 
BIZElSliPI 
22*0 on i goto 2130,2320 

2230 CALL F0SITIONI»6.YN, IH> I i IF m |S>'i 
THEN CALL DELSPRITE(»6) : j GOTO 2l30 ELS 
E 2220 

2360 CALL HOTIONH3. Y»l-3),0) 
2270 CALL POSITION(»SP, Y3.X2).-: CALL SPR 
ITE<»7,I28,2.V2.X2.0,-43) 

22B0 CALL POSI T ION 1)7, YM, XMI i : IF in 16 
OR IH r^.> THEN CALL DELSPRITE(»7>; i ROTO 

2290 CALL C0INC(»7.»S.B.C)i I IF C-O THEN 
23BO ELSE CALL PAT TERN ( •S, I 1 31 i : CALL S 
0UND(20O. TOO. 0,-6, 0)1 ( CALL DELSFRI TE («5 



ia t> call nana ■ 

'C.«7ft. i, ■ 

244T- CAtL J0YSTf3..E.«F- !! CALL 90UMDt-i 

OOO. 13. -.«) 

2«30 CALL POSIT10M<«S,Y3,»1:i 

OR Y5 ISO TME"» CALL ntrTION • 

2*40 FUEL'FLCL-t :: IP FUCL<0 THEN MOO 

II DISPLAY ATI33. 10)St;E!3nrijf l 

3470 CALL FOSIT10Nir5.ir. \ 

C!»36. IC*10,JC*1*,3, : THEN 3 

2*90 CALL riOT10N(#i.O,XClfl CALL positio 

N(»36. Vt. (It, i CALL LOCATF t«5, • : 

lit GOTO 3310 

3*90 IF YE-O THEN 2*40 

25O0 CALL nOT10N(«5. (YE /-*••?.. ■< , , GOTO 

2440 

3310 CALL NOTION < 13. 0,0>* 34, -. *3.0.0> 

:^,:-> PS-FUEL M FUEL -2000 II OISFlAy Ai i 

73, lOrsiZEOriPUEL 

3330 FOR l-BS TO S1EF -| .. Disf : AY AI 
" -PONUSI K-OX-iI : , CALL SOfHT 



1,0X1 

7340 f 



T • ( PS • : 



D1SPLA 



130 ELSE 3090 

2330 FOR 1^25 TO O STEP -I 

1 B. O IPEEPi "BONUS: -i FUEL -161 



3350 DISPLAY AT<8.8>:" " 

2340 CALL DELSFRITE<"3.«4> 

2370 5'JBtTND 

33B0 REM RAVITAILLEMENT 

3390 SUB TABLEAUHFUEL.Pr. N, 

34O0 RAND0MI2E 

2410 FUEL«100 

2420 Ti-34 :: CALL MOTIONll 



CPT-:. THEN 3 



3330 DISPLAY AT(8.8>:" 
7360 FOR DEL -I TO 5O0 1 
2370 CALL nOT!DN(*3.3.< 
1.0, -. 



CALL. 



: CAL 



2390 FOR PEL-1 TO 17^ i, NE>T PEL : 
L DELSPRITEIB") 1; FOR DEL-I TO 1 7T. : 
XT DEL :! CALL DELSFRI TE (•*. »36 ' 

2390 call HDTI0Nl»3.0,0l:i tail noriONii 

I .".-IS, •3.1'. -IB' 1: «1T0 7A70 

: nOTIONf»5.fc.6) 
2610 TALL SOUNPll ■■ . : . 

. ^OSITlDNtM.J. II : : !• 

en 2*10 else cali PATTERn<*3.U?>i: call 

C0l0RI«3.9»:: CALL COLOR(»S. 3' : : CALL M 
DT!CN(«3.0,0) 

2630 CALL SOUNDIT-Xto. 1 1". 3. -6. 3 1 
3640 FDR DEL-1 TO 30O s! NEYT DEL 
7*30 CALL DEL9PRITE<«S>3I N«I 
2660 SU6EXIT 
7670 SUPEND ■ 



ROAD RACE 



Vous voici & bord de votre voiture. Vous vous prome- 
nez dans un paysage en trois dimensions. Votre but? 
Parcourir la plus grande distance possible en evitant 
les chauffards qui arrivent en face de vous. 
Le mode d'emploi est dans le programme. 



TI-99 4/A BASIC ETENDU 



Serge DARDANT 




1731 



'00 C-13 

10 CALL HCHAR<R.C. 144) 

'20 CALL HCHARIR.C*1. 1431 

30 CALL HCHAfitRM.C. 146) 

40 CALL HCHAR(R*I.C-1. 1*7) 
-IS 



> CALL HCHARIR.C. 132) 
1770 CALL HCHAR<R.C*1. 1S3) 
1780 CALL HCHARtR-l.C, 1341 
1790 CALL HCMAR(R»1.C*1. 153) 
1800 REM CIEL 



191'' 



SEM 



) CALL CLEAR 

> CALL SCREEN (B) 
■ FOR E-33 TO 64 

> READ A» 

> CALL CMAP'E. Ati 



) RE" 

1 REM 
) REM 

> PRINT 



270 PRINT 



PESENTA 



: -VOULE7 VOUS LES INSTRUCTION 



tao 

*K 

soo 

S10 

320 
530 
3*0 
390 
3*0 
370 
■ M 
390 



630 
640 
630 



> GOSUB 3320 

) CALL KEY<3,K,S1 
) IF S-0 THEN r90 
' IP ► -7B THEN BOO 

-^ THEN 290 
:> CALL CLEAR 
) CALL CHAR163. "■■>O'.f0E7. 

> CALL COL0RI4.5. l> 
) R-1 

> H«--ROAD RACE" 
) GOSUB 73" 

) R-2 



lOOt' CALL CHAR<12S."FFFFFFFFFFFFFFFF" 
1010 REM 1ERE VOITURE 

IO20 REM .*■■..••.„.. 

1030 REM 

1040 CALL CHARI136, -003C J 427E l 5AFFfeDBj " ) 

1030 RE" 2NDE VOITURE 

1060 REM ••■•>••••••> 

1070 REM 

1090 RESTORE 3470 

1O90 FOR C-144 TO 147 

11 OO READ A* 

1110 CALL CHARIC,A») 



1 CALL CHAR(C.A») 

> NEXT C 

1 REM 3EME VOITURE 



I BOLIDE ET- 



GOSUB 7 20 



H»--vOUS CONDUI! 
B03LB T2W 

n»--0EVE2 EVITER LES VOITURES" 

BOSta '2" 
R-6 

M»--VENANT EN FACE DE VOUS- 

aosue '." 

R-B 

M»-"VOTRE POSITION EST INDIOUEE" 

GfJGUB 720 

R-9 

M«""PAR LE PARE CHOCS" 

■ 
R-II 

n ■ mller a gaughe- 

GOSUB 720 

R-1 2 

n»-"El D POUR ALLER A DROITE" 

GQSr.iE- 730 

R-17 

■ ER SUR LINE TC4JCME" 
GOSUB 720 
R-1 9 

M*-"POUR COMMENCER LA COURSE- 
CALL I EY'T.L . I I 
IF 1-0 THEN 690 
GOTO BIO 
C-16-I.EN'N» 1 . 
FOR l-l TO LEN<n«> 
CALL HCHMtlR.C*I.63> 

HCMAf. R, • I fif n». I. 1 



1210 
1220 
1330 
1740 
1330 



1290 
1300 
1310 

1 J20 



FOR C-63 TO 70 

READ A« 

CALL CHAR(C.At) 

NEXT C 

RESTORE 34BO 

FOR C-97 TO 102 

READ A* 

CALL CHAR(C.At) 

NEXT C 

REM 4EME VOITURE 

REM •• • 

REM 

FOR C-80 TO 97 

READ A* 

CALL CHARIC.A*) 

NEXT C 

RESTORE 3490 

FOR C-l 12 TO 119 

READ Aft 

CALL CHARIC.A*) 



' NEXT I 
■ CM 1 KXMDI ! ■ 
• CALL SOUND 1 1 Of 
t RETURN 

■ 
. RANDOM I 7E 



■ ■ . 



at.'-- 1 

060 ( 
B70 ( 



X-6 
■ CALI 



BCftECNI 13. 
1=2 TO 16 
GOLORU. 15. 15) 
I 
CRRACTEBJ ^ L'E 1 A ROUTI 



B90 REM 

900 RE* 

910 CALL CH..f .(*:. "f FFErt T I 

920 CALL CW*»l45,*PI I 7P3FIP0PO7O30?"l 

930 CALL ■ 49, ■ ■ 1 

940 CALL 1 MM 'PSP'lPOPO '■ ISO I 1 ■ 

"5" fcm CARACTEREfl DC I HI IBI 



970 Per 

I . 

990 CALL CM IB, 1 I ' I ■ 



1460 I 
1*90 ( 

1500 . 
1310 ) 
1320 f 
1330 t 

I-.*' 1 V 

1330 1 



15-)" I 
1600 I 
1410 ' 
; ■ ■ 
U '" 
16*0 

1630 



NT 



,;..,.-, r.,.-..V,< 1.-, I 

■■■■■■'■■I 



zooooooc 

200000000 



BTTB 

UVVM 



pqqi 2000 1 

•tt« 2000 
UWM 2O0 



' MSB" 



1920 REM 

1930 call coLOR(i:.a.r> 

IB40 REM COULEURS 
IBSO REM ........ 

I960 REM 

IB70 CALL C0LOR(14,B,9> 

1B90 CALL C0L0R12.3, 131 

1B90 CALL C0LORI3.4, 13) 

1900 CALL COLOR! IO. 16. 16) 

1910 CALL CDL0RI12. 13. 15) 

1920 CALL C0LORC8.2.2) 

1930 CALL COL0RI6.2.2) 

1940 GOSUB S320 

1930 CALL KEY(O.I.S) 

1960 IF S-0 THEN 1950 

1970 CALL SOUND1130.-7.0) 

19B0 SC-9 

1990 ):ms-o 

20OO K-20 

2010 GOTO 2070 

2030 IF KMS-200 THEN 3130 

3030 IF KMS-K THEN 2040 ELSE 2070 

2040 IF 8K<2 THEN 2070 

2030 SK-SK-t 

3060 K-K*20 

3070 C-INTU3*RND)*2 

3090 RAN-INT(SV>RND>*1 

3090 ON RAN GOSUB 21 20, 2330. 2340, 2640. ; 

20. 2920. 2920, 2920. 2920 

2100 KMS-KMS'l 

21 10 GOTO 2020 

2120 REM REPLACEMENT DE LA VOITURE 1 

2130 REM ■••■••••••••.•••••......... 

2140 REM 

2130 IF I MS' 330 THEN 2170 

2160 X-l 

2170 R-INT(X»RND) »1 

2100 IF R>! THEN 22O0 

2190 CALL S0UND(-3.20O.O) 

2200 CALL C0L0R(14.C,ai 

3210 IF R-1 THEN 2770 

7720 GOSUB 2920 

2230 CALL C0L0R(l4.a,S) 

2240 CALL COLOR 1 13. C. 1 3) 

2230 IF R-1 THEN 2270 

3260 GOSUB 2920 

2270 CALL COLOR ( 13, 15. 13) 

2280 CAI L C0L0R(3,C, 131 

2290 IF R- 3 'HEN 2330 

230O GOSUB 2920 

2310 GOTO 2430 

3330 CALL fEY(3.l ,9) 

II i -83 THEN 2400 
2340 IF K"68 THEN 23*0 
7T.30 GOTO 2430 
7360 CALL COLOR 16, 13, 13) 
2370 CALL COLOR (4. 2, 2) 
2390 DIR-1 
7390 GOTO 2430 
2400 I ." L COL0RI4.13.I3I 
, 24 IO CALL C0L0RI6.7.7I 

nvju um*o 

2430 CALL COLOR (5. 1 T., 1 5' 
2440 CALL COLORI7.C.131 
7450 IF R-1 THEN 3470 

.hi 2920 
2470 call c0l0ri7. 13. 1 31 

Z4BO ' '■■■! 1 90UN04 -3,660.0) 

3490 If IDIR-O'- IRAN-ll IMrn 1 ■ 

3300 IF lOIR-'t)« IRAN-ll THEN [170 

2310 RE njBN 

2330 ''L"M trn niTMN! |.i. in V01TUM I 

733" REM 



2700 


SOSUB "920 


2710 


BOTO 2830 


2720 




2730 


IF 1 =sr. TH H 


27*0 


IF 1-69 Tm.Tj . <4 • 


.•-.-..-. 


BOTO "3830 


2760 


CALL COlOR<6. 1-.. 131 


•770 


CALL C0L0Rl*.r.3) 


■ •:;■ 


DIR-I 




■ 


■. 


TAIL COLORI*. IT., 151 




CM I 1 OLOf 


797" 


DIR-0 


28 SO 


CAl.1. COLDRf. IT.. 131 


7B4" 


CM ' 111 ii'- ■ 11 .c. ir.i 


B ■ 


IF R-1 THEN 38 ■■■ 


796-> 


80 US 2930 


.!' '■■ 


call COLOR (1 1 . 13, |3> 


2B80 


CM 1 SOUND! ■■. 770,01 




IF (DIR-1) • [RAN-7ITHFN --1 '-' 


.=.'.»■ 


IF (DIR-D-IRAN-41 Hi! n JI70 



' CIEI 



128,27) 

IF ' ! 'AH IIJl.l 



DESSIN DE LA I 

Ren •• •■•••. 

REM 

CALL HCHMI6. 17, J ■&' 

PFM DFSSIN DE LA 2NDE VOITURE 



234 O 


REM 




IP KM 


. 1 ■ 


X-l 


.-.-" 


R-INT(X«RNDl *1 




CALL C0L(]R(14.C.ai 


2390 


If" 1- | ihf Ii 3610 




1 ALI BOUNOI .1000, ■ 


'■! ■ 


IF P-l Tl'l II 16 


■ 


B03UB . ''. 




1 M 1 C0L0RI14, . 


MO 


CALI mi Of 116,1 . 131 


630 


H 1-.-1 mi n 16 


2660 


,. ■ ■ . .. 


,, .-: . 


CALI COtORt 16. 13, 19) 


.'-.!)" 


1 N 1 1 01 OH '«,r, i-,i 



2910 RETURN 
2930 CM 1 COLOR (2. . IS) 
2930 CALI COLOftl3,4, 131 
3940 CALL COLORI 10. 16, 161 
2930 CALL COLOR! 12. 13. 131 

960 1 ."ii 1 1 BVtS.I ,8) 
2970 tl I -bB THEN 3040 
29B0 ir ..97. then 3000 
799.-, call C0L0RI7.4.15) 
JO " CM L COLOHI3.7.. 151 
SOlO LALI. COLORIIO. 13. 13> 
IO30 CALL COL.ORI 13. 16. 16) 
3030 RETLKRN 

704O CALL CDLOR16. 13. 131 
3030 CALL COLOR(4.7,7l 
3060 DIR-I 
S070 GOTO 2990 

'■' -.1 1 1 COLOR!*, 13. 13) 

3090 CALL COLOR (6,2, 21 
3100 DIR-O 
3110 GOTO 79VO 
3120 CM L CLEAR 
1130 BOSUB J 130 

-14" PRINT "BRAUO'COURSI BANS ACCIDENT 9 
3i3o print -vous avt:; pait'ikhbi-kns* 
3160 I nd 

7.1 '<■< tor 1 1 to 30 I.1FI 7 
3190 CALL SCREEN!?) 
1190 i 01 1 BOUND) [1 ■"■.-7, |i 
3300 CALL SCREENI16) 
3210 NEXT 1 

•■ : ..: 1 ill AR 
■ CM 1 SCREEN 1 13) 
-■■■-I.MS/* 
1 ■ INT "VOUfl AVI ! REUSS1 A ' AIRI ■ 
1260 ' Mni 

■■■ 1 i- INT > "'■: "I II ''.'I UiES- 

(280 1 ciNi 

IJ90 l RINT "AVAN1 VOTM " 

■ SOO I '■ I'll ■ '. t 1 . 1 tDI RCCIDENi" 
3310 END 

' 120 REM 

• [30 Rl m 

- [40 REM 

■ - ,■ ttl BTO 1 1310 

* ■/.-■ M RD NOT! ,DUM I 

1370 11 INOTI ■"' • IOU ! 1 01 '■■: rj 100 
S380 1 'ii i BOUND l OUR! 1 .NOTI .01 

■ "" 

MOO RI TURN 
*i" DAI '■'" ■'"''. ."".(i El ' 

: I : . ■'-.': ■ I ■■: "i '.■' '" '..■•..', 1 

: , . ...!.,'. .'-.. 1070 ■"'' 

'■I. DATA IP0P\i7O38S8O8Oa!l 1 iitt ■■. 

.'■■'•■ ■■ '71 "''II .■! *. Ff-'l !■ -fl« 

■ ..,\ , -,l , ,,.',.,■....,-..-...,.-,..'..- 

; ftTA '" ■■' '" "I "I (K ■ I "t . (i'i4...-.l| 001 ''"■ 

'"l 1 , ( I '1 I I 1', H -'■''.■■ ■ ■■■ ■ 

1 1 f 1 f l\ laOCdl ."''1 01 ■ 

I FFFFF'.n ■ ■ ■ ■ 

■ ■ .■■■'- boa 

■..■ .■ 

■ ■ ■' ■''' ■ 1 .- '"■ ■■' ■" ■■•■■■ 

1 

* ■.. DATA ■ 

... ,■ ■. 

1 1 ■ .' 

1490 DATA ■ 






DAT* 



III 1 , *FM '. F F I I F I l-.'pl't "I "I .1 I I 

. I , . F I t ; I : , ( L .'.', I I ..I ■ , .-I 

i! : 1.1 '4, c ■.■■■'. ■■ 

0(494, •"". . ''4. ISO. ■'.'■■- 

■■■ ■ I. 

[3: " DATA ■■,!■■■'. 1 , ! ■ '. ■.'■. 



TI-99 4/A BASIC SIMPLE 



LA LICORNE ROUGE 



C= SAVE CS1: stocke sur K7 la position actuelle el le nombre tie 
coups. Le programme de SAVE CSt est un peu long a taper man i 

est 5 fois plus rapide a utiliser qu'un autre, ecrit avec une simple 
boucle.- For.. .next (0 a 9)- . Un programme afnsi stocke est 
compatible avec I'iniliaiisation d'une partie future (si le temps marv 



Le casse-tete connu aussi sous le nom de 1'ane rouge 
ou probleme du charpentier, est compose de pieces 
rectangulaires ou carrees de differentes surfaces. 
Le but du jeu est d'amener, en un minimum de coups 
la plus grande piece du haut du boftier (position ini- 
tiate) en bas de celui-ci (pres de la porte symbolique). 

Christiane PRUVOST 

Regies du jeu: 

L'ordmateur vous empeche de sortir les pieces du cadre ou de trt- 
cher (vous pouvez essayer). Chaque piece porte un chiffre de a 
9. Pour deplacer une piece, M suflit de presser la touche portanl le 
meme numero. 



Si vous demandez a une piece bloquee de bouger. rien ne se 
passe. 

Si un replacement est possible, le Tl le trouve lout seul. Paffiche et 
incremente le compteur de coups. 

Si vous regreltez un coup, vous pouvez I'annuler en pressant sur la 
barre d'espace. 

Si une piece a deplacer a 2 possibilites de chemin (c'est rare et 
c'est le maxi). el que le Tl ne cboisit pas votre chemin, i! taut pres- 
ser la barre d'espacement et retaper le chiHre de la piece.la piece 
revient alors sur ses pas et prend le bon chemin. 
A= ENTR MEM:permet d'enregistrer la position actuelle des pieces 
et le nombre de coups dans la RAM du Tl. 

B= SORT MEM:remplace la position actuelle des pieces par la der- 
niere position enregistree (avec le nombre de coups correspon- 
dants}.A et B. bien utilisees permettent de trouver !a meiiieure 
combinaison. 



que pour linir). 

D= Fin de partie (FIN 

Une piece se deptace 

nale. 



PART):abandon effacement ecran. END. 
dun carre a chaque tois et jamais en drago- 



140 CALL SOUNDt423O,440.O> 

150 REM 1N1T 

160 riEM-1 1 

1 /<< DIM C14.4, 16) 

18'"' DEF DL<W>-2*f2+INT(M/?>~S8M<M>) 

190 DEF DH(W)=2-f2-SGNUNTlW/5> I) 

200 CALL C0L0R(9.2. 161 

210 CALL C0L0R(lO,2,l6> 

220 CfiLL C0L0R(11.2. 16) 

230 CALL C0L0Rd2,9, 16) 

240 CALL CLEAR 

230 DATA FFaOBOBO8O8OBOBO.FF0O8E9I919191 

BE . F F8Cie286B2B2B2S7 . FF80B6B9B 1 B284BF . FFB 

OSFB 18681 8936, FFB0B2B68A929F82 

260 DATA FF80aF888E81B986,FFB0a6B8BE8989 

B6.FFBOBFai82848a04.PF8OBE918E9l918E.FFB 

0868939878186, FF01O1O10101O1OI 

27o data BoeoBOBoaoaoeoso.oioioioioioioi 

01 ,B080BOBOBOBOBOFF,01010101010101FF,FF, 

OOOOOOOOOOOOO'JFF 

280 DATA OOlO0BOCO7070F0F,0O001010F03OF0 

F0.07.FOFOFOF8F8F8, 102. 1 16, 1 1?.. 1 17, 102,1 

16,1IB,119,11B,119, 113. 117 

290 DATA 102.114,114,116.113.115,113,117 

,102,114, 114, i 16. 113, 120, 122, 119, 1 IB. 121 

. 127.. 1 19. 113, 1 15. 1 13, 117 

30O FOR 1=102 TO 123 

310 READ CA« 

320 CALL CHARd.CA*) 

330 IF I -111 THEN 370 

340 M- 1-102 

7.50 HIW)=CH(W) 

360 L(W)=DL(W) 

370 NEXT I 

380 FOR r-1 TO 2 

390 FOR J=! TO 2 

400 FOR IJ=1 TO (I-J-4) 

410 READ CA 

>.J»2, IJ)=CA 



590 FOR 1=0 TO 3 STEP- 5 

6O0 INPUT ttl:YC(0*Il ,XC(0*I),YC(1*I>,XC( 

1*1) .YC(2*I) ,XC(2d) ,YC(3*I) . XC(3*I1.YC( 

4«-I),XC(4--I>.N 

610 NEXT I 

620 CLOSE »1 

630 CALL CLEAR 

640 GOTO 710 

650 DATA 10.22. 10,20, lO. 26. 14,20. 14,26, 1 

6.22. 16.24, IB. 20, 19,26, 14.22 

660 FOR l«=0 TO 9 

670 READ Y.X 

6B0 YC(t)=Y 

690 XCd )=X 

700 NEXT I 

710 REM MISE EN FAGE 

720 COLL C0L0FU2.3.Z1 

7T.O PRINT TAB(6)i"LA LICORNE ROUGE-;:::: 

::"A<;ENTR MEM" :: "SELECT MEM' 1 ': : "CgSAVE C5 

I".T"D5F1N PART-::::" COUP"::: 

740 GOSUB 1770 

750 FOR [-0 TO 1 

760 CALL HCHAR(9»I"1 1, 19,42, 10) 

770 CALL VCHARIIO, 19+I»9.42, 10) 

780 NEXT I 

790 CALL HCHAR(20.22,95,4) 

BOO FOR W=0 TD 9 

BIO EOSUB 1930 

B20 NEXT W 

B30 REM DEBUT DU JEU 

940 FUR TE^l TO 450 

930 CALL KEY(0,K.ET) 

B60 IF FT-0 THEN 910 

870 CALL S0UNDII40, 1400, 3) 

B80 IF (K<59)»(K>47)THEN 980 

B90 IF (K<69>»(K>64)THE» 1440 

9O0 IF (K-321-D THEN 1510 



i HEX" 



TE 



) NEX' 
) NEX" 



IJ 



430 NEXT I 

460 REM CHOIX INIT 

470 PRINT "LA LICORNE ROUEE 

480 PRINT TAB(6) :"1/PARTIE EN COURS": 
AB(6);"2/N0UVELLE PARTIE":::: :i: : 
490 PRINT " TAPEZ 1 01 



:.ET) 



iTHEN 



,10 Et. 



320 CALL CLEAR 

330 IF K-30 THEN 630 

5-1" PRINT '■* INSERT YOUR CAS5ETTE CS1 

THEN PRESS ENTER": 

550 CALL SOUND (MO, 1400,3) 

360 CALL K£Y(3,K,ET> 

570 IP (£T )*<)>] 3) THEN 5B0 ELSE 360 

5B0 OPEN #1: "CS1". INTERNAL, INPUT .FIXED 



920 CALL S0UND(2OO, 311,0) 

930 CALL S0UND(2OO,311,OI 

940 CALL S0UND(20O.233,Cr) 

950 CALL SOUND (230,349,0) 

960 CALL SOUND (400, 311,0) 

970 EOTO 840 

9B0 REM DEPLAC 

990 W=K~4B 

1000 VA=0 

1010 FOR V-O TO 4 STEP 4 

1020 VA-VAH 

1030 FOR F=0 TO (L!W)-2)STEP 2 

1040 CALL BCHAR!YCIW)-l*SENIV)»d+Htk)) , 

XC(W)*F,G) 

1030 IF tG<>32)*< tW-MEM>»<VA=IN> MHEN II 

20 

1060 NEXT F 

1070 GDSUB 1260 

1080 EOSUB 1320 

1090 YC(W)=YC(W)-2*V 

1 100 GOSUB I9S0 

! 110 GOTO B30 

1 120 VA-VA+I 



I 1 3'!' 


FOR F-O TO (H(W)-2>STEF 2 


1 140 


CALL GCHAR!YC!W)*F, XC IW) - 1 *5GN (0) 


l*L(W> ).G) 


I 150 


IF (6<>32)* ( !VA=IN)-(MEM=W) ) IHEN 


1 160 


NEXT F 


1170 


GOSUB 1260 


11 BO 


GOSUB 1320 


1190 


XC(W)"XC(W)-2*V 


1200 


GOSUB 1950 


1210 


GOTO BSO 


1220 


NEXT V 


1230 


IF IN-3 THEN B30 


1240 


1N-3 


1230 


GOTO 10O0 




FOR F=0 TO (L(Wl-l) 


1270 


CALL VCHAR (YCIW) , XC (W) *F. 32. H (M) 1 


1280 




1290 


D-l 


1300 


MI=VA 


1310 


RETURN 


1320 


N-N-M 


1330 


IN-VA+2-V 


1340 


GOSUB 1770 


1330 


MEM=W 


1360 


MY=YC(U) 


1370 


MX=XC(W! 


1380 


IF H THEN 1430 


1390 


CALL SOUND 14O0, 1047.3,523.3) 


1400 


CALL S0UND(I50,784.3,392.3) 


1410 


CALL SOUND! 150,880. 3,440,3) 


1420 


CALL S0UNDdSO,7B4,3.392,3) 


1430 


RETURN 


1440 


ON (K-64)G0T0 1430, 1600. 1820. 2200 


1450 


FOR I-O TO 9 


1460 


pxn>-xccu 


1470 


PY(I)=YC(I) 


1480 


NEXT I 


1490 


NM-N 


1500 


GOTO 840 


1310 


W-MEfl 


1320 


GOSUB 1260 


1330 


XC(W)-MX 


1340 


VC(W)-MY 


1330 


IN=MI 




GOSUB 1950 


1570 


0=0 


13B0 


N=N-1 


1S90 


GOTO 1740 


1600 


FOR 1=0 TO 9 


1610 


IF (PXCI) )-(PY(I) )THEN 1620 ELSE 


1620 


NEXT I 


1670 


FOR 1=0 TO 9 




XCdl'PXII) 


1630 


YCd)-PY(I) 




NEXT I 


1670 




1680 


FOR I- 10 TO 19 


1690 


CALL HCHARd. 20, 32,0) 


1700 


NEXT I 




730 NEXT U 

:>40 CALL HCHAF '21 . 1" 

75ii GOSUR 1770 

760 OOTO B40 

/70 N»=STR»(NI 

790 FOR 1-1 TO LENIN 

790 CALL HCHARI2I.IU 



.ASOSE& 



,VC!I*1>,XC 



8(X- NEXT 1 

91 O RETURN 

920 CALL CLEAR 

B3U CALL COL0R<2,2,4) 

B40 FRINI "• INSERT A NFM CASSETTE 

THEN PRESS ENTER-! 
B5H CALL SOUNDd 
860 CALL I EYir.,) 
970 IF (EI) XI "131THEN 1880 ELSE I860 
SBO UFEN »1 : "CS1", INTERNAL, OUTPUT, FIXED 



890 FOR 1-0 TO 5 STEP 1 

900 PRINT ill YC (0+1 

1*1) ,YC(I«2>.XC(1*: 

I.4).XC(1*4),N 

910 NEXT 1 

920 CLOSE «1 

930 CALL CLEAR 

940 GOTO 710 

950 FOR 1-0 TO (L (* 

960 FOR J=l TD HtH) 

970 CALL HCHAR(J»YC(I 

L(W>. J*]*H(M))) 

980 NEXT J 

990 NEXT I 
200O CALL HCHARIYCO 
2010 IF (YC(0)-161 •' 
202O RETURN 
2030 CALL VCHARll. 1,3 
2040 FDR I "22 TO 23 
203O CALL VCHAR 11, I .:•■(■ . IS) 
2060 CALL VCHAR (20. 1,36,3) 
2070 NEXT I 

2080 CALL VCHARd.2fc.36. 168 
2090 CALL SOUND (600, 262,0) 
21O0 CALL SOUND (300 ,294.01 
21 lO CALL SQUN0(300,311,0> 
2120 CALL BO0ND(A00,294,O) 
2130 CALL 50UNDd30.262,O) 
2140 CALL BOUNDdSO, 242,0! 
2150 CALL CLEAR 
2160 PRINT TAB(I2)l"8RAVO-ii 
) ! "SUPERCE": ::::::: Ifil'd 1 >: ' 



i,S19) 



21B0 CALL ) EVIO.K 

2190 IF ET-0 THEN 

2200 CALL CLEAR 

2210 END 



CERBERE 



La haute autorite vous charge de liberer les malheu- 
reux terriens que les ignobles alfaloques sont en train 
de pervertir a leurs superstitions attardees. Les ren- 
seignements complementaires sont dans ie pro- 
gramme. Bonne chancel. 

Laurent KESTELYN 



TI-99 4/A BASIC SIMPLE 




80 CALL CLEAR 



>I0 INPUT "VOTRt PRENDM - " 
120 CALL BCf££N(4) 

130 Mt-" VA MDURIR- 
140 CALL CLEAR 



190 GOTO 670 

200 PRINT TA6(4)1"RAPPDRT NO 30041984" 
21C PRINT -HAUTE AUTORITEiULtRA SECRET": 
1'COMMISSAIRE DES AFFAIRES TEF<RIENNES 

220 PRINT :P«S". NOUS VOUS CHARGEON9 D 

E L1BE RER LES TERRIENS DE LA SUPERSTIT1 

ON OU-DROANISENT LES" 

230 PRINT "ALFALOOUES.NOS ENNEMI9, "i "CON 

TRE CES ETRES ETRANGES ET ATTARDES. " : I "C 

ONNAISSANT VOTRE PENCHANT" 

240 PRINT "LUDIDUE.NOUS AVONS PRESENTE C 

ETTE MISSION CDMHE UN JEU..MORTEI " 

230 PRINT "N'ESPEREZ AUCUNE AIDE DE N 

OTRE PART, NOUS SOMMES OFF I -CIELLEMENT EN 

PAIX AVEC LES ALFALOQUES" 
260 PRINT "pi-MMi urn touch*" 
270 CALL CEY(0,H.Z) 
2S0 IF 2-0 THEN 270 
290 CALL SCREEN (2) 
300 BR-BOO 
310 B08UB J300 
320 CALL Cl EAR 

' SO M ', TORE 400 
340 FOR J-0 TO 12 

'-50 READ MON» 

360 CALL CHA*(J*33,H0N*1 

■■/'> NEXT J 

Ti', r,i<-440 

■'") OOBlfl (300 



400 DATA 034F3F3F7F7rFFFF,FBE0BO9BEOCOFB 

C8, FPFP7F7F3F3F4F03 

410 DATA 1F7F3F7FFFFBF0F8.3F7FFF7DFCF8FC 

F8, C0F2FCFCFEFEFFFF 

420 DATA FFFEECF0F0ECFEFF,FBFDFBFFFFFF7F 

F7 1 FFFFPEFEFCFCF2C,FFFFFFFFPFFFFFFF,CEEF 

FFFF7602 

430 DATA-041B71E3E7FF7F3E.OOBEDBFFFDFEFB 

30 



440 PREl*'"t)b*t>*b*t<*l-*b*t-»b*t 
430 PRE2»»"- I • ) ■ )')')')•)> I ' ) 
440 PRINT PREl*! : 
470 PRINT TAB(5) ; ■" -"iTABISl I 
7)1 ",-"! TAB (5) i "«S.":TAB(3I |"l 
** •!> »+" 

4B0 PRINT TAB(3)I"» t" '/.* ' 

•+"iTAB<3) !"»• ») % I" d * 

490 PRINT TAB(5M" ' 1 "lTAB(3) i 



>kl j i 



mjn 



'■i-**"lTA8(27)j".»" 
300 PRINT PRE2»1 ■••S»• , lTAB(27)l■■^t^'■ 
310 PRINT "!) >>>>>>> TAPER <<■:<<< 
320 PRINT -mh =-.«--»■-— --------- 

330 PRINT "!) )i POUR JEU v r 

340 PRINT "»t ^A POUR AIDE a 

330 PRINT "') >S POUR SORTIE t 

360 PRINT "M D PDUR DEMONSTRATION,- 

570 PRINT "■)"|TAB(27)I"' ) " I PRE 1 * 

380 BR-1 10 

590 008US '"" 

600 CALL COLOR! I, ALU 

610 CALL C0L0RT2.A1 , I I 

620 CALL COl IJR1U.A1 ,51 

6 ■', |I t ; III' N :. ■'■ 

MO FEM 

65'-) REM CARAC '-Ml '..TIT . 

■■■■ i ! BTORI 690 
680 ' Al i CMAF (91 . "lO! B348: i 1. 1010 IB" i 
690 CA1 l CHAA I l 16, " IC66 M IB7I IB H 14" 

■ ■I ' MIM- U/,, ■■ i|- I 



710 CALL CHAR(47. "3C66C381B1C3663C" 1 

720 DATA FFFFFFFFFFFFFFFF. 04000349031307 

27 . 4421 B070C0D4E2E 1 . 004O0008O002 1 OO 1 , 002 

4004 •' IF 1 1- SF7F . 2452FFFFFFFFFFFF 

730 DATA 41O42BC0F0F9FCFE,3I0209BOl lul4'i 

BO, 130721074B170F46.400331210D4B1103. 100 

221 09 1 52F 1 93F , 9 1 091 1 BBD6FFFDFF 

740 DATA 20O3CCECE777FFFF.01O4923OA3FEED 

FF.40O4O08A9BE2F4FB. 1 

750 DATA 5B7C7EDBFFFF55D5.2E7FFF7F7F7F67 

E7,O000FEFFAAAAAAAA,FE4A464242A242OF,203 

O2070252275FB.BE8E0612381OF0FB 

760 DATA OOOC1B1F1BOE090B,B7BFFFFFFFFFPF 

FF . , 1 B3C I B3C I 87E3CFF , 04081 008*409 1 008 

770 BAS-96 

780 HAUT-122 

790 GOSUB 1270 

80O K2-0 

1310 CALL C0L0R(9.A1,11) 

820 CALL COLOR (10, 11. 1) 

830 BR--5 

840 GDSUB 3500 

850 CA=BI 

B60 FO-1 

870 GOSUB 3950 

880 CALL COLOR (ll.Al.l) 

890 CALL COLOR (4, I 1, 1) 

900 IF CLE-1 THEN 1160 

910 FOR 1-1 TO 300 

920 CALL KEY(0,K1,S1> 

930 rF 51-0 THEN 970 

940 IF Kl-74 THEN 1160 

930 IF KI-68 THEN 990 

960 IF H-63 THEN 1030 ELSE 107O 

970 NEXT I 

9BO IF INT<RND»3)<1 THEN 32767 

990 Sl-0 

1000 JOU-0 

1010 MSD*-"(TI 99"&H» 

1020 GOTO I I BO 

1030 CALL HCHARd, 1,63.768) 

1 040 PR I NT i i ■ i I ) ■ t ■ 1 1 e 1 1 I ■ ■ I : 

1030 GOSUB 4070 
1060 GOTO 460 

1070 IF M-B3 THEN 1080 ELSE 920 
IOBO CALL HCHARd, 1.B3. 768) 
1090 PRINT I II it I in 

1I0O PRINT "LA PRUCIIAINE FOIS. TAPEZ DES 
L'ENTREEt ": i " •■VIJTM M.I NflM " : : "EX i " I '■ • 

TP»I!I!I 

tltO PRINT ".IE VOUS FERAIS GRACE DE LA 

PREBENTATIDN-I i 

i 120 ( nii 

1130 REM 

i mo rem caract. du tunnel 
1190 ri:m 

i lfco H*iGt-- i-i.ff.n* 

1 170 JOU-I 

1180 CALL HCHARd. 1,79, 748) 



1 1911 I 



(INT 



210 DATA lAO-OlOHol ' HJ'iLVA, ■■( 1 1 7"A«'l 0" »>U> 
.OA,7F2F0FO70F0301O3,FCF8E0FO!:OEOFOEO.F0 
8E0F8ECEOE0FO, EOCOEOF4FEFCFEF8 
220 DATA 000044440OI03B38,SCFFBD997E3C4 
7C.353FL7FE7F3A.AAFCE77FFEDC 
230 BAS =33 



240 ) 



IT-42 



230 GOSUB 1270 

260 GOTO 1330 

270 FDR I -BAB TD HAU1 

280 READ CA» 

290 CALL CHAR(t.CA-) 

300 NEXT I 

310 RETURW 

320 REM 

330 REM IN1TIALISATIOI 

MO REM 

330 A- 1 2 
360 6-16 
370 E-3 
380 H-2 
390 SO-9 
400 AU-6 



430 HA- 

440 RET-0 

430 EV-0 

460 TR-0 

470 T2-0 

4B0 ESF-O 

490 VIE-0 

300 MA 1-0 

3IO MA2-0 

320 CLE-0 

330 DIM (H)(4) 

340 G«4 

3SO DIM IU4I3) 

360 FOR l-l TO 3 

370 IUt( l)-CHR»(33dNT (RND»3) IkfMtt* 

kh*,6-1.3)*CHR»(3**1NT<RND*3I I 

564 ni xt 1 

3911 RANDOM I 71 

AM 0OBU1 WO 

610 i "Al i COLOR (3. Al . 31 

-■■ i M I I.0LURI4.AI .21 
630 CA-A! 

640 FO-2 

690 DOSUB S930 

6fcO RtM 

/.!■■ P.I M IT.I:M NTAIIDN 

.-.:!■. M H 

,,'i,i || :r i n-.i ■■ n,i n I f 10 

!■■'.. M.1NI inrild-ll N('}TR»IM",l.ORI M ) I " • ,-M 

' icon T-iMsniRFi-' "n 

Jio PRINT rAit4)l"PREB8 any kv tm miii 



I PRIN1 ' 



I .■■". I.I LilORI I .-!■■ 



-,H. 



Suito pngo 5 1 



50 



Tl BERT 



Voild le jeu que vous attendez tous, vous savez le 
drdle de petit bonhomme rouge qui saute inlassable- 
ment de case en case sur une pyramide infernale car 
elle est infest6e de monstres. Qui sera le plus malin, 
vous ou ces ignobles creatures? 

Bruno GITTON 



Mode d'emplol: 

Faire un classlque RUN 

Apparel! alors la presentation. 

Vous avez le choix ensulte de li'e ou de ne pas lire (es regies {0<'N) 

Vous avez ensuite. le choix du deplacement. 

a) Clavier: Vous vous deplacez avec les touches W.R.Z.C. 

Remarques: 

Le deplacement des monstres est aleatoire. Cela pourrait semblei 

rendre le jeu plus facile, mais au contraire. car leurs mouvements, 

etant comptetement imprevisibles, vous serez oblige de faire alten^ 

tion ou vous allez. 

On peut supprimer tous les REM. 

Le score sincremente de 10 points a chaque case qui passe du 

bleu au vert, mais ne s'affiche que si vous vous arretez. Cela per- 

met de rendre le jeu plus rapide. 

Le programme utilise presque toute la memoirs. 



100 RANDOMlfE 




: 10 REN 






120 RBM 


■-INI1 tAI 


1SAI ION" 


130 REN 






MO CALL 


CLEAR 




ISO VI«3 






lao re-i 






170 CALL 


SCREEN (5 




I BO CALL 


COLOR 1 13 


14,1) 


190 CALL 


COLOR! 14 


a, i) 


200 CALL 


COLOR I 16 


7, 1) 


210 FOR 


•2 TO a 




220 CALL 


COLOR ( I , 




230 NEXT 


I 




240 CALL 


COLOR [ 1 5 


3. H 


250 CALL 


COLOR!?. 11,1) 


260 CALL 


COLOR 110 


11,1) 


270 CALL 


CHAR (132 


" 1C3ED7FF7F1E1236") 


260 CALL 


CHAR (153 


"7E8DA5A5A5ASBD7E" > 


290 CALL 


CHAR! ISA 


"0O1B3C7EFFFFBD99") 


300 CALL 


CHAR ( 1 37 


-995A3C18"> 


310 CALL 


CHAR! 144 


"00183C7EFFFFBD99") 


320 CALL 


CHAR! 145 


■979A3C18") 


33-0 CALL 


CHAR ! ! 28 


"FFFFFFFFFFFFFFFF") 


7-40 CALL 


CHAR ( 1 2"? 


■■eOCOEOFOFeFCFEFF" . 


330 CALL 


CHAR ( 1 30 


"FFFEFCFBFOEOCOBO" > 


340 CALL 


CHAR ! 96 . 


3C3AE73C301C4438") 


370 CALL 


CHAR<104 


"3B1C3A7FFAEI723C") 


380 CALL 


CHAR! 131 


"FF7F3F 1FOF070301 - ) 


390 CALL 


CMAR ! 1 32 


"FEFBE0BOB0E0F8FE'- 1 


400 CALL 


CHAR < 9 1 , 


3C4299A3A399423C") 


410 CALL 


CHAR 1 1 20 


"3C3ABDD8E77E3C66" ) 


420 CALL 


CHAR (112 




430 CALL 


CHAR 1121 


"333A12FE3A3A486C") 



CERBERE 



Suite de la page 50 



1740 


PRINT "ty/r.xxr.yy.rtXKxKtvy.q't 


1750 


PRINT «■ M u 


174,0 


CALL 


VCHARI13. 16, 120, 10) 


1770 


CALL 




1780 


FOR 


-1 TO 1*RND»30 




CALL 


HCHAR ( 1*P.ND*9, 2*RND*30 




NEXT 


I 


18IO 


CALL 


SCREEN! 14) 


1320 


DU 


COLOR! 1, 14,2) 


1B30 


CALL 


COLOR <2, 11,1) 


IB40 


CALL 


C0L0P(!1,2. 14) 


IBSO 


Crt : 


C0L0R(12. 13, 14) 


1860 


CALL 


C0LDR(14,3.14) 


:B7fj 


GOSUB 3430 


iaeo 


CALL 


C0L0R!9,S0,AU) 


1S90 


CALL 


COLDRllO.AU, 14) 


I90O 


CALL 


C0LaR(2.STA. 1) 


1910 


IF S 


■0 THEN I960 


1920 


COLL 


KEYIO.K.SI 


1930 

1940 
1930 


IF 5=0 THEN 1870 


REM 


"• LE JEU »•• 


1960 


CALL 


CGL0RI9.7, 11) 


1970 


CALL 


C0LORI10, 11,14) 


1980 


FOR 


-2 TO 14 


1990 


CALL 


HCHAR1I.20-J.41) 


2000 


CALL 


HCHAR(I,21-I,42) 


2010 


CALL 


HCHARII-1.21-I, 120,2) 


2020 


CALL 


SOUND ( - 1 00, 220-4* I , 0, -I 




NEXT 


I 


;.■■■■--.'.' 


CALL 


CHAR ^41 . "353FE7FE7F3Al t 


2030 


CALL 


CMQR 142. "AAFCE77FFEDC9 


206O 


HH-42 


2O70 


FDR 


-7 TO 13 


2080 


CALL 


HCMAft !14, I.MH) 


2090 


CALL 


GCHAR(14, I+l.HH) 


2100 


'..--: L 


HCHAR(14, 1*1,136) 


2110 


NEXT 


I 


2 120 


FOR J-27 TO 3 STEP -3 


2 1 30 


PP-PND-2B 


2140 


FOR 


-II TO II*PP 


:■ ; 50 


CALL 


SOUND'- 79. 1*110. J> 


2160 


NEXT 


I 


2170 


FOR 


I-I TO I-RP/2 STEP -1 


2 1 BO 


CALL 


SOUND (-99. [1*110, J) 


2190 


NEXT 


II 


22O0 


NEXT 




2210 


CALL 


HCHAR! 14, 16.HHI 


2220 

: uj 

2240 

zzso 


CALL 


HCHARClS. 16. 136) 


REM 
RE" 


60UCLE PRINCIPALE 




;■;.'.'■ 


F=LENCMSG.J 


2270 


G-IN 


<RND»3)*2 


22B0 


FOR 


-1 TO F 


2290 


IF (A*E--25)*!A.:;jTHEN 2660 


2:00 


□'1 rrf*l GOTO 2330,2370.2310 


2310 


PRINT TABIA) | TU«fE) 


2720 


CALL 


HCHAR 1 23 , PL , OBS . E 1 J 




TR-1 




2340 




2380 


2330 


PR IN 


SESt tMSOfJ, I. 1 l ITAB(A) 


2360 


GOTO 


23BO 


2370 


PRINT TABIA) i TU»<E) 


Z3B0 


CALL 


HCHAR '1 4. B, 120) 


2 390 


COLL 


KEY(0,K,S1 


24O0 


IF Sl-0 THEN 4300 


24 10 


IF 5 


THEN 2490 


2420 


IF 1 


37 THEN 24 BO 


2430 




,AQ THEN 2460 


2440 


IF Tfi=0 TM 




GOTO 


2980 


2460 


GOSUB 33 30 


2470 


GOTO 


24 90 


2480 


!-■■['• 


■ 2-O--03) 


2490 


CALL 


GCHARI13,B,U> 


zscx 


IF U 


0120 THEN 2710 


2510 


CALL 


HCHARdS. B. 136) 


232< 


TI-1 


n [RMD*31 


23 :■<". 


E-E* 


INT<RND"3I-I 


234'. 


E«E* 


(E^GI-IE'll 






TI-1 


2360 


TO-TO*1 


2370 


CALL 


SOUND 1-300, 330,3) 



••PRESENTATION.. 



470 A*-"6RUNG ET PHILIPPE" 



4B0 LI -3 



» CO -9 

> B0SU8 4190 

i A»-"GITTON" 



I C0-3 

> RESTORE 390 

i FOR 1=1 TO 54 

I READ O.W.E.R 

I CALL HCHARfO.W.E.R 

i CALL 50UNDUO. 1319, 



320 LI -3 



i CO- 13 

I GOSUB 4190 

i A«-"PRESENTENT" 



750 NEXT I 

760 

770 

790 

790 



A* = "MARS ■ 
>22 



19B4 



5B0 
390 

600 

610 


JOSUB 4190 
9. 12B, 1, 14,9, 128, 1 


620 
28, 1 
630 

28,3 
640 
28,1 

630 

660 
28.1 
670 


14, 1 I, 128,3. 14. 14, 130, 1 

ATA 10, 16, 12B.4, 1 1. 16, 12B, 1, 12, 16, 
13, 16. 128, 1. 14, 16, 12B,4 

11.24, 128. 1, 12,21, 128,3 

ATA 12.24, 130, 1, 1 3, 21 , 128, 1 , 13, 23, 

13.2B, 12B, 1, 14,28, 12B, 1 
ATA 17, 16, 152, I, IB, 16, 137, 1, IB. 13, 


680 





Co-: 

GOSUB 4190 

FDR 1=1 TO 1500 

NEXT I 

CALL CLEAR 

INPUT "VOULE'-VOUS LES REGLES 



860 REM "*REGl 

B70 REfl 

BBO CALL CLEAR 



950 LI -4 




I ELSE 14 



LI-B 

C0=3 

GDS'JE- 4240 

A«--AU RISQUE 06 TOnKft- 

LI-10 

CO-3 

GOSUB 4 240 

COLL HCHARII3.4. 1321 

M«-VOTR£ MISSION EST DE" 

LIM3 

CO-3 

GOSLif 4240 

A»-"CHANGER LA COULEuR DE* 

LI = I5 

C0"3 

GOSUB 4240 

A*=-TOUT LES CUBES- 

LI-17 

CO-S 

GOSUB 4240 

CALL HCMAR(20,4, 132) 

A»=-P1AIS ATTENTION. CAR DE" 

LI«-20 

C0*5 

GOSUB 4240 

A4-- VILA INS MONSTRES VOUS" 

LI-Z2 

CO-3 

GOSUB 4240 

A4--POUR5U1VENT 1 ' ! 

LI-24 

CO-3 

GOSUB 4240 

FOR 1-1 TO IOOO 

NEXT I 

REM "FOIGNEE(0/NI" 

REM 

CALL CLEAR 

A*-"MOV£N DE DEPLACEMENT- 



GOSUB 4240 



960 CO =5 

970 GOSUB 4240 

980 A«="VOUS POUVEZ VOUS 

990 LI -6 

1000 C0=5 

1010 GOSUB 4240 

1020 A»--UNIOUEMENT EN DIAGONALS" 



) CO-3 

) GOSUB 4240 

) A*--2 - POIGNEE DE JEU" 

) LI-13 

) CO-3 

• GOSUB 4240 

i INPUT "VOTRE CHOIX"" -:HOV 
> IF 1P1QV- 1 )*!M0¥ 2)THEN 1340 
) IF f10Y = l THEN 17B0 

) rem Suite page 52 



TI-99/4A BASIC SIMPLE 



2SB0 


CALL S0UND(-200, 440,5) 


2590 


CALL SOUND(-100,8BO,5) 


26O0 


IF RETOO THEN 2640 


2610 


NEXT I 


2620 


TR-1 


2630 


GOTO 2930 


2640 


RET-0 


2650 


GOTO 2260 


2660 


IF A>16 THEN 2690 


2670 


A-A*l 


26BO 


GOTO 2300 


2690 


A-A-l 


2700 


GOTO 23O0 


2710 


IF LK>46 THEN 2760 




CALL S0UND(-10O,-I,0) 


2730 


LA-LA-8 


2740 


EV-0 


2750 


GOTO 2510 


2760 


IF UOllS THEN 2790 


2770 




2780 


GOTO 2840 




IF U<>47 THEN 2840 


2 BOO 


VIE-VIE+1 


2810 


CALL SOUND (-100,220,0,440,0,880,3 


2820 


HA-HA- 1 


2030 


GOTO 2510 


2840 


CALL S0UNDI-10O, 110,4) 


2830 






CALL HCHARd.3, 12B.6-HA) 


2870 


CALL HCHAR(1,28,ASCISTR»I5-HAI) ) 


2880 


IF HA>5 THEN 4900 


2890 


GOTO 2310 


2910 


REM "CONTROLS" 


2920 






2930 


EV-0 


2940 


IF JOU-0 THEN 2960 


2930 


31 = 1 




IF HAW THEN 4920 


2970 


ON T2*l GOTO 3030, 3030, 3060, 30B0.3 


00, 3 1 40. 3230. 3! BO. 32B0, 331 0.3350 


2980 


CALL SOUND!- I 00, 220, 0,330,0, 440,0 


2990 


r1SG«= "SCORE "t.STR«(TO'ESP»10*VIE«; 


-MAI»25-f1A2»20) 


30O0 


TR-0 


30] 


T2=INT!RND» !J0U*9) ) 


3020 


GOTO 2260 


3030 


F-13*INT!RND«33) 


3040 


TR-I 


3050 


GOTO 3420 


3060 


QBS-96 


3070 


GOTO 31 10 


3080 


0BS-107*INT!RND»3I 


3090 


GOTO 7110 


3 1 00 


OBS- 39 


3110 


PL-A-2 


3120 


El-E*2 


3130 


GOTO 3400 


3140 


PL-A*3 


3150 


OBS- 1 1 8 


3160 


EU-1 




GOTO 3380 


3180 


PL-A*2 


3190 


OBS-112 


3200 


El -2 


3210 


EV«1 


3220 


TR-2 


3230 


F-9 


3240 


GOTO 3420 


3230 


PL-A*INT(E/2)*2 


3260 


OBS-46 


3270 


GOTO 770O 


32SO 


PL-A*E*2 


3290 


0BS"47 


3300 


GOTO 3380 


3310 


MSG4-"' "'FOLIE''" 




TR-0 


33 30 


T2-10 


3340 


GOTO 2260 


3330 


31-0 


3360 


F-INT(PND*:'JI 


3370 


GOTO 3420 


■ ■!:■■ 


EV-I 


3390 


El-1 


3400 


TR-2 


3410 






TI^IflT (rflD'UQU"') 1 


3430 


GOTO 2270 




REM •• 90LEIL « 


3430 


50-SO-1-14.IS0-3) 


3460 


AU-SO-1 


3470 


STA-1 1--INT (RND«2) *INT(RND*2) «4 


3480 


RETURN 


3490 


REM •• SON «• 


ssoo 


FOR 1-0 TO 30 


3310 


CALL S0UND(-35O0.BR, 1) 



3520 
3530 
3540 
3330 
3560 
3370 
3580 
3390 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
36B0 
3690 
3700 
3710 

3730 
3740 
3730 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
38 30 
3840 
3930 
3B60 



3920 
3930 
3940 
3930 
3960 
3970 
39B0 
3990 
400O 



RETURN 

REM •* LASER »• 

IF !LA>330)*!K<4B)THEN 3930 

K-K-4B 

IF EVOI THEN 3700 

IF 0BS=112 THEN 3680 

IF PLOB THEN 3700 

IF K<10-I THEN 3700 

K-ABS(IO-I) 

EV-0 

IF OBS-UB THEN 3660 

CIB-1 

GOTO 3700 

CIB-2 

GOTO 3700 

IF K<10-r THEN 3700 

K-ABS(9-I) 

CALL VCHAR(15,B, 122.K) 

CALL S0UND1-20O.440-LA.7.-3, If 

COLL VCHARI15.8, 120, K> 

GN CIB*1 GOTO 3800.3740,3770 

CALL S0UN0!-10O,-S,O) 

MAI -MAI *1 

GOTO 3790 

CALL SOUND (-100, -1,0) 

ESP-ESP*1 

CIB-0 

LA-LA*K 

IF LA<2!0 THEN 3930 

IF LA>219 THEN 3870 

MSG--"LASER FAIBLE" 



GOTO 3910 

IF LA<321 THEN 3930 

MSG"-"LASER KO" 



4 380 

5 EN 
4390 
44O0 



IF (S2'0I*(LA<330)ThEN 472! 
CALL HCHARI1, 1. 126,768) 
PRINT i : : i : : "BONNE CHANCE"! 
AUREZ B£SOIN>"tt iitimiiii 

K2-1 

GOSUB 3990 

RETURN 

REM ••COLOR-FRES. • • 

CALL C0L0R!3.A1,2) 

CALL C0L0R!3.AI ,21 

CALL C0L0RI4.A1.2) 

CALL C0L0R(14,3, 1) 



RETURN 

REM ••COULEUI 

FDR 1-3 TO 8 

CALL COLOR! I, CA. 

NEXT I 

RETURN 

REM "DEL"' 

FOR 1=4 TO 12 

CALL C0LOR!I. 1, 

NEXT I 

CALL COLOR! 1. 1 . 

CALL C0L0RI2, 1, 

RETURN 

REM H AIDE 

CALL CLEAR 

GOSUB 4430 

PRINT PREl«i iTAI 



"REGLES" 



4100 PRINT "BUT:DE5CENDRE DANS LES 
ENTRAILLES DE LA TERRE SANS HEURTER LES 
POROIS DES COU LOIRS SINUEUX'-si 
4110 PRINT "GAUCHE S<->D DROITE" t ! " VOTRE 
ARMEiLE LASER MAIS IL S EPUISE ASSEZ RA 
PIDEMENT"; I 

4120 PRINT "SA PUISSANCE SE REGLE AVEC 
LES TOUCHES 1 A 9*1 1* 111 v -■' 
4130 BR-110 
4140 GOSUB 3300 

4150 PRINT -#) "i i "PRESSE7 UNE TOUCHE" 
4160 CALL KEV(0,K2,S2) 
4170 IF S2-0 THEN 4160 
4180 CALL HCHARI I, 1,61.768) 
4190 PRINT I I 
4200 PRINT PRElf.) t TAB(9) I "LE JEU M nPRE2. 

4210 PRINT "CONTROLEI V0U8< > CAR 

4220 CALL HCHARI22. 18. 136) 

4230 PRINT "PERCUTERi" 

4240 PRINT ">«-l VIE ET 20 PTS EN MDINS" 

i-W-t VIE 9UPLEM. ET 20 PTS" 

4230 PRINT "?.-0 UNITES LASER EN PLUS"i" 

>1 OBJET-1 VIE EN MOINS"rt 

4260 PRINT "ABATTRE - v-lOPTS" i " '. -_25 

PT9"i i 
4270 PRINT ".VOUS AVEZ 6 VIE3 '.AU DEBUT' 
"[■TAPER O AU COUPS DU JEU" I " -POUR CONN 
AITRE LE SCORE"! I 

4280 PRINT "-PRE3SEZ I TOUCHE S.V.P" 
4290 CALL HCHAR I I 4 , 20, 1 36) 



4470 


CALL C0LORII2. 10. 1) 


44B0 


RETURN 


4490 


REM "DEMONSTRAT 10N-« 


4300 


IF S-0 THEN 4610 


4510 


IF JOU-1 THEN 4610 


4320 


CALL SGUNDI-30,-2.0) 


4330 


CALL S0UND(-30,-l,0) 




CALL SatJND(-50,-2,0) 


4330 


CALL S0UND(-30,-l,0) 


4360 


CALL HCHAR* I . 1, 136,768) 


4370 


PRINT ItlllllMlllIIIIIlllIIIlI 


4380 


GOSUB 4000 


4390 


K2-1 


4600 


GOTO 290 


4610 


CALL GCHARI13,B-I,6D!1> ) 


4620 


CALL GCHAR(15.B,QD(2) I 


4630 


CALL 0CHAR113,8*l.OD(3l ) 


4640 


OD 1 4 I -GD 1 1 ) *GD 1 2 1 -GD ( S I 


4630 


IF (GD(4) /46-INT!GD(4) /46) ) . (OD (4 ) / 


•■> ■ ■ I 


T(GD(4)/47> 1THEN 4640 


4660 


DEM-rlNT (RND«2)*I 


4670 


ON DEM GOTO 4680,4740 




IF GDI1XM20 THEN 4710 


4690 


B-B-l 


4700 


GOTO 2490 


4710 


IF GDI3X -120 THEN 4800 


4720 


8-8*1 




GOTO 2490 


4 740 


IF BDI3KM20 THEN 4770 


4730 


B-B*l 


4760 


GOTO 2490 


4770 


IF OD (1)0120 THEN 4800 


4780 


B-B-I 


4790 


GOTO 2490 


4 BOO 


IF GD(2)-120 TWN 2490 


4810 


K-INTIRN0-9I »49 


4820 


GOSUB 3330 


4630 


GOTO 2490 


4840 


FOR Il-I TO 3 


4830 
4860 


IF ABS!GD!Il>/46.3-lXO.or THEN 487 


NEXT 11 


4870 


B-B4I1-2 


4880 


GOTO 2490 


4890 


RFH «* FIN •• 


49O0 


CALL HCHARd, 1 , 40. 768) 


4910 


PRINT MlltlllllM t II II II II It II* 



431' 



LA- -400 



4320 K-INT(RND»9)*49 

4330 CALL HCHAR(]7*INT(RNIW> . 2Ci. 1 10 

4340 aOGTJB 3330 

4330 CALL KEV (0. 1 2, S?) 



4920 PRINT ii"MORT EN" t TOI " TOURS l"ii"-- 

4930 PRINT "BONUS i " r TAB (8) ! " ■ v- " 1 1 B : ' 'I ' 

TS ■'X I0>"lTA8(8l|">/"*IVI"il"tfIEB " 10 

",-SDlT : "(B8PM0+VIE-20I "PTS" 

4940 PRINT ,i"MALUB ■ " I TAB (8) I ">. ABATTUfl 

*-lHAl|-<X 23>*lTAa<B)i">V FERCUTESi "IMA 

21 "<X 20^" 

4930 PRINT "SOI r ■ ■|NAl>23*fW2420l "PT9" 

4960 SCORE-TO -ESP" I 0*V I E>20-HA1«23-MA2»2 



4970 PRINT "TOTAL-"lSC0REl "PIMNTS" 

4980 IF SCORE- MSC.ORE THEN 3000 

4990 M9CORE-SC0RE 

3O0O CI-A1 

3010 Al-Bl 

3020 PRINT "MEILLEUR SCORE ! " I MSCORE 

50 30 PRINT l»"»»»»»»»««<' 

3040 GOSUB 4430 

3030 Bi-CI 

3060 IF IT')!30OHISI '.>} THEN 3080 

5070 PRINT "PAS MAL POUR UN ORDlNAlEURi 

N EST CE PAS" 

3080 FOR 1-1 'D 1000 

3090 NEXT I 

3100 FOR 1-1 TO 32 

5110 CALL VCHARII. 1.62,24) 

3120 cam vCMAR(l,33-l,A0,24l 

-.1 o Nf.xr i 

■;> 'i WUB •■'•'■■ 

a iso i ai i i hi on v. i . i > 

3160 CALL COLOR! 10. I.H 

»|70 K2-1 ■ 

-,!!)■. r.iiln in 



51 



Tl BERT 



Suite de la page 51 



1380 


REH • •D1FFICULTE" 










1390 


REH 










!*■:"-> 


CALL CLEAR 










1610 


A«-"N1VEAU DE DIFFICULTE" 








1620 


Ll-4 










1630 


CO-6 










[640 


GOSUB 4240 










1 630 


A*-"l-FACILE I01AG0NALES) 








: ft -v ■ 


LI"10 










1670 


C0»1 










: 68 


GOSUB *2->0 










16W 


A»-"2-DIFFICILE 1T0UTES D 


RECTI0N5) 


1700 


LI-17 










1710 


CO=I 










1720 


GOSUB 4240 










1 730 


INF-UT "VOTRE CHOIX7 " 


DIP 








1740 


IF <DlF<l)*tDIF'2)THEN 17 


SO 






1750 


REM 










1 760 


FEM »*»JEU-«» 










1770 


REM 










1780 


CALL CLEAR 












A»- "SCORE Tl-BERT 


H 


I SCORE 




I BOO 


LI-3 










1B10 


C0=>3 










IB20 


GOSUB 42a'.' 










IB30 


A»-- TABLEAU" 
LI -22 










: 850 


CO-3 










I860 


SOSUB 4240 










1B70 


A»=STR*ITB) 










1880 


LI-23 

co»s 










1 900 


GOSUB 4240 










1910 


A«-STR»<HISCORE) 










1920 


Ll-4 










1930 


CO- 25 










1940 


GOSUB 4240 










1930 


CALL HCHAR (22, 23, 132, VI) 








i960 


DATA 10, 16. 136. 11,16, 


37, 


1 




36, 
























13,16.137,12,18, 136,13,18, 


37 








19B0 


DATA 13, 13, I3t>, 14, 13, 


37, 




13, 


36, 














14,19, 137 










1990 












13, 14. 137. 14, 16, 136, 15, 16. 


37 








2000 












13,20, 137 










20 1 


DATA 15, 11. 136, 16, 11, 


37, 


3 


13, 






37. 


3 


19. 




2020 


DATA IS. 17, 136, 16. 17, 


36. 












2030 






















17. 16, 137 










2040 












17,20, 137, 16.22, 136, 17,22, 










2030 












2060 














37 
37, 


17 


23, 




2070 


DATA 17,21, 136. 18,21, 


136, 


!B.23, 137 










2080 


DATA IB. B, 136, 19.6, 13 


,18 


,10, 136,19 














2090 














37. 


B 


22, 




21 OO 


DATA 10,20,136,19.20, 


136, 




37 








2110 


RESTORE 1960 










2120 


FOR 1-1 TO TO 










2130 


READ Z.X.C 










2140 


CALL HCHARIZ.X.C) 










2150 


NEXT I 










2160 


CALL HCHARI16.24, 133) 










21 70 


DIN FVI5>,PH<3> ,C0Df5 




(3 






21B0 


FOR T-l TO 3 










2190 


00<T)«136 










2200 


NEXT T 










2210 


A-10 










2220 


B=16 










2230 


PVI11-I4 










2240 


PK(1)-16 










; 23< 


COD( 11-96 










2260 


PV<2)-16 










2270 


PH<2)-16 










22B0 


C0D(2)-104 










2290 


PV(3)-18 










23W 


PHI3J-16 










27-10 


COD (31 -120 










2320 


PV 1 4) -I a 













PHI4I-12 






1 7 1 


C00(4)-H2 






2530 


PV(5)"IB 






2360 


PHIS) -20 








C0D<3J-121 








CALL HCHARIA 








CALL HCHAR<A« 


1.B.14S) 




2400 


ON MOV GOSUB 


5080,2670 




2410 


1-1 






2420 


N( D-INTIRND' 


41*1 






ON NIDGOSUB 


3610.3790 






ON MOV GOSUB 


3080 . 2670 






IF TBM THEN 


2460 ELSE 




2460 










N(1)=INT(RND 








ON NIDGOSUB 


3610,3790 


3910.4030 




ON HOY GOSUB 


3080. 2670 




2300 


IF IB>2 THEN 


2510 ELSE 




2510 


















ON NUIGOSUB 


3610.3790 






ON HOY GOSUB 


3080,2670 




2330 


IF TB>3 THEN 


2560 ELSE 


2660 










2570 


Nil i-INTlRND 






2380 


ON N111U0SU6 






2390 


ON MOV GOSUB 


30BO.2670 




2600 


IF TB>4 THEN 


2610 ELSE 


2660 



3330 B-8*I 

S340 GCITQ 31B0 

3330 GOSUB 4130 

3360 RETURN 

3370 CALL GCHARCA.B.Z) 

33B0 IF 7-32 THEN 4470 

3390 IF Z-136 THEN 3300 

340O IF Z-133 THEN 4660 

3410 RETURN 

3420 SCORE-SCORE* 1 



26 lO 1=3 

2620 N(I)=INT<RND»4>*1 

2630 ON NIIJGOSUB 3610,3790,3910.4030 

2640 TB-5 

2650 CALL COLOR ( 14, 1 . 1 ) 

2660 GOTO 2400 

2670 ON DIF GOSUB 2740.3010 



2680 


CALL HCHARIA, B, 152) 


2690 


CALL HCHAR(A*1,B, 145) 


2700 


RETURN 


2710 


REM 


2720 


REM "»PDIGNEE-« 


2730 


REM 


2740 


CALL J0VST(1,X,V) 


2730 


IF (X=0)-(Y-0)THEN 2870 


2760 


COLL HCHAR (A, B, 144) 


2770 


CALL S0UND(-10,8B0, 0,-7,0 


2780 


IF (X-4)«(Y=fl)THEN 2890 


2790 


IF (X=-4)»(Y-4)THEN 2920 


2900 


IF (X-4)*{Y— 4ITHEN 2930 


2B10 


IF (X— 4>«<Y=-4)THEN 2980 


2820 


COLL GCHAR(A, B,Z) 


2330 


IF Z-32 THEN 4470 


2840 


IF Z-I36 THEN 3420 


-Fsr;.-.. 


IF 7-153 THEN 4660 


2860 


RETURN 


2870 


GOSUB 4150 


2880 


GOTO 2860 


2890 




2900 


B-B-M 


2910 


GOTO 2820 




A-A-l 


2930 


B-B-l 




GOTO 2820 


2950 


A-A+l 



3430 


JF 5C0RE/440»INT(SC0RE/44<j 


THEN 437 


^440 


IF SC0RE/20OO-INTISC0RE/2O 


OJTHEN 3 


460 








GOTO 2B60 




3460 






3470 


CALL HCHAR(22,23.32,7) 




3480 


CALL HCHAR(22.25, 132, VII 




3490 


GOTO 2960 






SC0RE=SCDRE*10 




3510 


IF SCORE/440'INT (SCORE/440 




35» 


IF SCORE/2000-INT(SCDRE/2000)THEN 3 


540 






3530 


GOTO 34tO 




3540 


VI-VI+I 




3330 


CALL HCHAR(22,25,32,7) 




3560 


COLL HCHARI22.23, 152.V1) 






GOTO 3410 




35B0 


REM 




3590 


REM •••HONSTRES"* 






REM 




3610 


FOR T-l TO TB 




3620 


IF <PV(T)-A>»(PHIT)=B>THEN 


4470 


3630 


NEXT T 






CALL HCHARIPVU! .PH(l) ,00t 




3630 


PVt I)-PV(I)-1 
PHI1)=PH(I)-1 




3670 


CALL GCHARIPV11) ,PH(I),W> 






IF (H=153>*IW96J + IW104I* 


W- 1 1 2 ) ♦ ( 


W-120)*(W-121)-KW=32)THEN 3760 




3690 


OOID-W 




3700 


IF 00(11=152 THEN 4280 




3710 


CALL HCHAR I PV 1 I ) . PH ( I 1 , COD 


I) ) 


3720 


FOR T-l TO TB 




3730 


IF (PV(T)=A!*(PH(T)=B)THEN 


4470 


3740 


NEXT T 




3750 


RETURN 




3760 


PVII)=PV(I>*1 




3770 


PH11)-PH(1)+1 




37B0 


GOTO 3670 




3790 


FOR T-l TO TB 




380O 


IF (PV(T>-A)*{PH(TJ-B)THEN 


4470 


3810 


NEXT T 




3820 


CALL HCHAR<PVCI) ,PH(I) , DO ( 


)> 



4260 NEXT 1 

4270 RETURN 

42BO DOU>-144 

4290 GOTO 3710 

4300 CALL GCMAR<PVCI>,PH( 

4310 IF K-143 THEN 4350 

432.0 IF K-137 THEN 4370 

4730 00(11*136 

4340 GOTO 3710 

4350 OEM I >» 144 

4360 GOTO 3710 

4370 CALL HCHARIA, B. 152) 

43BJ0 CALL HCHAR(A'1.B. 143; 

4390 FOR 1-1 TO 50O 

4400 NEXT I 

4410 TB-T8+1 

4420 A*=SJR»1TB) 

4430 Lt-23 

4440 C0=5 

443<-> GOSUB 4240 

4460 GOTO I960 

4470 CALL HCHARI22. 775. J2, I 

4490 vi-vi-i 

4490 IF VI=0 THEN 4770 

4300 CALL HCHAR < 22. 25, IS!'. 

4310 FOR T-l TO 10 

4320 CALL HCHAR<A.B,63> 

4530 FDR TT-1 TO 100 

4540 NEXT TT 

4350 CALL HCHAR 10, B. 1 52 ) 

4360 FOR TT-l TO 100 

4570 NEXT TT 

45S0 NEXT T 

4390 IF Z-32 THEN 4640 

46O0 CALL HCHARIA. B. 144) 



' STEP ■ 



3870 GOTO ; 

38B0 pvi; 



2970 GOTO 2B20 

29B0 A=A*I 

2990 B=B-1 

3000 GOTO 2820 

3010 CALL JDYSTI1,X,Y) 

3020 IF IX"0)«IY=0)THEN 2860 

3030 IF CX=0)*<Y=0)THEN 32767 

3040 GOTO 2760 

3050 REM 

3060 REM •••CLAVIER*" 

3070 REM 

3080 CALL KEY<5,K,S) 

3090 IF S=0 THEN 3350 

3100 IF K-B7 THEN 3150 

3110 IF K-B2 THEN 3230 

3120 IF K-90 THEN 3270 

3130 IF K-67 THEN 3310 

3140 IF <K<>B7> + (KOS2)*<K<>90I-KI«>67)T 

HEN 270O 

3130 CALL HCHARIA, B, 144) 

3160 A-A-l 

3170 B-B-l 

3180 GOSUB 3370 

3190 CALL HCHARIA, 8, 152) 

3200 CALL HCHAR(A+1,B,143> 

3210 CALL SOUNDI-10.8BO, 0,-7,0) 

3220 RETURN 

3230 CALL HCHAR (A, B, 144) 

3240 A-A-l 

3230 B-B+I 

3260 BOTO 3180 

3270 COLL HCHARIA, B. 144) 

32B0 A-A-l 

3290 B-B-l 

3300 GOTO 3180 

3310 CALL HCHARIA, B, 144) 



-PV(I)«-1 
3890 PHII)=PH(I)-1 
3900 GOTO 3670 
3910 FOR T-l TO TB 
3920 IF (PV<T)-A)« 
3930 NEXT T 

3940 CALL HCHAR (PV ( I ) . PH( I 
3930 PVID-PVlIH-l 
3960 PHII)-PH(I)-1 
3970 CALL GCHAR (PV 1 1 ) . PH I : 
3980 IF (W-153)*(W-96)-IW 
W-120)-IW-121)-HW-32)THEN 
3990 GOTO 3670 
4000 PV(I)-PV(I)-1 
4010 PH(I)-PH(I)*1 
4020 GOTO 3670 
4030 FOR T-l TO TB 
4040 IF (PV(T)-A)«(PH(T)-I 
4050 NEXT T 
406O CALL 



4620 B-16 

4630 GOTO 2380 

4640 COLL HCHARIA, [ 

4650 GOTO 4610 

4660 FOR 11-16 TO 1 

4670 CALL HCHARII 1. I 1+B. 15 

46B0 CALL HCHAR II I, I 1*8.32 

4690 NEXT II 

4700 A-10 

4710 B-16 

4720 CALL HCHARIA. B. 152) 

4730 GOTO 2390 

4740 REM 

4730 REM •••FIN DU JEU«« 

4760 REM 

4770 COLL CLEAR 

4780 A**"VOTRE SCORE F*T:" 

4790 LI-8 

4 BOO C0=7 

4810 GOSUB 4240 

4820 A«=STR»<SCORE>{.~ POIN 

4830 LI "10 

4B40 CO- 11 

4650 GOSUB 4240 

4860 IF SCORE > 



I1SC0RE THEN 4870 ELSE 49<? 



8) THEN 4470 



104)*(W-112)- 



<I> 



<I) 



4ioo : 



-133)- 



3320 A-l 



W-1211-MI 
41 10 GOTO 3670 
4120 PV(I)-PVCI)- 
4130 PH(I)-PHII)- 
4140 GOTO 3670 
4130 FOR 1-1 TO 1 
4 160 CALL HCHAR (' 
E) , I, 1))) 
4170 NEXT 1 
4 ISO RETURN 
4190 FOR 1=1 TD LEI 
4200 CALL HCHAR (LI 

4210 CALL 50UNDII0 
4220 NEXT I 
4230 RETURN 



) , PH ( 1 ) 
'6>*(W-1 
ilTHEN 4 



♦ I,ASC<SEG»N 



4970 A«=-VOUS AVEZ BATTU LE RECORD'- 

4880 LI -14 

4690 CO" 2 

4900 GOSUB 4240 

4910 A»-"!L ETAIT DE -&STR* <H1 SCORE M 

OINTS" 

4920 LI=16 

4930 CO-2 

4940 GOSUB 4240 

4930 FOR MU-1 TO 30 

4960 CALL SOUND 1 1O0. 1 10*30*nU. 0*MU) 

4970 NEXT HU 

4960 HISCORE-SCORE 

4990 SCORE-0 

SOOO VI-3 

SOlO TB-1 

5020 A»-"VOULEZ-V0US REJOUER 7" 

3030 LI -20 

304O CO-2 

3050 GOSUB 4240 

5060 A4--1-0UI / 2-N0N- 

5070 LI -22 

5080 C0-2 

5090 GOSUB 4240 

SlOO CALL KEY<0,K,S1 

3110 CALL KEY(l.T.V) 

IF (S-0)*(V-0)THEN 310O 
IF K-49 THEN 14IO 
IF K-30 THEN 3170 
IF T-IB THEN 1410 

I160 IF (T018)*0v-O491* (KOSOITHCN ! 

,170 CALL CLEAR 

1180 PRINT " AU REVOlR'lUKttl 



■/,, 



I'l TO 300 
1 



TI-99/4A BASIC SIMPLE 



BASKET 



Pour les sportifs fatigues, voici un petit programme qui 
va autoriser le sport en chambre! Deux joueurs vont 
lutter sous les paniers pour atteindre le plus rapide- 
ment possible le score convenu (au debut de la partie). 
Visez bien, et que le meilleur gagne! 

Thierry COURBON 



Mode d'emploi: 

Degre de diHiculte: fait varier la precision du tir (1 -• 8). 
TaiTle des joueurs: en cm, Ne la negligez pas. elle a son impor- 
tance! 

Depart aulo (0/N): —• I'ordinateur place les joueurs, N -» I'ordina- 

teur attend un nombre pour placer les joueurs (permel de modifier !a 

position de depart). 

Indication (0/N): -* permet de connaitre la distance tir/panier, 

lorsque le tir est manque. 

X = ... Y = ...: Position du joueur sur la grille (0...8x0...9). N.B.: Le 

panier est en 4,9. 

A = ... angle de lit. 

V « ... Vitesse du ballon. 

Atfichago des resultats du tir: 

- Tif ratO: vous 6tos dans les chouxl 

- Trop pres: vos forces sont bien falblardes! 

- Trop ioin: no vlsez pas le public, mals le panier! 

Lorsque vous morquoz un panior. vous rojouez apr&s avoir chango 
do place. 



l:Z=ABS CJ+K+L 
+M+N+COS A- 
COS (E+F)+Z) 
:GOSUB 6:Ml 
+1)=INT <8Z) 
:Z=flBS <T+U+ 
V+W+X+CDS <fl 
)+Z 

2: GOSUB 6:fl<I+ 
2)«IHT C9Z): 
fl<I+3)=J"<ABS 
<4-A<I+l)>''2 
■K9-fl(I+2>)'- 
2) 

3:«<I+3>=INT < 
SA<I+Z;)/S: 
IF <A<I + 1)=4 
>*<A<I+2)=9) 
GOTO 1 

4: IF B*="N" 
RETURN 

5:G0T0 CI-'lO+l 
1> 

6:Z=Z+Jt:Z=ZZZZ 
Z:Z=Z-INT Z: 
RETURN 

7: "A": CLEAR I 
DEGREE :U=8: 
INPUT "DEGRE 
DE DIFICULT 
ET'ISIS-IO'S 
:M=INT <S*f9 
7)/S:H=M 



8: INPUT "TAILL 
E DU lER:"iN 
:N=5-N:IF <N 
<.5)+<N>2) 
PAUSE "INHUM 
AIN !":G0T0 
8 
9: INPUT "TAILL 
E DU 2ND:"iX 
IX=3-X!IF « 
<.5>+<X>2) 
PAUSE "INHUM 
AIN !"I60T0 
9 

10: INPUT "P="iP 
: GOSUB 51: 
INPUT "INDIC 
ATION<0/N):" 
iD* 

12:PAUSE "1ER J 
0UEUR":I=10: 
GOTO 14 

13: PAUSE "2ND J 
0UEUR":I=20 

14:pause "*scor 
e*ier=";j;" 

2ND="iT:0 
=14-I/10:G=A 
<I + l):H=Aa* 
2>: PAUSE "X« 
"iGi" Y=" 
IH 
15: INPUT M A="iA 




: INPUT "V="i 
B:IF (A>=90) 
+ <B<=0:'PAIJSE 
"TIR RATE... 
":GOTO 

16:E=TAN A:C=9. 
31/(2BB*G0S 
A*COS A):Y=E 
E-4CA<I+4): 
IF Y<OPAUSE 
"TIR RATE... 
'•:G0T0 

17:F=INT <<SE+S 
*TY)/-2/CVS: 
R=F-A<I+3):F 
=A<I*3)-F:IF 
D*="N"R=0 

18: IF F>OPAUSE 
"TROP PRES"> 
R:GOTO 

19: IF F<0PAUSE 
"TROP LOIN". 



R:GOTO 
20: BEEP 2 I PAUSE 

"**»pflNIER*» 

*":A<I>=A<I> 

+2: IF A<IXP 

GOTO I 
21: BEEP 5:IF 1= 

10PR1NT "1ER 
GAGNE:"!Ji" 

A."iT 

22:print "2nd g 
agne:";t: m a. 

"!J:END 

51: INPUT "DEPAR 
T AUTO(O'N): 
"!Q*:IF Q»=" 
C'RETURN 

52: INPUT "INITI 
AL:"iZ:I=10: 
GOSUB 1 t I =20 
: GOSUB l:Q*= 
RETURN 



SHARP PC 1211 



ISOLER LE BALLAVON 



Vous §tes un brillant chimiste, et vous venez de decou- 

vrir une substance nouvelle qui devrait revolutionner le 

monde scientifique. 

Celle substance, vous decidez de lappeler BALLAVON 

car elle a la viscosite d'un savon et rebondit comme 

une balle. Bien que possedant d'extraordinaires pro- 

prietes, elle a malheureusement la particularite de se 

dissoudre petit a petit, quand elle se deplace dans 

I'eau. 

Sachant cela, il vous reste quand meme a lisoler au 

milieu de tout I'eau de votre becher. 



Michel RACT-MUGNEROT 



Le |eu: Posiiionnez l'ordinaleur en mode deF el tapez SHIFT A. 
Conseil amical: avec du papier, fabriquez: 

- Une grille 12x8 representam ie becher 

- Un carre 2x2 representam la substance se deplacant sur la 
grille. 

Le Carre 2 x 2 est lui-meme decoupe en 9 cases qui sont Tun 
des 9 poinls diflerents du carre que Ton peut atteindre. 

But du jeu: Saisir le ballavon par son centre, avant qu'il n'ait 

completemenl disparu. 

Deroulement: 

- Au debut du |eu, [e ballavon est done cache parmi les points de la 
grille. 

- Vous entrez les coordonnees. une a une. d'aoord labscisse puis 
I'ordonnee. 

- L'ordinaleur vous delivre aiors lun des messages suivants: 
"BRAVO", si vous etes tombe juste sur le centre du carre. On vous 



indique ensuite le nornbre de coups qu'H vous a tatu pour y parve- 

mr. 

■PLUS DE BALLAVON!' ; Trop lard! le Ballavon sesl corrolew- 

menl dissolu. On vous revele quand meme sa derniere posrton. 

. 'MANQUE", si vous tapez dans I'eau 

Un carre de 3 x 3 avec un point ctKjnolant: vous avez louche Tun 

des 6 points du carre qui est indique. Avant voire prrxham essar 

le programme. 

Attention 1 le * (diesel que Ion peut trouver dans >e programme est 

une fonction speciale du PC 1211 qut permet raffichage de pe«s 

points. Voici comment lobtentr: 

- Charger sur une cassette 
• Passer en mode PRO. et fartes CLOAO et le programme que vous 

venez d'enregistrer. 

- Tapez LIST ENTER, vous obtenez 155: EEE< - EEEE a AS 
(198) 

A I'afftchage vous avez aiors: EEE< EEE 

- Appuyez sur I . vous verrez defiler des l^nes bizarres Arretez- 
vous a la ligne 55: EE * EEEO 

- Uniquement par insertions et deplacements du curseur. a partir de 
cette ligne. tapez: A = PI # PI. 

Tapez les lignes 190 et 320 a partir de cette ligne. 



4:B=c;C+JD~5:C= 

E-INT B: 

RETURN 
5:"C"J=1.0777: 

1=1:1=1: 

RETURN 
6:B=D+XP:E=E+X 

Q: RETURN 
7:"G"I=I:J=1.0 

75557:1=1: 

RETURN 
8:T=INT <Nx-10: 

T=T-<T<4 
9:M=!MT (T.'itL 

=T-3H: RETURN 
10:"A"PAUSE ■ I 

SOLER LE BAL 

LAV0N":AC27> 

=1.055557:A< 

23>=1. 035557 

:Ar34>=1.065 

557 



ll:A<37>=1.0755 
55:A<33>=1.0 
75553:A<39>= 
1.071117:A<4 
4>=1. 075556: 
A<45>=1.0744 
47 

12:H=0:N=0 

20:G0SUB 4:D=1+ 
INT 11C: 
G0SUB 4:E=1+ 
INT 7C 

1.0: INPUT "COORD 
ONNEES ?";F. 
G:F=INT F:G= 
INT G:IF -F 
IF -GIF F>12 
IF G>8BEEP 3 
: PAUSE " CGU 
P FAUX I " : 
GOTO 30 

40: IF -FIF -GIF 



FH2IF G>S 
BEEP 3: PAUSE 
" IMPOSSIBLE 
I " : GOTO 30 

50:H=H+l:IF F=D 
IF G=EBEEP 5 
: PAUSE " BR 
AVO! I I": 
PRINT "BALLA 
VOH ISOLE: " 
SHS "COUPS": 
END 

55:P=B~F:Q=E-G 

60: IF PP+US<=2 
THEN 80 

70: BEEP 1: PAUSE 
"MANQUE I": 
GOTO 30 

30:G0SUB 3:I=P= 
0:J=-P=1:K=2 
'ABS CP+Q+I+ 
2J>*10"f I+2J 



90: 
100 



: IF K<=2'"L*1 

O'MTHEN 70 

I=1.0777-E-4 

KtEEEP I 

!A=R?K: GOSUB 
"C"".G0SUB "C 
":G0SUB "C": 
GOSUB "C": 
GOSUB "C": 
PAUSE " " 

: GOSUB 4:0=1+ 
INT <C*<9- 
INT (N/-15 

: N=N+50 

:X=0: GOSUB 6 

:F0R V=1T0 0+ 
1 

:IF DIF EIF D 
<12IF E<3 
GOTO 180+50* 
(V=l 

:X=-l: GOSUB 6 



:NEXT Y 
:I=0+l:0=Y-l: 
Y=I:NEXT Y:R 

=D*«D=1)+<D 
=ll:S=E*<<E= 

lj+<E=7 

:I=A<33-R+S>: 
BEEP l:A=7t?;i 
.'GOSUB "G": 
GOSUB "G": 
GOSUB "G": 
GOSUB "G": 
GOSUB "G": 
PAUSE " " 

:IF RIF E<>7 
LET P=-P:Q=Q 
*<1-2*<E=1: 
GOTO 125 

: IF SLET G!=-Q 
:P=P*(.1-2*<R 
>0:G0T0 125 

:Y=0+l:NEXT Y 



:IF 10=30 
BEEP 5:FAUSE 
" PLUS DE BA 
LLAVON I": 

print "derni 
ere position 

: ";d;",";e: 

END 

GOTO 30 

"S"PAUSE " E 

TAT DU BALLA 

VON": GOSUB S 

: V=0 

IF -MTHEN 31 



FOR W=0T0 M: 

LI=0:I=W<M:J= 



=0T0 LJ 



270: FOR 

+21 
230: IF U=1IF X=l 

NEXT X:G0T0 

300 
290: U=U+2'-X: NEXT 

v 
300:V=V+U+1C"W 
305: NEXT M 
310:I=1.0777-E- 

V:BEEP 1 
320: A=!T?W: GOSUB 

"C": GOSUB "C 

": GOSUB "C": 

GOSUE "C": 

GOSUB "C": 

PAUSE " 
330: GOTO 30 




DIABOLIC 



Ce programme est un casse-tete que Ton pourrait clas- 
ser dans la serie des taquins. II s'agit pour le joueur de 
remettre dans I'ordre alphabetique les 10 premieres let- 
tres de I'alphabet (A a J). 

Marc BAETENS 

Pour ce taire. I'utilisateur peut a chaque coup, effectuer un echange 
enlre la premiere lettre et n'importe quel autre. 
De plus, un "effet secondaire" est ajoute pour corser le lout (d'oii le 
nom du jeu). Les deux lettres situees de part et d'autre de celle 
echangee avec la premiere sont inversees. 
- Soufflons un peu. et attardons-nous sur un exemple: 
Soil la position BJFHCDIGE.en jouant 5 on obtient H J F C 
B A D I G E. 

N.B.: Cette ligne de lettres est circulaire, e'est-a-dire que Ton peut 
considerer la premiere lettre comme elant la 1 leme. 
Ceci a pour effet de produire 3 chiftres scpeciaux: 
Si on joue 1. les lettre 2 et 10 s'intervertissent. 
Si on joue 10, la lettre 1 passe en 10, la lettre 10 passe en 9 et la 
lettre 9 passe en 1 , 

Si on joue 2, on obtient une permutation circulaire: 1 — 22 -» 3 -» 
1. 

Mode d'emploi: AprOs RUN affichage de VERSION A B C ou D. 
Entrez la lettre de votre chotx puis ENTER. 
Version A: L'ordinaleur vous propose un probieme calcule aleatoire- 
ment. 

Version B: vous entrez le probieme de votre choix (une lettre a la 
lots). 

Version C: L'ordinaleur reprend le probieme qui vient d'etre joue. 
(pour les concours ou ameliorations de score). 
Version D: Lordinateur vous propose la solution du probieme issu 
de la version A. 

Deroulement du jeu: Apres I'affichage de I'etat en cours du pro- 
bieme. l'ordinaleur vous demande la lettre a inverser et ca repart. 
jusqu'a ce que vous trouviez la solution? 
N.B.: Au boul de 50 coups vous avez perdu 



l: PAUSE "Ii I ABO 
LIC PC'MARC 
BAETENS": 
GOTO 15 

2: IF U'xlLET W 
*=A*<U>!A*ttl 
>=ftI:'j.*=U* 

3:V=U:IF U=10 
LET V=0 

4: IF U=1LET U= 
11 

5:W*=A*<U-1>:A 
trij-i>=AJ(V+ 
i iiiw<v+n=w 

s: RETURN 
6: FOR Z=1T0 10 
:A*<Z>=A*<Z+ 

10): NEXT Z: 
RETURN 
7: BEEP l:PPIIIT 
" ***** " ; At 
;B»ic*;D*iEt 
;Ft;G*iHi;u 

;T$»" Me***" 
: RETURN 
3: INPUT "OU RE 



MET CA ?"iA* 
'28): IF A*<2 
8>»"N0N" 
PRINT " 

OOMMAGE... 
" : END 
9: IF fit<23> = "0 
UT'THEN 15 

10: PAUSE " OUI 

OU HON . S. 

V.P.":G0T0 3 

15:A<27'=0: 

USING "ttUU": 
INPUT "VERSI 
OH A .B >C 
U D ?"SA*<30 
;:G0T0 AK30 

20: "A"PAUSE " 

VERSION A 
UTONOME" 

21:A*="A":BJ="B 
":M="C":DJ= 
"B":Ef="E":F 
t="F":GJ="C" 
:Hf="H": !f=" 



"UN NO 
.P. 



I": Jt=" 

22: INPUT 
MBPE S 
==>"iX!X=X/E 
5: PAUSE "UN 
INSTANT , J" 
ARRIVE..." 

23: FOR Z=1T0 10 
:X=<:X+II)"8:X 
=X-INT X:U= 
INT C9X+n:A 
<42-Z)=Ui 
GOSUE 2: FH-EP 
l:NEXT Z 

241F0R Z=1T0 10 
lA*<Z+10>«fM 
CZ>1NEXT Z: 
GOTO 60 

30:"B"PAUSE " 
VOTRE COMB 
I HA I SON": FOR 
Z=1T0 10: 
BEEP l: PAUSE 
"LETTRE" iZ: 
IHPUT A*<Z): 
A*<Z+10)=HI( 



Z>:NEXT Z 

31: GOTO 60 

40: "C'PAUSE " C 
0MB I NA I SUN P 
RECEDENTE": 
GOSUE 6: GOTO 
60 

SOI "D"PhUSE "SO 
LUTIOH DE LA 
VERSION A": 
GOSUE 6 

51: FOR Z=1T0 10 
:EEEP l:IJ=A< 
Z+31): PRINT 

>LETTRE"iU 

52: IF <U=2)+<U= 
105PAUSE ">> 
>»» DEUX F 
OIS <<««": 
FOR Y=1T0 2 

53: GOSUE 2: IF < 
U=2> + ('U=10) 
NEXT Y 

54: GOSUE 7: NEXT 
Z:BEEP 2: 
PRINT " 

C.O.F.D. I 
":G0T0 8 

60: GOSUB 7: IF A 
*="A"IF Bt=" 
B"IF CI="C" 
IF DJ="D"IF 
EJ="E"IF FJ= 
"F"IF Gt="G" 
IF Ht="H"IF 
I*=" I "IF J*= 
"J "THEN 70 

61:A<27>=A<27>+ 
l: PAUSE "TOU 
R"!A<27>:IF 
AC27)=50BEEP 
2: PAUSE " 

PERU 
U i": GOTO 8 

62: IHPUT "IHVER 
8 1 ON SUP LET 
TRE "JUS IF < 

u;i.'+>u>n:o 

PAUSE " DE 
1 A 10 SEULE 
MENT"iG0T0 6 
2 

63: GOSUE 2SG0T0 
60 

70:AJ(29,' = "S": 
BEEP 51PAU8E 
" G A 
SHE I": IF 
A<27'>=1LET ft 
t , -..,,-„ ,, 

: PRINT " 

EN" ift<27)i" 
COUP"! At (29 
>:G0T0 3 ■ 

53 



71: 
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PHARAON 



Voici un programme qui vous permettra de jouer a 
I'une des variantes du jeu le PHARAON. Votre but? 
Arriver en deplacant vos pions, a empecher tout mou- 
vement de Tadversaire. Bonne chance, et munissez- 
vous d'un papier et d'un crayon pour vous souvenir 
des mouvements deja effectues. 

Didier SIRON 
Mode d'emploi: 

Celui qui joue avec les pions noirs enleve un de ses pions (n'im- 
porte lequel) voir grille 1. Le joueur possedant les Wanes commence 
le premier. Les joueurs deplacent a lour de r6le un seul de leur pion 
vers la case restee libre. sans prise. Les deplacemenls sont d'une 
seule case, horizontaux ou verticaux. Le but du jeu est lo blocage 
de Tadversaire. 

Par exemple (voir grille 2) le joueur noir deplace le pion 32 qui vient 
se placer en 42 laissant 10 cases sur 32 libres a son tour. Mais les 
blancs ne peuvent I'atteindre. lis ont perdus. 
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10:D=10:A=-D:B= 
-l:C=l 

20: IHPUT "N0IR= 
BLANC=l:"i 
I: IF (IOOJ* 
<IOl>G0T0 2 


30:K=-CI=0>+<I= 
1>:F0R 1=22 
TO 26: FOR J= 
ITO I+40STEP 
10:A<;>=K,:K= 
-K:NEXT J: 
HEXT I 

40: IF V<0G0T0 5 


45:R=29R+K:R=P- 
INT R:I=INT 
(45R+22>:IF 
A<I)PPINT "J 
'ENLEVE " : I : 
A(I>=0:M=I: 
GOTO 180 

47: GOTO 45 

50: INPUT "Q'EHL 
EVES TIJ:"!I: 
IF a<22) + (I 
,66 .'GOTO 50 

57: IF A<D>=0 
GOTO 50 

60IA<I)«0>M-I 

65:T=0:F0R 1=1 
TO 4:J=M+ft'I 
> 

70: IF (J<22)+<J 
>66/+'.I/10- 
IHT <J/10>». 
1)+<J 10-Il.r 
<J/10)=.7> 
LET T=T+l:ftr 



I+4>=-2:G0T0 

150 
SO: IF Ar.IXOLET 

T=T+l:A<I+4> 

=-2: GOTO 150 
90:P=0:F0R K=l 

TO 4:L=J+A<K 

) 
95: IF <L<22)+<;L 

>66)+<L/10- 

INT <L/-I0>». 

l)+<LxlO-INT 

(L 10> = .7'. 

LET P=P+l: 

GOTO 140 
100: IF ft(L>>=0 

LET P=P+l: 

GOTO 140 
110:0=0:F0R 0=1 

TO 4:N=L+h(0 

> 
115: IF (N<22>+<N 

>66)+<N^10- 

INT 'II 10 ■ = . 

1>+<N.'10-INT 

(•N/10) = .7i 

LET 0=0+ t: 

GOTO 130 
120:0=0+<H<N)=-1 

) 

i3o:ic::t qsif o= 

3LET A<I+4>= 
-1 

140: HEXT I': IF A' 



I+4>=-lG0T0 
ISO 

145:A(I+4)=E3*'P 
=4)+2KP=3)+ 
rp=2> 

150: NEXT I: IF T= 
4PRINT "TU A 
S CACHE" :EHD 

160:,I=-4:F0R 1=5 
TO 8i IF hiIj 
-JLET J=A<I) 
:K«M+fl<I-4> 

165:M(D=n:lli::i 

I 

170: PF'IIIT "JE BO 
UOE "(Kill ' 
=E3PRINT "ET 

JE GilCHt": 
END 

175:A<M>=liA<l ■= 

0:11=1', 
ISO: IHPUT "OUEL 

PI0N:":i.: IF 

■I 22> + <l 66 

i+<ftBS fL-M> 

I- BS i 

L-M>~ 1 ".HI" 

180 
200: IF A. I • OLEI 

,,. i i 0:A<M) 

- 1 : M=l . : i TO 
65 
.: 10: GOTO ISO ■ 
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DRAGGY 



DRAGGY est un baby computer: fits du DRAGON 32 

et arriere petit-fils de PAC MAN. 

Des octets a manger, un labyrinthe vivant et pfein de 

mauvaises intentions, des super-dragees basic, voila 

1'essentiel du jeu qui se joue en 5 tableaux, le record 

actuel est de 42.010 points. 

Les regies du jeu sont dans le programme. 

Gerard DECKERS 



;=PNC" 12 •■*15*? 



20 DIHBV' 10 10 
50 Din t» 18.18 
40 DIM EF' 14. 14> 
59 DIM Pec 5,5- 
SO DIM F2'49- 10 i 

79 GOSU62940 

80 CLS3 

39 PPIHT'X'ESIPF.^-VOUi VOIR ■.■mT-E ICOPE RFFICHE EH PERHRNEHCE ? OE VDU! 

POSE CETTE QUESTION CRF L'flFFICHflGE PERTIBNEHT FRLkNTlT UN PEU L'RCTIQN ... 
RLORS I 'RFFICHRGE D0IT-1L ETPE PEFHRNENT ? wiTiori 

199 B»=INKEY» IF B«=""THEN 100 
110 IF 6« = "0" THEN 140 ELSE 120 
120 SR=1 
130 GOTO 140 
149 PCLS 
15? PM0OE3.-1 SCREEN!. 6 PCLS 

169 'c*dr-= du desain 

170 ORfllJ"BM10, 1O,C3.P2?0(M?0L230U138" 

188 for b=itoi8- sound i5«*cb*3),i -next 

1?0 [iR»J"6M7,7,r4.P237[/136L227UI36" 

200 RESTORE 
210 TB»T8+I 

229 FOR B=19TOIST£P-l SOiJND159*< B*3). 1 'NEXT 
239 GOTO320 



1268 0D=3 

1270 RETURN 

1230 '4u»tritt»* tableau 

1299 HHaRHD' 8 > 

1309 DD=5 

1310 IF T4«8THEHH5"HNtX; 
1320 GOSUB 1440 

1330 FOR B=1T0HM 

1340 H5=H5-l*R -HS*H6-U+D 

1359 IF K3< 1B0RH3>238 THEN 1368 ELSE 1370 

1360 H5=H3*L-P 

1370 IF H6<180RH6>138 THEN 1388 ELSE 1398 

1388 H6-H6HJ-D 

1399 PUT CH5*3*H6>-tH5+ie.H6+6).BV.P8Ef SOUNDlB^l 

1409 NEXTB 

1410 L»0 D=0 U=0 R=9 
14£0 T4-I 

1439 RETURN 

1459 OH H GOTO 1469. 1439 . 1399, 1520 

1469 U-18 0=0 L=0 P=0 

1470 G0TO1539 

1450 D"18 U"8'L«8 R=0 

1499 COTO1530 

1500 L"18 U=0 P=P D=0 

1519 C0T01539 

1520 R»10'U=0 0=0 L=9 
1330 RETURN 

1549 'cin4uien« fc*ble«j 
1559 HH*PND<7) 
1569 G0SU81328 



Le numero de la rentree 
sera en vente chez votre 
marchand habitue! le 31 
Aout. N ; 46. 8 francs. 




( .11*13. .13*11 ) 



VPSCT SOUHD180,1 



249 [>PRW-eM€0 180-C3.L.JD3P3P3L3" 

259 DPPW ■■BM64.180;r.3.F-.L5('6C'i" 

260 DPRW "Bn7ji.!?0,C3.R5D6L3U6" 

270 DWBi;:?. 180-C3.R5D3L3U3DSU3R1F3" 
299 C<RRU"BM34. 188;C3jL303R2L2D3R3" 
239 [-FRUT4" 
369 RETURN 
319 C'PRW "C4" 

329 'd?33in des octets 

330 0=20 t>PflW"C4" 
340 FOR B=1T022 
359 READ, fl 

369 PSEKftvCJ 

370 NEXT 

330 C=C*16 SOUNPC-5 

396 IF C.-130 THEN 419 

409 PESTOPE G0TO349 

419 PPRW "BM15, 15. P707L7IJ7"-PHINTU6. 13), 3, 4 

429 GETC15,15)-<22>22>,PB,G 

430 PUT C228.13W235.29>. PS. PSET 30UND19,2 
440 PUT ' 15.127W22. 134>,P8,PSET SOiJNC'19,2 
439 PUT '22?, 127 .-• 233-134 ..PE.PSET SOUND 1 . 2 
460 C'RTfl 20.39.40.59.60.70.59.90-199,110.129. 

139. 149.159. 169. 179. 196, 190, £00. 210 .220.230 

479 'd*£$tTi labyrinths 

489 H3=PN[" 22 ■»10+5 H4=PH[,' 12 >T 1 0+5 
459 LINE 'H3*3,H4)-'H3*3,H4+6>.P?ET.8F 
599 GETC H3*3 ■ H4 t-' H3+I8, H4*6 >, BY . G 
519 GOSUB530 

529 G0T0769 

539 OH TB GOSUB 1160.1208.1249,1288,1348 

540 H=PN(.'4 > 
550 FOR B-1T0 HH 

560 OH H GOTO 578,598,618,638 
379 i.i=i9 D*8 L=0 P=9 

530 G0T0648 

530 0=18 U=9 L=0 P=0 

609 GOT0649 

619 L=19U=9 D-0 P=0 

629 G0T0649 

630 c.= i« i.i=0 [,=61=6 

649 H3=H3-L*P H4 = H4-U+C' 

650 I c H3-10ORH3 239 THEN 669 ELSE 679 
660 H3-H3+L-R 

■=.70 IF H4O0OFH4 >138 THEN 680 ELSE 690 

699 H4=H4+I>p 

650 PUTCH3+3,H4>-<H3+18.H4+6>.BY.PSET 80UND1.1 

TOO IF H3=H1*1RM['H4=H2+2THFN G0SUB2688 

710 IF H5=H1*1 RNt'H».-H6 + 2THt;n G0SIJB2600 

r-f ir H7-m + l AMI. H8=H2+2 THEN G0SU82688 

"30 nE'-t B 

749 t =9 P=8 U»0 R=0 

759 &ETIJPII 

r-;o d*a*in et PtaceMent draOW 

77>:- CIRCLE' 20, 160.-. 6-2 

730 PRINK 2! ■ 1 99V?, 2 

798 CIRCLE CI* IS7V1 J CIRCLE<22. 157 V 1 3 

000 r [RCi c r20 |69 ■•■ !, 1..1..4 

■:i>- Q i ' 14 153 '-■ ■■■' 164 ..o-c 
-n if i m=h tufn PUT (34.153>-C47,i64>,0,PSET 
■■■ IF CH-8 THEN Pi.n C54,I53>-C67,164),D,PSET 

040 HI*PHC^22'f't0*4 h,v=Pm[" 12'tl9*3 

S50 C=PR0INT'H1*5.K2*5. IF C«4THEN848 

S60 PIJKHl.HS.-CHl*!? -H2*ll •C'.PSET 

370 FOP B-I TO do 

899 TIMEP=9 

g?9 RB-IHKEY* 

990 IF flt=""*Np ni-lEF- .:50THEN3?9 

910 IF RtOCHRCC 5 ,fi|j[ ft»<>CHP«' 9 JFtHP R*' CHP»'. 1 

0WNO FWOCHRI '94 i RNWW< »CHRM13) THEN920 

9Z8 IF riHER>258 then 1139 

939 IF FH^CHPS' 13 'THEN GOSUB 1^99 ELSE GOTO °60 

949 IF TB-4 TMEtl 968 

959 GOTO 290 

960 GET '230. ISO -' 244. 194 >-EF .G 

978 PUT'H! .H2-1 )-<Hl* 13-M2*U ),EF,PSET 
99P IF M-CHR1C .THEN Hl=Hl-!9 

999 IF M-CHR»X9)THEH hi-=hi*10 

1000 IF ft»=CHP*' 19 ■THEN H2=-H2*10 
1910 IF R»«CHRK94)THEN H2=H2-10 

1029 IF Hi'10 THEM Hi-Hl*10 

1030 IF HJ>230 THEN H1=H1-10 
1949 IF H2-.19 THEM H2 = H.-*m 
1059 IF H2 130 THEN H2-H2-10 
1969 C»PP01HT'H1*6.H2*6; 
1079 IF c=4 THEN GOSUB 2600 
1868 IF C='i THEN GOSUB 2749 
1999 G0S06 1590 

1169 PUT<H1,H2>-CHI+13,H2+11 ■ D.P8ET 90UH0 1 
1116 IF C'R^i THEN C0SUB2688 

1129 HE " 
1138 GO'-.' I 
1149 GQT0S60 

1130 G0T01139 



1579 IF T5=0 THENH?=PNQf 22)*10+5 H8=PN0C 12>*19*5 

1530 GOSUB1709 

1530 FOP B=1T0HH 

1699 H7=H7-L*P H3=H3~U*C 

1619 IF H7<180RH7>238 thfm 1620 ELSE 1630 

1628 H?=H7+L-R 

1^39 IF H8< 190PH3M39 THEN 1649 ELSE 1659 

1640 H3=H3*U-[> 

1630 PUTC.H7*3,H3>-^H7+10,H3*6l.B''',PSET^SOUNt>39.1 

1669 NEXTB 

1679 L=0'O=0 -U=8 R=8 

1680 T5=l 
169R RETURN 



13.J2*11 >.P,PSET 



H»r I 



1179 HH-RNO': 



11 



i r.f. ; 



1199 REIUPN 
1280 'dtuxi«n« i 
1210 HH '■■■' ■ 
1228 OD-5 
1230 PETUPN 
1249 >/oid>* 
1238 HH-CHO' I", ■ 



1790 ' 

1719 m H GOTO 1720.1740,1769.1788 

1720 U=10'L=O P=0D=8 
1739 GOTO 1799 
1749 D=10 : 'J=0 L=9 R=9 
]7 c .n GOTQ1790 
\7f.n L=19 R=0 [)=9 U=9 
1770 G0T01798 
1730 P=19 U=6 L=9 ; 0=9 
1798 RETURN 

1300 IF TB>4 THEN 1880 
1319 G0SUB2129 
1329 SOUND 139.5 
1339 PRINT '48, 48). 2, 3 

1349 SOUND 120.5 
1359 PRINK 49. n >, 1.3 

1369 Put CH1.H2-1>-<H1+13.H2*-U>.EF,PSET 
1379 Hl=9 H2*0 
1880 RETURN 
1339 CC=PP0INTCHl*6,H2+7> 

1909 'IF CO! THEN 6590 

1910 ON TB GOTO 1929 ■ 1 360 ■ 2099. 2840 . 2839 
1920 IF 00=4 THEN SC=SG*19 

1939 IF CC=3 THEN SC=SC*25 

1940 IF Sfl=9 THEN GOSUB 2129 

1350 RETURN 

1969 IF CC=4 THEN SC=SC*20 
1979 IF CC-3 THEN SOSC+58 
1539 IF SR=9 THEN GOSUB 2128 

1999 RETURN 

2000 IF CC=4 THEN SC=SC+30 
2010 IF CC<3 THEN SC=SC+73 
2920 IF Sfl-8 THEN GOSUB 2128 
3030 RETURN 
2940 IF CC=4 THEII SOSC+S8 

2059 IF CC=3 THEN ?C=SC*190 

2060 IF SR =0 THEN GOSUB 2120 
2679 FETUPN 

2939 IF CT=4 THEN SC=SC*75 
2999 IF r.c=3 THEN SC=SC*260 
2190 IF SR=9 THEN GOSUB 2120 
2119 RETURN 

2129 GOSUB240 

2130 GET c 185. 135 J- 225,195''. F2,G 
2140 PUT M02139''-M42.199:'.F2.PSET 
2158 ■ ^-" T ^T' ■' 

£170 OH lOSUfi ' 39C 3419. 2439.2450.2479.2439.2519.2539.2550.2370 

2130 DFfil! "EM103.130,C3"*Z» 

21^0 0=VRI/HIDS(XX«.3.I >> 

2209 0=0*1 

2219 ON GOSU82378. 2399.2419.2439.2459.2479.2499,2519,2539,2330 

3320 PPHU ■'EM118.199,C3"*2» 

2230 IF 3C'=99 THEN 2339 

2249 P=VRL' M I IS' XX* .4.1)) 

2250 0=0+1 

2260 ON GOSUB 3570. 2390.2419 . 2439.2459 •2478,2490.2510,2538,2338 
2279 ['RFiWBM 1 28 - 1 81"' ■ C3"*Z* 
2288 IF SC<"999 *HEN 2330 
2298 0-VRL(l1IDt<»»,5,t» 
2300 0=0*1 

2310 ON GO-.UB .'-570.2390. 2410. 2439, 3459. 2479. 2450, 2519. 2330. 2530j 
3320 DPRtr'Pr-ti 38. !89:C3"*Z* 
2330 IF SC<5999 THEN 2339 

2349 D=VRL< HIT'*' >:X»,6, 1 ■>) 

2350 0-0*1 

2360 ON GOSUB 2570 . 2390- 2410, 2420. 2450. 2470,24^0, 2519. 2330, 2339 
2379 PPnu , 'F:M143.1*0.C3' , *ZS 
23R0 RETURN 
2398 Zt«"D6lJ6G3" 
2400 GOTO2330 
2419 ZS="L501UlP5r>3l 5r,3P'5" 
2429 GOTO2330 
2436 Z*=' , L5R5r'3L5R503L5" 
2449 G0T02368 
?459 r.*="f3L5U3C'3R3C3" 
2468 G0T02588 
2470 Z«="t>lUH. c .r'3P5t'3L5" 
2489 G0T02588 
Z 490 rr«'="r.iUlL'^'6P5U'*!-5" 
2590 G0T02589 
2510 Z*""L5R5D3L 2R4L2P3" 
2320 G0T02588 
y.-ifi ^« = "L'.C'3P5""T-i "'I ■P'v 
2540 GOT02588 
;'■'■« »- u L303P3U306L3UI ' 
2568 GOTO2580 
. ■ T -*-"i J06P3U6" 

; ,■,:!-, PETURH 

■■•', m RETURN 
2600 SOUNDZ53. 10 
. 10 ■ H"CH*I 

62fl :r 'ii-i t MF(l rMT -• > .\. i5d .-. ,i.i v: < ■ !-t 
M ... ti ■■■<■ -... ■• < in ■ .i is I ■ .-.i;-. ifu ■ ff fmh 

-,u- 'i ' H ■ I 'i' El I 7 

..".. ■ i ■ t 14,13 '27.164 I i i | 
- ■' I" ' 

670 I ORf I ro20O8 NEXT 

, |0 ini i ■] rn 2888 HI ■' 

, -.,« i i 

.-fin i i rdi-'. ■■ ■ ■■•■ i-'- RIHfll F 1 -'' ' ■ " POINTS" 

■ ■ < |(JT"« ■ PE tl - flPRUYEZ SUP I ■■ ■ I EMEH1 

.'... in ""I t If \)t CHRK32*THEH C0T018 ELSE •',''■''■'■■ 

. .■ M Ull-tl 

54 



2749 TI«EP=0 

2750 PUT 'HI ,H2 -'Hl*13 H2*M -.[•■PRESET 
2766 fop B-IT03 S0UH028C.] NEXT 
Z778 GOS'JBlBSfl 
27?0 R»«IHKEY* IF a*r. ■■ THEN 

2790 IF fl*' thp*- 8 'RNfPf CHR* ? flHWW CHW I - * 

2800 PUT CH1,H2)-CHI+13,H2+I1 I EF PSE1 
i310 IF F»»CHR« 8 >THEH H1=H1-18 
2620 IF H*»CHR*'?) THEN HUH!*1R 

2839 IF R« = rHC*.' 10 THEN H2aH?*18 

2840 !F R»-CHR»<94) thfii H2>H2-I8 

2359 IF HI ■■10 THEN Hl-Hl-16 

2868 IF Hl>238 then hi=hi-18 

2376 IF H2- 18 thfii H2-H2+18 

2880 IF H2M30 THEM H2=H>-10 

2890 GOSUB 1390 

2389 PUKH1.H2 -'H1*13.H2-1' ■ D.PRESE 

2919 SOUND 208, ' 

2920 IF TIME=-:590 THEN 27S0 
:-??'■' RETURN 

g^g ^fi66E3?l^sif%Hl 9 PCLS 

2366 CIRCLE(Z8,168 ■ -" I 

2370 PRINT ■ 21 . |39>.J 3 

29S0 CIRCLE' 13-157 ..1.3 CIRCLE'22. 137), 1-3 

2990 CIRCLE* 28, 160 ■ -6 ■ 1- 1 ■ . 1 . .4 

3000 Jl=14 J2=15? 

3019 GET ' ii . J2 '-■ ,n + 13. J2*l 1 >.C>.G SO«JHOJ80,1 

3028 GET M70. 220"!-' 133-231 '.EF.G 

3030 FOP B=l TO 5 

3040 Fnfr 38=1 TO 75 HEXTS8 

3838 PUT CJ1.J2 V Jl*13 J2*I1 :-,EF F8ET 

3060 J.?=J2-15 

3979 PUT 4J1.J2W Jl*I3.J2*m.0-PSET SOUMP 188-1 

3939 NEXT B 

3090 FOP 8=1 TO 4 

3]00 FOP B6=! TO 75 NEXTBB 

3110 PUT C ,U . J2 *>-<■ _M+13, .'2*11 VEF.FSET 

3120 Jl-Jl+15 

3130 put ' Jl- J2 

3140 NEXT B 

3150 FOP B=1T05 

3160 Jl-Jl+15 

3176 PUT' Jl- J2> 

3130 NEXT B 

3190 PLRY , 'V31O4L35CECEGFE[-rEr E t:=EC'L10C" 

3209 FOP BB=1T075 NEXTBB 

3210 LINE C150.69>-C 153.75>-PSET.gF 80UNP1 
3220 K1»130<K2*69 

3239 GET c KI,K2)-CK1*9,K2*6),6Y.G 

3240 FOP B= 1T06 
3239 FOP BB-1 TO 75 NEXT 8B 
3268 K1*K1-13 

3276 PUT CKl.t;2)-'-K-l*3.K2+6 
3239 NEXT B 
3299 FOP B=l TO 3 
3399 FOP B8=1T075 NEXTBB 
3310 K2=X2+10 
3329 PUT' Kl ,K2 M K 1 *s ■ K2+6 ) 

3339 NEXT B 

3340 FOP 3=1 T07 
3350 FOP 8B=1T075 NEXTBB 
3360 Kl=ta*I5 

3370 PUT<K1,K2>-<K1+8,IC2+6>.BY,PSCT'S0UN01»1 
3380 NEXTB 
3399 FOP 8=lT03 
9400 FOR BB=1T675 NEXTBB 
3416 K2=K2-I8 

3420 PUT<Kl,K2)-<Kl+8,Ki(+6VBY.PSET SOUND LI 
3-130 NEXT B 

7440 FOP B=1T075 HEXTB 

3456 PLRV"V^iniL30CECEGFEL.CECEGFEt'L10C" 
3466 FOP B»IT075-NEXTB 
3470 fqr B=1T06 
3436 FOP 88=1 TO 36 NEXTFF 

3490 PUT<JI.J2>-< Jl + 13. ,13*11 '.n. PRESET S0UND288, 1 
3590 Jl-Jl-13 
3519 NEXT B 

3529 FOR B=1T075 NFXTF 

3539 PLflVV3105L35CECEGF0ECECEGFD£LieC - 

3540 fop F.= \ TO inn NEXT B 

3530 Jl- Jl *-15 

3560 PUK J1..J2W Jt + 13. J2*I1 >.EF.PSET 
3570 DRRU , 'BM74,78;C3P10r , l?L10P2U13" PLflY"V3104L6Fl" 
3580 M=J1*15 

3599 PUT CJI,J2)-(J1+I3, I2+11>,EF.PSET 
"i^OO rtpflW • , PM3 q 73.i~3.Finn6l inu^l?U7P?F7" R' RY'VTindi >:G" 

3619 U=il*15 

3620 put-- .1! ,J2>-< Jl + n, J2*ll '■.EF.PSET 

363B DRRU "Bni84,78;C4;R1806LI8U6D13U7RI8D7" PLflY"V3l04L6F 

3640 J1-JU15 

3639 PUKJl. 12 ■■»— ' .11*1?. J.3+11 '.EF.P^-FT 

3668 WWW -eMii9.73:r-'.Pioi inni -iPliinn ^" PLRV"V3104L« 

3679 ,M*il + 15 

3630 PUT' .n-_'2>-' Jl + 13. 12+11 '-EF.PSET 

3690 ORAM ■■PM134.78.C2.P1OI.10C>13RI9U7L6" RLHVV3104L6D 



■ EN2738 



'.PSET SOUND] - 



■.PSET SOUND! ■ I 




3788 II" 11+13 

3710 PUT' Jl .J. -■ Jl-13. 12*11 .-EF P'-.FT 

3720 PRAM "Bm49,78 C4 D6P18U6D6L307" PLfiY"V3I04L«C" 

3730 LINE (69,94V 162-941 P<tET.fi no. 3104L13CCCL4C" 

3740 FOP B^l in [088 NEXTB 

3750 plry "V31Q4I 18C0EFGflB05L4C" 

3760 G0SUP3789 

3776 PETUPN 

37P0 ■r*3lftc .-j,. ( |«u 

3798 CL84'PRINT"DESIRE I-VOUS VOIR IV. '■>•'-> f- 

3800 RR*=nn-rv« if Rflt» i "'THEN 888 

3319 IF RR4' ^"n» Turn RETURN 

3020 CLS7 PR I NT" DP Wl ' ■' UH fOi-v COHPUTFR CHRRGE PR* '"" ! i r " f " CDRRBOH ■■. ■ 

,,r PECUPEREP DES OCTET* ORNS UHE HEI101R6 ECRflN" 

3838 PRIHT812e,"HniS L'OOIEUX LflBYS ESSRYEP Dl I i" EHRECHER FH 

GEHERRNT ^ r '-" " IIC " I I - ; '■'■'■■■'' i">- '1 1S0LER fl R '"" ' tRI LI VRI DRflBCi 

3340 PPInti*. :■■■ 'HEUPEU9EMEM1 DRBJGGY DISPOSE DE VITWIIHES BRSIC REPRRTJES RUX 
8URTRE COIHS DE t'ECPRN ■' ■ - .' i i-ri t nf hi nn- ■:. pfhdeni DRflGGV [NVUt.NCRfl 

BLE PEHDRNT DUEI ''■ ECOHDI RPPUYI 5UR 9*tv POUR LR SUITE* 

?P50 RRt»lNKEVI IF RPW-'-THEN B58 

31 , ,, ri- ftM >CHR* I? >THEH ■ 

3078 CL83-PRIN1 VE.' k !■' >v.r, , i"u mTIlISRHT LI FLECHE5 ' TIJUSEUH ) 

VOUS ROURPF"' 0"''-l <••■ =fp mm ihiumm ■ m|- t RPPUYRNI SUR i '■ 

3888 PRIMTS1 H VOU H'ETE' PR SOUS L'EPFETD'UHI VITRMIHI BASH l H 

Tinr CONT i' i i i i ■ ii- Gl ' '" CI ■ DNTflCT '■'■'" l ■ ! » Mil I FRTR1 

II . ,, ■ i.. i i i ftij i in ■ m MPPICUI II Vfi I km SRHT" 

-, fl u<\ PRINT8 ■ ' 'I VIE' 

)*00 fPiiir,..|.i "mimi.i ■ up *.,i**r rr GOOD IMii" 

SI0 Kic»-|NKPY« IF KM' 'CNP8' 13»THEH 3910 ■ 

3928 RI TURN 



DRAGON 



PYRAMIDE 



Non, ga n'est pas un jeu de role se deroulant en 

Egypte, ni memeuneTOUR DE HANOI habilement dis- 

simulee! 

Ce jeu est un jeu de iettres qui fera appel a vos 

connaissances en vocabulaire. Vous pouvez allonger 

ou reduire selon votre desir la liste de DATA. 

Genevieve DIERS 



O 




il'VSr^'iSiliii ^^p'^ e,,elle w "wc.wwe.ftiw w son.bruite,p«t 

1329 DRTR DE-POIS^n ROUGe', lOE.RSSISIHHCE.ftlDE.MfiPIMIFERE N FerHNiN.DfllME.PLflis 
nHTE.BflDIHE.fWIS ETOILE BflOIRNE, fcnimw.VMiNt.n.Ri', 

1338 DATR Rfi-SURFRCE,WE,VICl£,TBRE-PL»l,OWTE.TIPER DE? TRAITS. TRACER . GRAND V*S 

JIScOHTRESXROKea " E FLE '-' R ' p ' : ' iE - p ' JI fl CJJ CORPS,C0RSE,PflRTK UN FUSIL, CROSSE. 
^S^oPM! PJ^^ C 'K««E,TROC.FWTI E D UN NK.WM OPPOSE-C 
Eif^^SlSTReysomiER? 1 "'" 16 ' 80 '** " " PCEf,r ' MI?E - TPW8l -ES-EWIS,CRC>fiVRES.rWI 



I DANS LE PR0GAI1ME 



DE DEUX LETTPE3 AU PREMIER ETACE 






APRES MUX ESSAIS INFRUCTUEUX ET UN PO 
PERBANENCE" 



70 REM EXPLICATIONS 
89 REM PYRAMIOE 
30 DIM K 190>.D*C139) 
183 CR=0:E=0;CJ-8 

119 CLS 

120 PRINTI?76,"Parariid=" 
130 PRINTei34,-QUEtOUE8 EXPLICATIONS?" 
140 PRINT822?."TRPEZ--i?" pmjP QUI " . 
139 PPlNTe259. "TfiPE2"N" POUR HON" 
160 P*-INKEY*IF P«-"" THEN 160 

179 IF P*="N" THEN 470 

180 CLS 
130 PRINT-PRINT" IL VOUS EST PROPOSE UN MOT 

DE LR PYPRMIDE." 

200 PRINT" ijmE DEFINITION SANSCRIT ft'J DERNIER ETRCE POUR VOUS AIDER fl TROUVE 
R UN HOT DE TROIS LETTRES EN UT1LI3AUT ■■ " 'Kuuvt 

210 PRINT" les Iettres du mot Precedent" 
220 PRINT 

230 PRINT" plus une" 

240 PRINT-PR1NT-TRPE2 "T" POUR TOURNEP LR PAGE" 
239 P*=INXEY* 

269 IF P«o»- THEN 253 

270 CLS 

288 PRINT" A CHflQUE ETAGE LE MOT GRflNDIT en ttfcili* 

ttnrs du wot frecpderit" 

233 PRINT" LORSQUE LE HOT R RTTEIHT SEPTLETTRES IL VOUS EST PROPOSE JJNE AUTRE 

300 PRINT" LR REPONSE VOUS EST FQURN1E 

INT VOUS EST DECOMPTE." 

310 PRINT" VOTRE SCOPE EST RFFICHE EN 

320 PRINT" VOICI UNE SERIE DE MOTS" 

330 PRINT-TflPEZ "T" ROUP TOURNEP LR PAGE" 

348 R**INKEY* 
350 IF P*=""THEN 340 

369 U=0 -E-l GOSUB 1053 

379 PRINTe451."vou£"C"HR*'- 123 >"r e9a>-'Jez"CHR*< 128 >"■ 

380 READ D* 

390 PPINT«fl.D*,U», FOR I=-l TO 1080NEXT I 
408 IF R=362 THEN E=0 RESTORE GOTO 110 
410 U-U+l U*=STRING*(U,143> 
420 RERD D* 

430 PRINTr-418,STRING$^23,12S>. 
440 PRINT2418.D*, 'FOR 1 = 1 TO 1990 NEXT I 
450 H=fl*63 GOTO 380 
460 STOP 

473 PEM DEBUT DU JEU 
439 REM CHOIX ALEflTOIRE ET UNIQUE 
499 RESTORE 
393 E-E+l 
510 S<E>*RND<87) 
520 IF E=l THEN 363 
530 FOP 1-1 TO E-l 

349 IF SU>=3<E> THEN 310 

350 NEXT I 
560 G=3CEJ 

370 C-G*I2 

390 U=9 U*=3TRINi;*<U,14.> 
530 GOStffl 1050 
690 FOR 1=9 TO G 
610 READ D» 
620 NEXT 1 

639 P*|NT«4!ie.STRING*<29. 1 23 >• STRINGS 1-133*32); 
649 PRINTER, 0*; US; 
630 GOSUB 770 

660 IF fl=?62 THEN FOR 1=1 TO 1599-NEXT I: GOTO 490 
670 C0=9 
688 PERD D* 
639 PS»D* 
703 PERD D« 
719 CR=CP+1 Cj=i;j+i 
729 U-U+l 'U8-STRIHGKU.I43) 
739 PRINTi'418-R*. 
743 INPUT P* 

750 IF R*=D* THEN fl=H»63 GOT0630 
769 GOTO 389 
779 REM SCORE 
783 PI=INT'CJ'I90> 
738 PS-INK C CJ-P1 * 190 >/I8> 
598 P3=INT'C.'-':PU.190*P2tl0>> 
813 P4=INT<CR/188> 

829 P5=INT<'CP~P4I180>'-10> 

830 P6 = INKCP-'P4*199*P5*J0 >.■ 

849 Pl=Fi+48 ■P2=P2+4R P3-P3+49 P4=P4*48 P5-P5+48'P6^6^ 

850 POKE1049.PI =POKEt05e,P2 ; POi:E1051.P3 
669 F0KE1113.P4 P0KE1 114. P5 POKE 1115- P6 
878 RETURN 
830 REM NON 
899 CD-CD+] 
980 PRINTKfi. "HON") 
913 F0PJ=1 TO 5 SOUND J, 1 
928 fop 1=128 TO 143 
339 PRINT«33,STRING«3.1*32>J 
948 PRINTS 65- STRING*' 1 . 1 + 16 J; 
?59 PRINT? 63. STRING**! 1,1 + 16); 
368 PRINT(» 37. STRINWC3, 1+16>) 
370 NEXT I, J 

930 PRINTC^?. STRING*' 5, 128.. 
?90 FPINTl?37. STRING*^, 1231; 
1990 PPINr»65-STPInr;*'5. 128 ■■• 

1919 PPIIITr.418.STP IMC*' 23. 123 ■■STRING*'. I, 133*32). 
1020 IF CD=2 THEN A=fl+6i CJ=CJ-1 GOSUB 778 
1839 IF CD=>1 THEN 730 
1049 G0T0639 
1930 REM JES8IN 
1969 OCS0 

107^ w=4 >;i=24 X2=39 '.=9 
1930 FOP I=X1 TO ¥2 
1930 SET' I.7.3)NEXT I 

1109 IF Y«38 THEN 1180 

1110 FOP I=y TO w 
1128 SET'X1,I,3 > SET- VZ, 1,3) 
1138 NEXT I 

1148 IF U=38 THEN Y»M GOTO 1330 
1150 IF X2=63 THEN U=W«2 G0T01939 
1169 M-M+4<Y-V*4 Xl-Kl-4 X2-/.2+4. 
1)70 G0TO1939 

1130 P0KEiO81.61 PO^E1082.61 POKE1033.61 
1198 R=47 
1299 PETUPN 

1219 DRTR LR.VRLLEE.VRL.MIT ERS. V'ELR. INGURGlTE.flVfiLE.DE' 
-PLRNTE ODOPRNTE.LRVRMDE. 

1220 DR1H ME.PRPTIE DU PHIN.I11E. TEICNE.Ml TE-PET ] T CHRT , MINE I . VI VE DELUPEE - MRTINE 
-ETOFFE.EfHMINE, 

1239 DHTR 51 ,FLEUR. LlS.REGLEi.LOI:. ■ V HVOPI-.E", .L'Jl IS, TISSUS. TOILES-RSTRES.ETOILES, 

1249 DRTR LE. UNITE MONETRIPE 6ULGRPE . LEV. PEDSESSE ■ L EVE . PORUE . VELUE . CHRMPIONON fl 

'^OHV'.trE LEVUPE . ELE'.'E DES RNIMRUX.ELEVEUR. 

1259 DRTR PE.SURFHtfc-.PPFPOISVJH.PRIHbPRMEP PHIPt AHHPPijF.HPR[FE,PFLRT[F RUX TE 

PPES.RGPRIPE. 

1269 DRTR TU,OBJeCTIF-B«JT.T'JYRU. TUBE -t\H 1 DFHuRS-feOUTE. TERRE DE EPUYEPE.TOURBE. TR 

1LLEP LR VIGNE.flSOUTER, 

1279 DRTR CR. BRUIT SEC ■ TRL .FELIN.CHRf . CUTE . CHRNT .POISSON, TRNr HE • PLflNTE . RCRNTHE, 

1289 DRTR GE.PEPIODE.RGE .COLEPE ,RRGE ■ SUPVEILLRNT .r;flR[,E . i ijPE .DRRfiUE .RTTRieUER.RDJ 




Le numero de la rentree 
sera en vente chez votre 
marchand habituel te 31 
Aout, W 46, 8 francs. 



:endit rrpidement.devrlr 



1490 DfiTfl LE,eiERE,fiLE,ORCflNE DU VOL, fl I LE,SOUPIJ-, AGILE. TERRE CUUE-RPGILE-FRIELE 

■ FRRGILE - 

Hip ORTFi PR-SUPFRCE.RPE.GPOGNE.RRLE-NftNflN,RECflt,neflTTRE C€S NOIX.Gftt.'LEP. PETITE 

1429 DRTR DE,POISSQN.IDE-PLI-RIC'E PEF-RS. DINER. FRIPON.CREOIN.SURVEIUaiNT.CRROIEN, 

1439 DRTR Tfl,RONGEiJR-RfiT.VtSCEPE.-PRTE.EHPREINTE.TRftrF..L'M •'■hmPTF.me'=-ijc-E D" 7 tirRFP 
CE, HECTARE, 

1440 DRTR SE. ORIENT. EST, SPISON? . ETES -"ESORE DE VOLUME .STERE, 01 SERU FRLMIPEDE.STE 
PNE.t-E L OUEST MOT fiNGLRIS. WES TERN. 

U50 DATA RN.ONOULE-RtlE.RVRNCE SUP L EflU.NBGE.TRnVfllL PEN18LE,BflCNE TPENF'E ORNS 
L Efi>J,BflIGNE.R.EUR.8EG0NIR, 

1469 DRTR CR, RPME . RPi; . ENCi.O ■; .. PRPi . rriftt-inENT . >. RPPL .COCHOll SRiA'ftGE .PECRRI .DETERMIN 
fl.PRECISR. 

1470 DRTR LE.PfiPEIL.TEL.eOUTIi.«.iE l.»E BOUCHER, ETAL .MEUELE. TRBLE . CRFRRt- . ErLATTE .fOV: 
SON D EftU DOUCE. RELETTE. 

1430 DRTR LE, TERRE EHTOUREE ERJJ. RE - fECRETE PAP' LF FOIF-BILE-PETITE BOULE-BILL 
E.BRPRE METRLLR-nc.cijEIJ E INSECTE -fiBE ILLE. 

1499 DRTR I.I MEUBLE.L1T SUPERPOSE DES FOISSONS, LITE • TISSU. TORE. COULEUP. VIOLET. B 
RUTflL. VIOLENT, 

1500 DRTR NI.ALCOOL.GIN.QURLITE DU FEU. IGME -TRRIT -LIGNE- VEND DU LINCE-LINCER-SflR 
RE METALLIOUE.TPINGLE. 

1510 DRTR CI,PLRIHTE.CPI.ENi"RiJSTIOUE.CIPE.MENTI0NNER.ClTEP.PRON0NCER DES MOT^-DJ 
CTEP. JUGEMENT. VERDICT, 

1520 DATA EV-ESFRCE I'E TEMPS- VIE. BOPD (■ UN FLEUVE- RIVE. VOLUME LIVRE PENOULE-REVE 
[L.COULEUP.VERNEIl 

1530 DATA PF.TPOIS FOIS.TER FO'-'ER HTPE Z [PEL INE . MRRTE, TI TPE D '.IN Fi'.T""hT CAI7PE-- 
UBTR'ICE PESRNTE.HflTIERE. 

1540 DR1R SE.R l.iil SES CROCHET -ESSE -APPETE CESSE .ePISEE-CRSSEE .PEPCHE ECHRS^E. 
1550 DRTR RE.OCEflN, HER. CHEF ARflBE-EMIP ABPASIF.EMERI.EtETER-ECIMEP.BRT DE MANIFF 
L EPEE.ESCPIME. 



1530 DATA NE.PROPULSEE.WJE NOnnE ARI.EUPS MUTE SOPTE DE POUGET , W.4.ET . EMRUTE • NUT | 

LE - ENCOL 1 " M^E . :-T IM'JLE . 

1590 DflTR RI,S ESCLRFFR, RIR-SEPAPR.TP1H, NEC- TRPIN. TIRE. TRAUIE-SOLr-'EPHlNETSMpIME 

1688 DATA RE,PPflIPIE.PRE,GENITEUR.PERE,0U6LI.FERTE-RLL0MER.RPETEP.PRIi:NEP.TREMPF 

1610 DflTR NE.PRDP^E. NET, SOUFFLE, VENT, CESSION. VEN1F .RFPR.E'-FNTR.E r.TRMINET , TRVEPNF 

1620 DRTR RI.COLEPE, IRE. PLUS NRUVRIS.RIRE.BOYRU, TRlFE.MRUVRr-. PIETPE -SCtROPT . TREP 

1630 DRTH RE. BPRMEPEE..SONGE.REVE. COULEUP EMERRUDE. VERTE .PROUE.ETRR'/E-LIEN.ENTPA 

1648 DRTR RH.ONGULE.RNE.FEMELLE DU CflNARD.CflW RFW>IMWPF rRNCE.PETn CRHTEPXRP 

WlBRS fi M RR -; Ifl ' P,:|fl '' l:0MTRflT fl LERTOIRE-PRRI,GR0UPE.PRRT!,EOiJIVRLENCE,PRRITE-BOUC 

1669 DflTR ON. BRUIT. SON. ATTENTION, S0II1. ANGLES- COINS. ROISSi-iNS.CiXIN^.MtlR DF EEPWfl 

ir-.n: ■ '.LulsON, 

1679 DRTR UT,ENLE'/E LR VIE -TiJE .BOITE ETUI .PARASI TE .TIf»JE .PETIT PIFU . PinnET .PRRRC 

rE=':sTin'.'E. typioije. 

1689 DflTR EV. EXISTENCE-VIE. TOUPNE.VIPE.CONTEltTE-PRVIE, PETIT PLRT -PRVIER.PFTITS r 
RILLOUX..GRRVIEP. 

1698 DflTR HO, UNITE DE RESISTRWCE.0«N,FOYER,H0HE,LftlO,MOCHE,MftNeUER D'OUVRNGE.CHO 

NERiCOUVERTE DE METAL .CHPOMEE. 

1790 DflTR PR. RONGEUR, PflT, FOYER, ATPE.F.EPr,EP.PATPE.OUTR DE F0RRGE,TR£PAN,FILIflT10 

N.PARENTE, 

1710 DRTR LE. BEAU. BEL. SUC DIGESTIF, BILE. SRNS ATTRTHE .LIBRE .LUIT.PPILLE .FrPITitRE ■ 

BRRILLE- 

1720 DATA SE. RAPHE DE TEND IS . SET - EXISTE2, ETES . MALRD I E , PESTE. VlF.PRESTE.flCTUEL.P 

RESENT , 

1739 DATA OS , MOTE . SOL . Fu ISSijtl . S0[> . MULECULES ■ OOL ES . i:ni.JMIIJ..ti..-,E-;. ■ HOiiLES . FPODUI T fll 
IMENTAIP.E.SEMOULE. 

1740 DATR ON.POSSESSIF. TON, EVAL UATION. NOTE. POSJESSIF .NOTPF-FAIT ■.■'m 1 c- rtnurPf . F1PF 
DENATURE, MONSTRE, 

1750 DATA LE.PflRC0iJPUE,L'JE.VANTE,LOL€.C0HUE.FOULE.IMPPECISES.FI..lUES.DEPLACFMEHT 
D'fllR. SOUFFLE, 

1769 DRTft ET.PETIPE.OTECHOISlT.OPTE.CHPETIEN.COPTE,i;ftLCUL.COnPtEPMt[.v .i;miPOTE. 

1770 DflTR IF. MET Sfl CCJNFIRNCE,FIE,DURCI,FIGE.FRUIT .F 1 CUE VISR'.F F I r,r jt ( [ :-> h I p ! k 
REFUGIE. 

1780 DRTR HI, AMIE.MIE. SIGNAL FIXE . MIRE . GRIN S' iPPLEMENTRIPE ■ PRIME . ETRT.EHP1RI "j 

OLETE.PERIHEE, 

1739 DRTfl RE. BPRHE, REE, GUIDE, RENE- flLLOCHTION, RENTE, NOUVEH! I. RFCENT .flvEf. -CENTPEF - 

1809 DATA RI.COLEPE.IPE.HID.AIPE.COUPLE.PRlPE.Hr-FP.PAPIFP.i ArHE TIF. PI "PA I PI- 

1310 DRTR Tfl.MANIEPE APT.I.OUPE .PRTE.BEPGEP.F'AIRE -CPClCHEI ■PflTEPE .ENT'UITE -PLRTPEE ■ 

1820 DRTfl EH.CPI DU CHRPRETIEP.HOE. TETE DE SANCLIEP.HORE.ESIAIM.Pi.iih- .i I i hi - . i m 

CHE . ALLONGER . COUCHER ■ 

1830 DATR PI.COLERE. IPE,CONTESTEP-NJEP S-frl'/FPRIMF - PR INF . ■ NANrFiiSF VKPN1F .milTPfll 

RE. INVERSE, 

1340 DflTR PE-COLEPE. IRE OPGANE .RE IN.PEPUL-1F. PEN IF . N.h-iFFh- I inil.HEPNIb .PASSE L'HIV 

ER fl L'ftBRI.HIVERNE. 

1359 DRTR OCPOCHEP - POT ■ DUP I I.LONS . OCRS - SO fAN' E . i ni.ips . MA mP 1 TF -CHOW I - ■ F-H Ipf HI IS ■ B 

OCHUS ■ 

i:?60 DATA Rfl f VfiLLEE.RIfi,SEPRPn,TRIfl,flSSECHER,TRRlR,TIRER LE LfllT.TRRlRE-OUTII PC 

UR PEPCEP.TAPIEPE. 

1379 DRTfl OP- RIVIERE. RIO. GROUPE. TRIO, CHIFFRE.TPn IS. B01S LENTEMENT .S1P0TF . IMS US 

ETROITS. 

1830 DATA LE.C0NDIMF.N1 . : .EL ■ SOLO r IONS.CLFS. OUPCt L-ANs LE JURfl.O.U i Dl POSITION 

■UN CONTRA! . CLAiJ-.t. PPESENl s ■ ^CTUELS, 

1390 DATA LN,BIERE BLONDE . ALE . HI THCHE . LHi.E , I I'M IE;. Lib Nm ' i PI - 1. nl L . M I SI ■ H r | 

RRRT1CUL1EP. SPECIAL, 

1900 DRTfl Cfl,ETflNG,LAC.NijN CLERICAL. LAIl.RESEnU DL F Rs .( ir. I ■ -UH-H-. t I- LRUlIOH, 

GLACIS. INSEC1ES,CIGHLES, 

1310 DATA SA.FATlCUE.LRS.FU.'MM.Lbs.H.'.F'MV^u; . ,n l . IU"- mj 1-lnMLlM: itLF.Sb '-. . L I 'AN D 

E SIRUPEUX.HELRSSE, 

1320 DRTR IH, RONGEUR, PHI .ENLEVEMENT .RHP I .L-'JItf Ih . PKt I A . HhM . I F'tl -k t Hi riRER.flPPfll 

ER. 

1930 DATA RE.AVENUEFUE.l-UPPODE, IEMPS-DUPtE.HAPl-1 .DELURt . UUVtR I URt .RPtLUl-L. 

1949 DATA fll, HOIS- MHI , ADULE . Alllt -CLASSE i.'l-'i.MN I ' -Ml- . nil H-F - hNNI mNI I I . DLG1HH,Q M 

i ERNE LA iitDLMNL. MEDICAL- 

1958 DH1A HE.HflBnHNr,AME,flVIRON.RAME,COULEUR,PftRHE.UNI IL DL - OURftHl .RHPERI HOCM 

PA.TErtPEPA. 

I960 DATA uP.iJNI IE MijNEIHlFE.uPE.GEHiir GOURIihMD . '.».F:L ,OEBftUCHE,ORGIi ■■- , » I KS.GLQl* 

E-RENVOYER.LIHOGER, 

1379 DATA AS.ABJEC . Bh-. . FUMI/ENEN I . EASE - I NDIf-FbRLNT . tl.H'.i .REPERl I. i.l I j HACNIHI !■ 

E GUERRE, BRLI8TE, 

1980 DATA IS- HRGILE.SR, EDITS. LUIS. ENTREPOTS, SILOS, SEULS.ISOLE POUrRI CM IV) 

1??0 DATA SRi-IFi.ON-TRN'.E.i.HS.TROU D HlCUILLE . ' MH : ■■ ■ ■ AVI. . ■ ' hm! '. . -.11 i.F .i mil t . n in I 

ES.CHATIES. 

_ni.'0 I'HiM ill .P'jIssuN.YIN. 1NUI RL-VHIN mi ill I ■!, in,HVIN| , TROUVR»t)EVIHR,SOft?AHl 

DES REGLES, DEVIANT. 

2018 tWTfl D'".i.i".'LiiF.ij['E.USE.i-oDC,CHHFPi> .i .i'-i :■ UNI ■■ -\ CMJII IUW .DOUCEUR, 

2029 DAT" BU.OB.IECTIF,BUT,EXTRLMI It.B'JUI ' "NFFI I ii). tmm,,i M, I IF I. 'I'mL F" 

USSE .BOUTUW ■ 

. 038 DRTfl US CAR BUS PROJEG! n..i . "i ' i ■ i n n 1 1 i '-'l ii.iii mi . u.u»-e.mh| nm -\ Dl 

SSOUORE, SOLUBLE, 

i049 DflTR RE.RAPPEL.lER.fcEAiJ'-OUF .1PES.US.PHF RONW I 1mm . ..Iii.inii .m! i Ik, 

2050 DATA NU, TROUBLE. EMU, DEESSE-MU! I '.(■ II 

E.HQSQUEC 

,..-. li CflTA PO DL'iifi un-. mm | ,POT( .EMPLOI .i-O-.Tt ■ '"I'/LknjFi- .m+ii I n i | 



m . MOW i.Rftll '.I ;,MOQW i li U i'i hi 

l-l i HUM i 

IL DL VOILE, RIS .SEIGNEUR. *IRI R8PERITI PRI I V[i riMt i.PROIl -it 

BRUM ■ i i 



DRAGON 
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RAMBLE 



Vous voici egare au fin fondd'un labyrinthe inexpugna- 
ble, de 1 a 10 etages. Saurez-vous Irouver la sortie? 
Vous le saurez des que vous aurez programme ce jeu 
en 3D haute resolution et couleurs!! 
Mode d'emploi inclus dans le programme. 

Frederic PERRAUD 



20 PH0OE1 PCLERP2 PCLS 

30 PCLS SCREENLO PCLS 

49 PCLS RMODE1 PCLERR2 SCREEN 1.1 

39 X=0 DRRWC2" v=Y-<-20 R*=" PftMELE PROMENADE DflNS UN LfiBYRINTHE E 

N TRQISO.LE BUT TROUVER LR SORTIE . CE JEU COMPETE OIX NIVEAU*. "'GOSUB *69 -COS 

U8 700 

eg *«8 V-Y+20 R*o*"DE UN R DIX ETRGES. LE PASSAGE P UN ETftGE ft UN AUTRE 6E FRIT R 

RR UNE ECHELLE. POUR MONTER ALLER VERS L AVHNT. ARPUYEZ SUR SPRCE POUR -CONTINUE 

R" 0RRU"C2' GOSUB 200 GOSUB 709 

79 l»siHKEY» IF I*="" THEN 78 ELSE IF ASC I* )=32 THEN GOTO 639 ELSE 70 

fto Z-i' L-123 P=B2'8=11 

<»g ON B GOSUB 29. 29, £9, 20 .29 .20. 20 -20 -20. 29- 20. 20 .20. 20, 29, 20 

190 PSET' L. P. 2, 

UO I*=INKEY* IF I*=" M THEN 119 

129 PRESET'L.R): I=RSC( I*) 

130 IF 1 = 94 THEN R=R-2 
149 IF 1 = 10 THEN RaR+2 
1-50 IF 1=8 THEN L=L-2 
169 IF 1=9 THEN L=L+2 

179 IF L'9 THEN B»B-1L=254 GOTO 99 

160 IF L>253 THEN 8=8*1 L=l 'GOTO 50 

199 IF P'O THEN B*B*6 P=153 GOTO 90 

290 IF R>158 THEN BHB-6' R»l 'GOTO 90 

210 IF PP0IHT<L>RX>5 THEN 250 

229 IF INKEY**"" THEN PSETCL,R,2 > PLAY"T259V403C" ^FOR Pfi-1 TO 15'NEXT PA'GOTe 12 

e 

239 GOTO 100 

249 FOR V»l TO 3 SCREEN 1.0 FOR pr=i TO 50 'NEXT PR SCREEN 1 , 1 'FOR PR- 1 TO 50 ■ NEXT 
PR NEXT V RETURN 

250 L1=PP0INT'L.P>'IF Ll-CI OR L1=C2 THEN 270 ELSE 260 
269 IF L1"C4 THEN A3=AN*1 ELSE A5=RN 

279 PLRVOS" FOP V=l TO 4 SCREEN1 ,0 PLRY i 'T259CDEFCRB" FOR PA-1 TO lOO'NEX-T PR i SC 
PEENl.l FLRVCPEFCRBO-" FOR FA=1 TO 190, NEXT PR = NEXT V<PUtY H OlV30CDEFGRBC0EF6flBV 
25rpFFCABC0EFGfiBV2BCDEFCRBCDEFGflBVl5CDEFGfiBCPEFGR&VigCD£FGflBCDEFGflBV5CPEFGABCDEF 
GR8" G0T089 

"" ".♦0R20U16H19G19P166P14U6P4D6" >PAINT<X+4, Y-4J 




289 LINEfX.Y )-<X.Y>, PRESET DPf 
.Rl RETURN 

290 X=9 Y=164 

389 FOR R=l TO UENCA») I*=riID»< A*,P- 1 ): I=RSC< I*>-64 

319 X"X+12'IF X>246 THEN X=9 Y=Y+12 

320 IF I =-19 THEN 1=28 
330 IF 1—18 THEN 1=29 
349 IF !<9 THEN I»27 

359 LIHECX.YJ-'TX.Y), PRESET ON I GOSUB 390.490.419,429. 439, 449, 430/468. 479, 489,49 

9. 599. 519. 520. 539. 540. 559.. 569, 579,530 . 599- 698, 61 9.629, 639, 645,659, 669, 679 

369 IF K26 RND Z=9 THEN PLRY"01T259L259V2C" 

379 NEXT P RETURN 

389 GOTO 389 

399 OPRU"BM+9.+0;NO8R3D4NL3D4" .RETURN 

499 DPRIJ"BM*0.*-9.NP8R8P4NL8D4L8" PETUPN 

410 PRfiW"eri+9,+0.NR8O3P3" RETURN 

42g 0PflN"BM->0,*8,NP8P6F2P5G2L6" RETURN 

439 DPAL.rEM*0.-0.HP2D4tJR6P4R8" 'RETURN 

440 PPRWBt1+0,*9.NP8P4NR6P4" RETURN 
.:*>"' r,F-:r -■:-■;■ -0 .'.-■-:■■-_>5U<iL3■ , RETURN 
469 r'RfiU M BM*9,+0.D4HC>4PeU4O8" RETURN 

479 rjPRW"Brl-*4.*g;D3" 'RETURN 

480 PPALI"BN*9-'-9;8P6P3L4U2" : RETURN 
4^0 pPfiWBM+fl, +9; P8U4P2HE4HF4" -RETURN 

509 DRRW'8t!*0-*9,P8R8- RETURN- 'L 

510 DRflW"Bf1+g,+9,NP8P4Hp;P4PS:" : RETURN 
■529 WWI"eM+9**e>H08R808"'ReTORN 
=.'<« PPRUTBM+9, -0 ; P8P3U8L3" ■ RETURN 
549 PPftU"Brl*9.*-9.tlD3R8D4L8" RETURN 
538 PRfiU"8M*9,+0,P3P3NH3NF2L8U8" RETURN: '0 
569 DRflU*B*1+0, *8;R8D4L4HF4L404U8" RETURN 
S7R DRflM"BH*©/+0>HR8O4R8D4L8" RETURN 
580 OPRU"BM+0.+9:P4Nt>SP4" RETURN 
599 OPAWBTI+O, +0 - D8R9U8" ' RETURN 
69" PRftU"erVO.-»0.D4F4E4U4" RETURN 

619 ORAU"BM*0 ■ *0 : P^Ni^^U?" RETURN 
629 pPAlPBM+0.*0,F8eL8E3" RETURN 
63^ C'PRH"EM*0 , +9 . F4NP4E4 " RETURN 

649 PPRN"en*0 . *0. P2G3R3" RETURN 

650 PETUPN SPftCE 

660 PPRU"BM+1 ,+4;R6" RETURN '- 

670 DPRtrBM*2.+6..P2P2U2L2" PETUPN 

68E1 Pr-LS R*-" LES C0MT1RNDES DE DIRECTION SUNT LES OURTRE FLECHES. GRUCHE 

.0R01TE. TOUT DROIT. DEMI TOUR SUP PLACE. Lfi SORTIE PEUT SE TR 

OUVEP R N IHPORTE. OUEL ETftGE " X=10 '¥"10 ■ GOSUB 399 F0P1=1703999 'NEXT = 

G0SUB7M 

699 F0PI=1 TO1O90 HEXTI GOTO 1000 

798 POP Pfl*1 TO 709 NEXT PR PETUPN 

710 GOTO 1990 

1088 Ct-ERRlSeO'DinfW* I2>-GOSUB2210 

1818 choi 

1929 CL-- IMC->.tT"t'E'.IPEZ-VOUS PEPPENpRE UNE PhPTIE EN COURS";SHS 

1930 IF SM*="OU!" THEN1590 

1848 IWPlJT*'niv«*ul-ie ".Nl IF (MKIJ OR (NI>10) THEN 1949 
1898 '-A*---- C8*0 FORH-1 TONI X»RHtX10J 

1969 SC*-a.«*3TR»(X» NEXTN 

1970 IF Nl"l THEN S0"1 ELSE S0*FIX<RND<HI-2H2) 
1888 HV»1 GO5U81630 

[890 PH0PE1-1 PCLS1 SCREEN1.9 C0L0R3.1 

1108 '->'■-'' Vrt=4 v[.-i PI»="155'5" G0T01329 

111^ RS-IHKEY*>IF R*="" THEN !119 ELSE HC=RSC P* "M1=0 

1129 IF RC=79 THEN 1419 

1130 IF RC=8 THEN Ml=4 

1149 IF BC=9 THEN Ml=3 

1150 IF RC = 10 THEN 111=2 
1169 IF RC-94 THEN Ml=l 
1179 IF rtl*0 THEN 1119 

1189 VB=VRL't1IP*'Pl».rtl , 1 ^)'XP=Xft YP-YR 

1190 IF VB>5 THEN GOSUB 1589 
1209 IF VB=5 THEN UI9 

1219 if vb=i then xn»xn*i 

1229 IF 'VB»2 THEtJ XR-XB-1 

1238 IF ve«3 THEN YR=Yfl+l 

1248 IF Ve*4 THEN Yfl-Yfl-1 

1238 IF X**— 20R Yfl«-2 OR Xfl-11 OP Yfl-11 THEN 1390 

1260 IF X«— 1 OR Yft"-1 OR XR=19 OP VR-IO THEN DO- 12 ELSE DC-LR/XR.YP. > 

1278 IF XP>XR THEN M2-1 

1289 IF YP.'YR THEH M2-6 

12?9 IF XP<XR THEN H2-1 1 

1388 IF YP<VH THEN M2-16 

1319 VT>VRL''MID*;ftR»'C'P).M2.1 '> > PI»=M!P«' RR*' Pp-',N2»1 ,4 > 

1329 PCLSI IF '/P»9 THEH 1340 

1330 LIME*: 4, 4)-' 126,18?),PSET,e LINE'. 46-21 )-*:86, 143),PSET,B 
1348 ON VO GOSiJB 1990. 1910, 1929. 1939. 1340. 1958, 1960.1979.2199 

1338 PRINT' 69, 19). 4, 3 PRINT' 69, 170 >.4, 3 PRINT 10.35 > PfilHTf 122,35) PRINT' 63, 35 >. 

2.3 

1360 IF DD-18 THEN GOSUB 2160 

1379 (F 00-11 THEN GOSUB 2120 

1398 GOTO1110 

1390 CL8'F0RWT09 FOPT-9T049 CLSI NCXTT,1'CL9 PRINTTRBM71 >"br *uo 

1499 INPUT "UNE RUTPE T"iHP»'IF RP»-"0'JI "THEN1049 ELSE RPlNT"ftU PEVOIR"-EMO 



1449 
1459 
1469 
1479 
1489 
1490 
1599 
1319 
1520 
1339 
1549 
1359 
1569 
1570 
1580 
1590 
1690 
1610 



1690 
1709 
1719 



1790 
1309 
1810 
1320 



PRINT"RPPUYEP SUP ENREGISTREHEHT PUIS TRPEZ <C>" 

CC»»INtcEY» IF CCaO'C THEN 1439 

npEN"0".t-l.NM» 

PRINTd-l.NIiNV.XSrt'S.XR.Yft,XP.YP,CS-VO.VR,SO.PI»;SL« i pO 

FfiPY=0T09 FORX-9T09 FRINTt-1 .LRTX-Y >'NEXTX, Y 

CLOSE«-t OLS PRINTTRB' 167 >"» M«J t«rdf" END 

CLS PPINT"REPR!SE SUR CASSETTE" 

PRINT INFUT" now " . NM* 

PRINT-PLRCEZ LR CASSETTE EN LECTURE PUIS TRPEZ <C>" 

CC«=INKEY» IF CC»<>"C" THEN1539 

OPEN-r',»-l,NM» 

INPUT«-l.NI.NV.XS.YS.XR,YR.XP,YP.C?,VD,Vfl,SO.PIt,SL«.PP 

FC'P'.'^OTO? F0P»9T09 INPUT»-l.LRf X. Y ' MEXTX.Y 

CLOSEt«-l PM0PE3.1 PCLSI SCREEN1. 9 COLORS. 1 G0T01329 

REM nemtfe - d-sc«/*t* 

IF VB=6 THEN HV-W*I ELSE NV=NY-1 

IF YP=6 THEN VB=4 ELSE VB=3 

IF XP=9 RND YP=4 THEN 78=1 

GOSUB 1639 RETURN 

PEM Ch^rg-m-iM- \*b* 

ET=VfiL< M I D«' SLS . ittr> , 2 > > - «■=! 

F0PY=9 TO 9 FOR X=9 TO 9 

L R( X . Y >-VfiL< NIP*' LR*' ET > . (13, 1 > 

REM sortie 

IF NV<>80 THEN1319 

IF CS=1 THEN 1749 

>*S=PM0a8M:IF XS=0 OP XS=9 THEN YS=RNP' 10 

If x'=0 RND 'YS=4 OR YS=7> THEN1790 

Vfl^LFKXS.YSJ'IF Vfl»4 THEN 1709 

CS=1 

IF W>4 THEN LflfX3.YS:.=9 GOTO1310 

IF XS=0 THEN V*="576- 

IF XS=9 THEN V*-"738" 

IF Y3=9 THEN ■■.■'*="367' , 

IF YS=9 THEN V*="685" 

LFKXS.YS>»VnL<«ID«<V«.ffl. 1 ') 

PEM trous etc.. 



!=M3MNEXTX.Y 



ELSE YS»9*FIX<PNO<0>+0.5V 



IF 111 = 



Le numero de la rentree 
sera en vente chez votre 
rnarchand habituel le 31 
Aout. N ; 46. 8 francs. 



1>'90 ! 



LFV0.7>=19 LR'7.6>=10 RETURN 
-Fl;:'N'/ 2 
I 1879 

LFK0,4>11 L«8.7J»I0>LFK7-SJ=10 'RETURN 

l'9-7'=ll LR'7 6 - = 11 PETUPN 
LR(g.4)=11 PETUPN 
9-7>=ll LR'7.6)=I1 RETURN 



■ =•:'■ I ' INC. 1 1? 



[or-f. r,ftn &[--,'-.- r,r^MC:o,-,70 GOTO2O90 

t i^o co'-'iH'-h:^ G0':Ue2940 GOTO2099 

l&an CO'-.ne.'C'lv^ Gf.SUP.2970 COT 02090 

15^9 rn-"t-|j^) GOSU&2049 G0T02099 

(968 GO3'JB2010 GOTO2040 

1970 GOSUB1990 GOTO2079 

1988 REM dessitM 

l^=*0 LIHE<8fi,21 -' 103.4 ).PSET L INE- ?6. 1 J? '-* 126. 187 '.PSET 

r-o?o RETURN 

2010 L TNE' *-21 >--?4. 14 VPSET LINE< 86- 143X94, (31 

2029 T pPftweMI19.4M74BMli9-14L24Pi3SP24" PTFIIHT< 106,43 >,2,3'PfiIHT<88, 33 > 

IH4P mne'^3. 14)- 46-21 --.PSET LINE'4.187:-M4.178'.^PT I IMF' J8, 191 '-(46. 143). PS 

ET 

2050 DRfiW"BH14,4P174BM14,t4P24D138L24" PRINT' 35.45 ), 2.3- PRINT( 43, 35) 

2060 RETURN 

2979 LINE": 30,4 )-( 46- 21 ), PSET LINE' 4, 137 X 46, 143), PSET 

,-fiSO RETURN 

2090 LIHE<52/61)-<31, 143 ),PSET,B LINEC5B.65W 74, 96 >, PSET, BF. LINE' 58. 1 1 **i-< 74 . 13 

7).PSET.BF 

2100 IF 'XF>Xfl) OP ' , ','P>Yfi? THEN DRFftPBWK* 192D1R4D1L4P1 " ELSE DRFIU"BM77,-102P1L4P 

1R4P1" 

2119 RETURN 

2120 LINE'48,4)-C56,21 ), PSET LINE' 76.21 >-( 34, 4 ), PSET PRINK 78. 19), 2,3 
2130 LINE' 58. 16 '-'58, 147 '..PSET -LINEC 74, 16>-( 74, 147), PSET 

2140 OPflW"BM53.20R16O6L16O6P16P6L16O7F16P7L16P7P16D3L16D3R16P3LI6O9R16D9L16O9R16 

P19L16P10P16D10L16" 

2150 RETURN 

2160 LINE' 56, 144 )-< 46, 153 >, PSET 'LINE-'. 36, 138 >. PSET' LIHE-C 76, 144 ), PSET PflINT(60.1 

50). 2, 3 

2170 L INE' 53, 149 )-< 58. 157). PSET. LINE' 74, 140)-' 74, 157). PSET. LINE' 53. 146 W 74, -154 > 

,PSET,B 

2180 PETUPN 

2199 'cfess. firi»l 

2200 GOSUB247OGOTO1110 
2218 REM directions - deaa. 
2220 flR^':0)= ,, 35I55' , 

2230 m*<. 1 )="23153133152325415425" 

2240 RR*( 2)=" 15145253521523525451" 

2250 RR»' .3 ^"32155343553125533433" 

-;-„;,. ., h , r ,.. ; , ■■■.'-■■-;,•.-".:.!::'.,■: 'f',:?';.-;'.-..--:'. ■','[,■,■ 

2279 Rft*'3)»"621537531251233" 

2239 RR«(6>="rrf*.r643527523'!53425" 

2299 RR«<?>""S2145«««*«612S47542I" 

2390 Hfl»C3>="7314354312**X**6343r' 

2310 flR*''9)=' , '421434431241^34434^r , 

2320 WW- 1 J- " 86 1 35863533625586433 M 

2330 RR*' 1 1 )= , '37155373553725597453" 

2340 RR»' 12) = "92155943';59125593455" 

2359 REM Ub*>-ir>th-s 

,-.-!. i ..■.- i , :■■ r m 321332323336221 13432173182223331323309133311431 111213131236453) 

412449483331332411132414237314734" 

2378 LH»C2)=" 13324333543122321 2228623221 316425223421 305134324 11 4731 1399744333146 

4i2.r^'-;H?/4?->2rf::<2?l?6?437i!21414" 

2380 Lfi*' 3 >=■' 13354 152 1 284 ill 142133361 14521 1228642332207124012431321 3143514V99324 

4£;-45-5248732 336441 114264237147331" 

2399 LfW4>»"4421214132848129394323934243414513I32224ei41'«3346313213972812881422 

422--.-; ^2.:.: , ^ , :.?'-:2 , j , ;2/::: :■.■:■;:-■ '"■ \zvr:\ - 

2499 LR*' 5)=" 121353521 4296164212211 3279535622254343260939393936431 II 6164 127141 33 
4424|-.':.442?51 26323213724123421431" 

;-.j;i.; :.nf.- -,-■■;.■-,:■:'■'. . . - ■■ :', :■■■. 1 J251 973373147213333835314828484 

422444442324 12755752252431 2442371" 

2429 Lfi**: 7 >»" 13344153322921 686 1231 799991861 22212642929933421 191 425521 2B922362964 
4264441??',?: 129229963344123714271" 

2439 Lfi»<:3)=" 1353335332347413733631348543332733125636939612333313633268634321224 
136425551131332271 1 '.' 343422? 273331" 

2440 LR*f 9 )-"4241 3353321 1 32234 i 2421 722231229642112443071 13181334131 1225132721 122 
443449612359631 181 3442;327444 14371" 

2450 Lfi*' 19)^ "4 135332 15426475434321 7331475632521333 13309633124764148187323433649 
44334 1222232? 134322-J2 13223 12312744" 

2469 RETURN 

2470 PM0PE3,1 'PCLS2SCPEEH1.0COLOP3.2 

2430 LINE<0,8)-<255yl91>»PSET,0 
2499 LINE<:39.13)-',225.166).PSET,B 

2399 LINE' 13,9 )-<" 39, 13 ), PSET LINEt 249,9 >-( 223, 13 ), PSET 

2510 LIMEO0.191 )-< 39, 166 ), PSET -LINEt 243, 191 )-'. 225. 166 .), PSET 

2529 LI NEC 39.133)-': 223. 133), PSET PRINT( 139, 199)- 3.? PRINTS 139. 130). 1 .3 

2339 PRINT': 109. 10), 4. 3 PRINT' 190. 193), 4, 3 

2549 C0L0P2,3'CIPCLE'I79,43>,25.2. 1 .9. 23.9.92 <CIRCLE< 190- 33 >. 23,2. 1 .0.41 ,0. 73'PR 

INT' 165,40) 

2350 F0RN=1T045 X=RND< 192 H32 Y«RHtK 111 >*17 PSET' X, Y.2 > NEXTN 

2369 C0L0R4.1 LINE' 56. 109 W60. 159). PSET. BF 

2570 prru'T'152. I30RI2L2U1L6* 

2380 COLOPl- 3 CIRCLED 58. 73), 26 PRINT-; 37,63 > 

2598 C0LOP4.1 LINE' 209. 1 13 )-'292, 136 ).PSET,BF C0L0R1 .3' CIRCLE( 201 -96). 16 PRINI'2 

81,93) 

2609 C0L0R3, 1 

2619 F0PI='1T02900-NEXTI - 

2^-20 RETURN 



1418 CL8'PRIHT , 'VOUUEZ-V0U3 PERPENDPE LR PRPTIE PLUS TRPO''" 
1429 iiipijt ftp* IF fiP*- , '0UI"THEN1439ELSECL3 PRINIIftB'. 170)"«l r. 
1439 CLS'PRINT"SRU'/EGRPPE SUB CASSETTE" ■ INPUT" horn '9 LETTPES 




■END 
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SOLITAIR 



Trois heures pour trouver la splution du solitaire? Cha- 
peau! Mais saurez-vous resoudre aussi facilement le 
solitaire cubique (done en 3D) que je vous propose? 
Mode d'emploi inclus dans le programme. 

Francis GROSBOILLOT 



1<S CIS SCREEN 0,e 
70 CLEAP CLS 

SO PRIHT li 93.-B0MJOUP- 

99 PPIHT e lb? ."COMMENT T'flPP6LLE6-TU?" 

190 IHFIJT fifl» 

110 CLS 

120 PRIHT r» b8.CHft*'' 1771tSTRIMG«20. 175 ,*CHP*( 178) 

13? PRIHT i? IM,CHRK181>+- "+CHWC 186) 

140 PRIHT i> 132.CHP*' IS1 )*" PLHISIR SOLI TH IRE " + CHP*-; lft-5 > 
150 FRIHT I? 164,CHRS< 131)+" "♦CHRV 186 > 

160 PRIHT 8 1SWS.CHR»< 139>+STP1H»(20.138)+CHR«<184> 
170 REM NU8IQUE' LE FIJRET 
180 R*="L8^^,L8G.03LSft,•' 
1?9 B«*"O3L4B;O3L8A,03L8R»" 
200 C»="L4D.L8G;L8F*," 
ZIO C>«="L5E;!_8P.L8E:L«Ft-," 

230 F»«"L4C;" 

240 PUfl'f H«'B**C* 

230 PLAY [>t+E»+fl» 

260 PLRY B**C*+D* 

270 PLftY E«+FS 

230 CLS 

290 PRIHT a 32."V0ini IJH SOL I TBI RE 3 DIMENSIONS" 

?09 PRINT » qg.-rpc. reqlES 30NT CELLES DU " 

310 PPIHT "SOLITMIPE OROIHRIRE." 

320 PRINT "LES PRISES SE FCHT SUIVftUT LES" 

338 PPINT "LIGllES TPPCEES SUP LE CUBE." 

340 PRINT "JE H'flCCEPTE FP.S LES TNICHERIES. " 

330 PRINT 

360 PRINT " BONNE CHANCE 

378 PRINT l? 416,"PRESSE UNE TOUCHE POUR CQNTIHUER" 

380 G«"=INXEY* 

390 IF G*-"" THEN GOTO 380 

400 CL? 

410 PRINT ? 32."P0UR ALLER-" 

420 PRINT "-VERS LE HR1JT , PRESSE H" 

430 PRINT "-VERS LE BflS. PRESSE B" 

440 PRIHT "-VERS L'HVflNT, PRESSE R" 

450 PRINT "-VEPS LE FOND. PRESSE F" 

460 PRINT "-VERS Lfl DROITE. PRESSE D" 

470 PRINT "-VERS Lfi GRUCHE. PRESSE G" 

490 PRIHT "PQ1JR CHOISIR'" 

490 PRIHT "~LR CASE DE DEPftRT, PRESSE C" 

590 PRINT "-LP. CASE D'RRRIVEE. PRESSE S" 

510 PRINT "POUR CORRICER C, PPESSE E" 

520 PPIHT "PGUP RPPETER. PPESSE R" 

530 PRINT 8 41S,HRV." 



;-:25>.Yl'25>.Y2'25 '-Y3' 25 > ■ 



540 PRINT 8 440. "PRESSE UNE TOUCHE POUR COriHEHCEP" 
539 G«»INKEY« 

560 IF »■" THEN GOTO 550 
570 DIM X1'25).X2(25).X3<23 
V4<2S>fXKC3>>YYC3) 
500 PCLS 
590 SCREEN 1.0 
600 AM6 B-12 
610 f\y,=4<* 
620 AY=54 
630 COSUB 1590 
640 FOP 1*1 TO 4 
650 FOP J=l TO 4 
660 X2< I >=X1'I>*R 
670 X3< I >=Xl< I )+2tfi 
680 Y3< J>VKJ>-B 
690 Y3CJ>YKJ>-2*8 
790 CIRCLE (Xl< I ).VKJ))-4 
710 CIRCLE 'X2< I ).Y2< J>>,4 
720 CIRCLE CX3<I)jY3(J»,4 
730 CIRCLE <X4(I>,V4<J>>,4 
740 NEXT J 
750 NEXT I 
760 XX' 1 >=X1' 1 V*3S 
770 YYf 1 )=Y1< 1 >*28 
780 CIPCLE (»K1>,YY<I >>.4,8 
790 GOSUB 1599 
000 N=l 
310 HH-IMKEV* 

820 PRESET CXXf H >. YV<H)) = PSEKXX<H>-1 . YY<N>-I >' 
PSET(XXCN>+1,YY<NH1 > 

039 PSET CXX<H>,YY(N)>iPRE8ET":XXCH>-I,YY<N>-1>' 
PRESETS XX' HJ+ 1 , YY< N H 1 > - 
840 IF MM" THEN 310 
850 IF HS="H" THEH GOSUB 1820 
860 IF H*="B" THEH GOSUB 1840 
870 IF W-D" THEH COSUB I860 
680 IF HS="G" THEH GOS'JB 1380 
390 IF H*="fl" THEN COSUB 1999 
900 IF H*="F" THEN GOSUB 1940 
910 IF H»^'C" mH- r 1 = 1 THEM COTO 960 
920 IF H«="F" THEN GOTO 309 
939 IF H*="S" AHD H-2 THEN GOTO 1050 
•540 IF H*="R" THEN GOTO 1399 
950 GOTO 310 

969 REM V A-T-IL UNE BILLE A C? 
979 XO=XX( 1 >-3 
930 YO-YY< 1 >-l 
990 TN=PPO I NK XO , Y0 J 

1990 IF TN=9 THEN SOUND 100.5 COTO 810 
1010 H=2 

1020 Xxr2)=XXC 1 > 
1030 YY<2)"YY<1 ) 
1040 GOTO 810 

1058 REM LA CASE EST-ELLE LIBRE' 
1060 P=XX(2>-3 
1070 S=YY<2>-1 
103O T=FPOINT<R,S) 

1090 IF T=l THEH SOUND 100-3' GOTO 310 
1100 REM LR CASE SE SITUE DEUX CASES PLUS LOIN 
1110 IF XXC2>*XXn) AND <YY<2>=YY<I>*80 OR YY(2)=YYf 1 
1120 IF YYC 2 )=YY< 1 > AND < XX( 2 )»XX< I >+80 OR XXC2M0K1 
1130 IF K/.'.Z > = XX' 1 -)-'iZ RND YYC2)»YY(1 >*24 THEN 1170 
1140 IF XXC 2 )=XX'. 1 >*32 AND YYf 2 )-YYC 1 >-24 THEN 1 1 79 

1159 SOUND 100.5 

1160 GOTO 319 

1179 REM Y B-T-IL UNE BILLE ENTRE C ET S 



1 1 80 XX' 3 )»'. XX' 2 )*XX( ] > >v2 

1 1 99 YY' 3 )-' YY'. 2 >*YY< 1 ) )/2 

1290 XP-XXO)-3 

1210 YP»YY'3<-1 

1220 TP»PPOIHT'XP,YPi 

1230 IF TP-0 THEN SOUND 100-5 GOTO 310 

1240 CIPCLE <XXf 1).YY( M>,4,9 

1259 CIPCLE 'XX'3">.YY'3>>,4.9 

1260 CIPCLE '.XX'2>,YY(2)),4,1 
1270 SOUND 180.1 

1280 GOS'JB 1590 

1290 GOTO 800 

1300 REM DECOMPTE DES POINTS 

1310 FOR 1-1 TO 4 

1320 FOR J-l TO 4 

1330 X0-X1(I>-3>XR-X2<1 >-3 XS-X3' I >-3 XT-X4U >-3 

1349 Y9-V1C J)-I YP»Y2<J)-1 YS«Y3' _ J>-1 YT-Y4<J>-1 

1350 Tf>rPOINT'X0,Y(3> 
1360 TP=PPDIHTrXR.YR> 
1370 TS-PPOINTfXS.YS> 
1380 TT=PPOINT(XT,YT> 
1390 TU=TU*TO»TR*TS*TT 
1400 NEXT J 

1410 NEXT I 

1420 CLS 

1430 PRINT 5 66.AR1 

1449 PRINT 4 98. "II TE PESTE ".TU," BILLES" 

1459 IF TU=1 THEN PPIHT f» 194,"C'EST EXCELLEHT ' " 

1469 IF TU>t AND TU<4 THEH PRINT Q 1?4,"C'£ST BIEN. CONTINUE" 

1479 IF TU>3 AND TU<6 THEN PRINT f> 194, "FAIS UN EFFORT'" 

1489 IF TU>5 THEN PRIHT a 194, "TU ES NUL ' " 

1499 REM NOUVELIE PARTIE 

1500 PRINT a 386, "VEUX-TU ENCORE XWEP'" 
1510 PRINT 8 422- "O^N" 

1520 Ml-INKEY* 

1330 IF M«-"0- THEN TU-9 GOTO 539 

1549 IF M«="N" THEN 1560 

1559 IF Mi-"" THEH COTO 1529 

1560 CLS 

1570 PPINT « 238. "FIN" 
1589 END 

1390 FOP K=l TO 4 
1690 X=AX*<(K-U*A) 
1610 Y=>AY-<(K-t>tB) 
1620 FOR 1=1 TO 4 
1630 Y< I >»Y+< ( 1-1 iT49 > 

1649 LINE 'X.Y' I >WX+120.Y' I > ) . PSET 

1650 NEXT I 

1660 FOR J-l TO 4 

1670 X' J>-X*(f J-l>«40) 

1680 LINE <y- J3,Y WX<J),Y*120>.PSET 

1690 NEXT J 

1700 NEXT K 

1710 FOR 1=1 TO 4 

1720 FOR J-l TO 4 

1730 XKIl-40+U-I»4e 

1740 X4MJ-X1'I V-3TR 

1730 YK Jl=54+f J-1JI40 

1760 Y4( Jl-Yl<J)-7«:8 

1770 LINE (Xtd ),YlfJ)WX4(l ),Y4f J>>.PSET 
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DRAGON 



DES LOGICIELS 
POUR VOS MACHINES 



CANON X-07, CASIO PB-700 et OLIVETTI 

MIOont deux points communs interessants: 
dabord ce sont de terribles petites machines 
qui n'ont pas grand chose a envier aux gran- 
des et ensuite SHIFT EDITIONS a cree spe- 
cialement pour elles un ouvrage de "JEUX ET 
PROGRAMMES". Vous y trouverez des pro- 
grammes tout faits a entrer dans vos machi- 
nes. Utilisez-les tels quels ou ameliorez les 
pour en faire vos programmes. 



Canon 



JEUX 
ET 

PROGRAMMES 



ORDINATEUR INDIVIDUAL 







1. EQUATION 2eme DEQRE 
2. INTEGRATION 
S.RACINES DE POLYNOME 
TOTRE CHOIX, C 1/2/13 >:.? 



rasas 



CASIO PB-700 

JEUX ET 



MIO 

olivelli 



JEUX ET 

PROGRAMMES 




Sommaire 
CANON X-07 



EQUATION DU2 DCOnC 



UESGAOI uniimi 



Sommaire CASIO PB-700 



MI'KH*Tinrt ',..'1111'. N')MMH[5C0Wf\EW:S 



Sommaire 
OLIVETTI M-10 

AHOOISE MAGIOUE 



>ECOOnDONN«5 
Dusei DM) MOW 



■ 



SuWai esi Tvoiuwrs 



BON DE COMMANDE A 
DECOUPER OU RECO- 
PIER. A RENVOYER A : 
SHIFT EDITIONS, 27, rue 
du Gal Foy 75008 PARIS. 

Norn 

PriSnom 

Adresse 

Cod« Postal i_i. i —i — i — r 

Villa ■■■ 

CANONX-07 95.00F D 

126 pages 148x210 

CASIO PB-700 65.00F Q 

102 pages 148x210 

OLIVETTI M-10 9S.00F O 

133 pages 148x210 

REGLEMENT joint ,00 F 

ch6quoO CCPD 

DATE : SIGNATURE 



57 



OLYMPIC GAME 



Ce jeu Olympic Game est adapto du |eu d'arcade du 
meme nom. Le but du jeu est d'arriver aux temps et 
distances indiquees par la 702 P avant chaque compe- 
tition. LONG JUMP. 100 metres Haie. Javolot Game. 

J.Francois PALIERNE. 

Vous etes le spotlit represents par PI Vous devez lui (aire prendre 
de la vilesse en appuyant en continue sut la louche 6 Si vous rela- 
chez cette louche, votre vitesso sarrete (malgre que votro sportif 
continue a avancer) Une fois arrive a la limite representee par I 
vous devez sauter ou bien lancer votre javelot en appuyant sur la 
touche 5. Attention, car si vous depassez la limite, vous etes FOUL 
el vous passez a repreuve suivante. La touche 5 correspond a I'an- 
gle de saut ou de lancer. Plus vous appuyez longtemps et plus lan- 
gle sera grand, Ce sera linverse dans le cas contraire. Si vous n'ar- 
nvez pas a vous qualifier, vous perdez un essai (attention, vous 
n'en avez que 3). Pour le 110 metres haies. II laut appuyer en conll- 
nue sur le 6 et relacher cette louche au moment du saut de la haie. 
Une fois que ces 3 epreuves sont passees. vous revenez au depart 
mats bien sur les performances deviendront de plus en plus dures. 
Avant utilisation, effectuer les operations suivantes: SAC. STAT. 
Ceci pour mettre tes memotres statistiques a zero. 



5 MIT 35: PR! "NE 
R.SCORE:-;IK:V 
SC :H=3 

( MUMI.f:#tt 
!B=THIWfir:P 
11 "VS svez m 

II B-.H!" FR0TE 

? WIT 38:Y=9 

IS PUT " 0LYBP1 



C 68HE" 
38 PUT "IONS JUMP" 
3! ?PT «;Ki" It.." 
35 WHIT 8 
49 FN 1=1 10 16 
45 IF PAW THEN 

5: 
(9 C=Ol:S0T0 54 
5J c=M:V=Vt75 
34 PRT C3R C;V;C 



SR 161"!" 
55 NEXT I 
51 IF KEY="5" IHEN 

a 

5S N91T 38:PRT 70 
UL":H=H-1:PRT " 
RESTPSHS' ESSft 
IS": IP H=9 IHEN 
1688 

59 6010 87 




68 FOR J"I TO 28 

65 IF KEY»"5" THEN 

6? 

66 £010 68 

67 fl=fi*4 
63 HEXT I 

78 IF 8(38 THEH 72 

71 L=(»/388)t((188 
-fl)/28):60T0 73 

72 L--!V/1288W(78 



-C.i/28) 
13 WRIT 38IPR! "I 
12 3 4 5 6 7 8 
9";CSR INT (L« 
2)IV 

81 PRI "VIT:";Y 

82 FRT "8N6:";8 

33 PRT "L0NS:":L:I 
F D=L THEN 35 

34 IF L<0 THEN 86 

85 ?=P*1NT <(L-0)t 
(L*588))*588:60 
10 87 

86 P=P:K=H-UPRT ' 



IS": IF H=9 THEN 
1888 

87 PRT "SCORE! "IP 

88 PRT "118 ».. HB 
1E":C=9 

85 PRT HilKI" SEC. 

98 ilftIT 9:T=6:V=8 

31 PRT " ft 

1 I'lCSB C 

;VMF KEY="6" 

INEH 166 

92 C=CtlMF Cii3 T 

HEN 187 



94 IF C=5 THEN 118 

95 IF C=9 THEH 119 

96 IF C=I3 THEH 11 
8 

195 6010 11 

188 V=VH88:80T0 92 

187 T=T-!Y/1B89W9 

.3I60T0 111 
119 T«T«I. 6:6010 91 

111 "HIT 39IPRT "IE 
HPSi'Sl 

112 IF T« IHEN 115 

113 H=H-|:PRT "REST 
E":H:" ESSfllS": 
IF H=8 THEH 168 
8 

114 60TO 116 

115 P=PWK-T)<!888 
) 

116 PRT "SC0RE:":P 

117 KBIT 58:PRT "18 
VEL0T SflrlE":T=8 

118 PRT HtlNl" «.." 
113 HBIT 9:C=9 

128 F9R 0=1 19 16 

121 IF KEY='6" TNEH 

123 

122 C=C*1:SOJ0 124 

123 WM3IM+I 

124 PRT CSR C;V"; 
CSR 16!"!" 



125 HEXT 

126 IF KEY="5" IHEN 

123 
!27 HRIT 38: PRT "FO 
|JL':H=H-|:PRI " 
RESTE'JH;" ESSB 
IS": IF B=8 THEN 
1899 
128 80TO 158 
125 FOR X=I TO 29 
138 I c KEY="5" THEH 

132 
13! SOTfj I3J 

132 0*4 

133 HEX1 X 

134 IF 0<38 THEH 13 
i 

135 L=iV/33i*"ll8- 
0;/2:SOTO 137 

136 L=iV>38)»«65-C 
)'2> 

137 MBIT 58: IF IN! 
<L+.5»48 THEN 
148 

138 PR' ■! 19 29 38 

48 58 68": CSR 
IHT <(Lt.5)/3.3 
3):"/":60T0 143 

148 PRT "! 18 29 38 

49 58" 

141 PRT '68 78 89 3 
9 198 116"ICSR 



143 PRT "VlT:'iV 

144 PUT frfWiB 

145 PRT lOW'SitO 

=8 

148 IF 1>N THEN 149 

147 H=H-|:pRT "REST 

E":H!" ES89I5": 

IF N=8 INEH 198 



148 60T0 158 
143 P=Pt<L»189) 
159 P=INT PiPRT 

0RE:":P 
231 IMH.2>K- 

O=0t.2:C=3 
383 PRT 

808L!FIE":fl=8 
369 IF 0=7.4 THEH 1 
318 SOTO 7 
1898 IF P155888 THBI 



2: 



1881 GOTO 1188 

1882 P--P»INT (P/I8C 

prt ■B6*us;";]k' 

I (F/18) 
1188 FRT "SCORE FIH8 

L:":P:IF PMBrt 

DC :5T8T P 
1181 FRT :PRT ■ 



RESTE";H!" ESS8 93 IF KEY="5";C=C* 



ARIANE 



CASIO FX 702-P 



Contrairement a limpression que donnent les quelques 
lignes precedant I'impression du programme, ce pro- 
gramme n'est pas un simple programme de bataille na- 
vale, mats le "Casio-iste" est confronte au probleme de 
detection par sonar et jongle avec les distances (au 
sens mathematique). 

Willy CABOURG 

II suffit d'entrer la difficulte representee par un nombre compris entre 
O et 9. Puis de se deplacer a I'aide du clavier num6rique: 
5: sen au deplacet-nent vers le Nord. 2: vers le Sud. 6: vers I'Est. 4: 
vers I'Ouest. 9: vers le Nord-Est. 7: vers le Nord Ouest. 1: vers le 
Sud-Ouest.3: vers le Sud-Est. 1 : sert a remonter en surface. 
Comma vous I'avez sOrement remarque. la capsule que vous devez 
recuperer peut se trouver en profondeur a la suite de crevaison des 
bouees. Et ce nest pas tout, la reserve en oxygene etant limitee, 
(depend du type de capsule et de la difficulte), vous allez devoir 
recuperer cette capsule dans la limite de temps fixee. 
Mais, si tout se passe bien? L'ordinateur donne son appreciation 
survie du temps restant. 

Remarque: I'affichage indique successivement la distance en kilo- 
metres qui vous separe de la capsule, vos coordonnees, le temps 
en secondes qu'il vous reste. Votre domaine est un carre de 100 X 
100 km2 sur 9 Km de profondeur. Au depart, vous vous trouvez au 
centre du domaine, a la surface (les coordonnees 50.50.OI. Le pro- 
gramme ne presenfe aucune difficulte d'adaptation. 



P9i fflSS 

PR36HME SE 

RECHERCHE i ONE 

CRPSULE SPP.CISLE 

SOS M MMME OE 

189 KILOMETRES CSRSE 

LIST RL1 

in PP.6 LIST 

VfiR: 26 PR6: 1688 

Pi: 833 STEPS 

5 PRT "PROSRrW.E 

OE RECUPERATION 

";" DE CSPSOLES 

SPBCIfiLES. "i 

18 8=INT (188*RfiHi 

11 B=IIIT !188«RfiN« 

12 C=IHT C18>P.flSt* 
R9HI 

14 E=88S (B-58H88 



S (8-58)*C 
15 6=8:IHP"0IFFIC 

ULTEE 8->9 "i6i 

IF 6»!6-9»8 IN 

EN 15 
13 F=E*12sEXP (-6/ 

28 S=56:'i'=X:Z=8:0= 

25 5=SSR «X-B;i2t 
CY-B)t2+vZ-C)f2 

) 
38 PRT CSR MIM 

;»;• ntnn; 

"i»f;Y:",";t;Z; 
»> "i 

48 IF K>8 THEN 58 
41 FRT CSR 9i"TR,00 

Vet EH"l0:" ESS 

8i3."l 

43 IF D'E-UPP.T " 
SCORE BBiEHT" 

44 IF DiESIF OiE+3 
;PRT " BOH SCOR 



E"l 

45 IF 0=E*4lPR7 "S 
CORE CORP.ECTE": 

46 IF S>E+4:iF D<£ 
U5IP8T " SCORE 

PUSSBBIE"; 

47 IF 0>E-14;PRT " 

HIED 6UE RIEII" 

48 PRT ".ET IL yOU 
S RESTE"; KIT CF 

*2/5l" SECOHBES 
";:EN0 
58 t=KEy:F=F-::IF 
F<8iPRT :PRT " 
ROP TBRT ILS S 
NT BSPHVXIES"; 
END 

51 PRT CSR Kiill 
IHT (rt2/5! 

52 IF t="" THEN 
55 NODE 5 

66 IF !="t";IF 2)8 

IZ=Z-1 
61 IF t=T'l!F »>8 



s if De:x--x-'.:r 

=7-1 

62 IFi="2"IIF7>6 
17=7-1 

63 IF 1="3":IFV;8 
I IF X<9Sl!!=iS*li 
V=V-1 

64 IF i="4";IFX>8 

65 !f"*="5";IF Z<3 

;Z=Z*I 

66 IF *="6"iIFX<9 
5;X=X*1 

67 IF S--"7";iFX>9 
IIF 7(99lX=X-l: 
7=7*1 

68 IF ;="8"IIF7:9 
9:7=7»1 

63 IF *=VilF.Y<9 
9! IF X<99li=V« 
:X=X*1 

79 F--F-6.25 

33 0=DU:ME 4:60 
TO 25 




BOWLING 



Voire micro-poche vous demande alors si vous voulez rejouer 
(O/N). 

Vous pouvez battre votre precedent record ou atteindre en force 1 
le record absolu de 2800 points dans quel cas le record se reinitia- 
lise a 0. 

Le programme fonctionne en DEFM O et occupe 1237 pas de pro- 
gramme. Avant la premiere utilisation, veuillez (aire F1 SAC. 



Bi" 
1! 



;:60TC 



Pas facile de faire tomber les 5 quilles a la fois? Vous 
y arriverez pourtant avec un peu d'entrainement et ce 
programme Basic de Bowling, (n'en perdez pas pour 
autant la boule...). 

J.Philippe CUNNIET 

Ce programme comporte de nombreux graphismes et 3 niveaux de 

jeu: 

Niveau 1:15 llrs. 

Niveau 2: 10 tirs. 

Niveau 3: 5 tirs. 

Apres avoir seieclionne la force de jeu. vous verrez apparaitre a la 

droite de I'ecran le nombre d'essais reslant. A gauche de I'ecran, le 

joueur symbolise arbilrairement par < . A un endroit aleatoire de 

I'ecran. 5 quilles symbolisees par Mill qui ne resteront qu'un bref 

instant a cet endroit. 

Le but du jeu est de faire tomber le plus de quilles de la facon 

suivante: 

- Evaluez la distance qui vous separe des quilles sachant que 19 
envoie la boule de lautre cote de I'ecran. 

- Appuyez sur une touche quelconque. 

- L'ordinateur vous demande alors la force de votre tir. 

- Apres I'avoir indiquee vous verrez une boule partir de votre place 
jusqu'a I'endroil souhaite (force), en faisant chuter: 

0. 1, 2, 3. 4 ou 5 quilles ce qui correspond au STRIKE. 2 strikes 

vous apportent un tir supplemental^. 
Les points son! comptes de la facon suivante: 
1 quilles: 20 points. 2 quilles: 40 points, 3 quilles: 60 points. 4 quil- 
les: SO points et 5 quilles (STRIKE): 100 Points. 
Mais, a chaque tir, il y a une chance sur 10 pour que votre boule 
tombe dans la ngole: -20 points. 

La boule ira direclement dans la rigole, si voire force de tir est supe- 
heure a 19. le bowling etant regie pour jouer doucement. 
Apres chaque tir apparait voire score, le record el le nombre de 
quilles touchees. Lorsque le nombre d'essais est a 0. le jeu s'arrete. 



1 7BC :IJ=33:ilSI! 
3: SOTO 51REX-P0 
IJR.HE80C6ICIEL. 
1984. 

2 FEIKS'MIS',3 
W.FX.782.P.CRS 
10. 

-, REimUTElBii lEfffl 

.PHIL1PPE.CIH! 

EI,3.S»E.ClE 

flENi.fflROT. 
I PEtH8159.LE.CH 

ESHBV.imiHES, 

TEL:954.38.S2. 
5 8SS 38:8SE 34 
i FRT CSR 4S-HIVE 

filj 1'2'3" 
7 IF CE¥="t"!H"lS 

:N=l:6SE 37:S0T 

1! 
i IF r'E7="2":H=13 

:N=2:SSB 37:60T 

11 
5 IF KEY"? THEH 

7 
16 H=5:ll=3:6SB 37 



11 fl=IHT (RflHH9« 
:PRT CSR Bi'C! 
CSR 17IIHT Biff 
OR 8=8 TO 5 

12 IF fi>(H-.5)=8 I 



HEN 26 

13 FRT CSR fli'IIIl 
i";:IFKE7»""T 
HEN 15 

14 NEXT B:PRT CSR 




15 H=H-l:PRI MNP 
"FORCE:".C:E=Rfi 
Nl 

16 IF C<28)SSB 36: 
Y)=" t":F0R 8=1 

10 C-l:FRT CSR 

6;Y$; 

17 IF 5>B-2:'i!=V' 
*:IF6JRt3:'(t=" 

*" 

16 IF C<28;liEXT G: 
PRT MFE(.9TH 
EN 28 

15 PRT :PRT "ORHS 
LB RIGOlt !':■?= 
S-28:SI0P :80T0 
U 

26 IF C=fV4!6SS 49 
:S=3M98:«=.5tH 
:PRT :=0T0 

21 IF ClfilFRT "F8S 

BSSEZ FORT !"! 
3=5-28: STOP :83 
TOO 

22 FOR 2=1 TO 4: IF 

C=S<!;PET Z*ll 
" EUILLES l":S= 
3>26f26fS:ST0F' 
:6OT0 II 



23 NEXT ZMF C=B;F 
RI =0E 3E0LE 
U1LLE !!!'iS=S4 
1816OT0 

24 IF DB«!PRI "T 
SO? -OFT !":60T 
I! 

2: 6070 U 

26 FRT :i--"»t» Efi« 
E OYER * ":F0 
8 S=l TO IS:PET 
CSR OirllKB.I) 

27KXI 0:FRT IIF 
S;SX!SRC :STBT 
S:PRT "RECO80 S 
BTIO !" 

26 FRT "SC0RE"i3:" 
HiEN'lSX 

23 IF S=2888lFF,T " 
REC6RI RBSOLU ■ 
""."RECORD: 8" 
:PR! :S8C 

36 PRI CSR 3: "ONE 
flUTFE 0/N":iF K 
EY=T THEN 6 

31 IF KEY<"'tl" TNEH 

38 

32 FRT »fl 61EKT0T. 
..":EII0 

53 PRT :PRT "SCORE 



";Si" Ki6H";3:: 
STOP :PRT :6010 
il 

34 PRT :PRT CSR 3: 
"("ICSR 7;"II!I 
I'ICSR lilieiiF 
OR fl=l TO 15 

35 PRT C-R fll" »": 
: HEXT B:PRT CSR 

Bl" ";:RET 

36 RRT CSR Bi"<"iC 
SR Bi'IIIirsCS 
R I7MHT H'.iREI 

37 PRT :PRT "HHEfl 
0"iR;":":B;" TI 
BS'iREl 

38 c "i :;s 2:"rii 

B0BUN6 -l<" 

33 PRT :RET 

48 KBIT 8:PRT CSR 
6;" 3TR1!'E";:F0 
E L=l TO itPET 
CSR 1;")eEf="! 

41 FRT CSR I4S"IEe 
E-":CSR I!"-EeE 
»";CSR 14i"=eEl 
("iiffiXTLsRET 



CASIO FX 702-P 



NOSTROMO 



Un point lumineux vient d'apparaitre sur les ecrans 
radar de votre base intersiderale. I'ordinateur central 
permet de I'identifier: c'est le Nostromo. Ce vaisseau a 
ete signale disparu il y a 1000 ans. Vous etes envoye 
en mission pour recuperer les documents capables 
d'expliquer sa disparition. Ce vaisseau est devenu le 
lieu d'existence de plusieurs especes de mutants, aux- 
queNes vous serez confronte. 

J.Denis GORIN 

Les mutants: 

lis sont caractenses par leur force, leur ruse et leur valeur, 

TROLL: Force: 7. Ruse: 9. Detroit: 10. Allie: 20. 

GOLEM BOUEUX: Force: 8. Ruse: 9, Detruit; 10. Allie: 25. 

DAHUDH: Force: 4. Ruse: 9. Detruct: 10. Allie: 15 

DROIDE VAMPIRE: Force: 4. Ruse: 5. Detruit:10. Allie: 10. 

TENTACULEX; Force: 6 - A* , Ruse: 6. Detruit: 10, Allie: 15. 

ESPRIT BROYEUR: Force: 10. Ruse: 9. Detruit" 10, Allie: 40. 

TRISCORPION: Force: 5 + 8' * . Ruse: 12. Detruit 10. Allie: 40. 

GRIFFON BLANC: Force: 8. Ruse: 9. Detruit: 10. Allie: 25. 

* RANGER: A » 1. SAVANT: A = 2. * • B represente le nombre 

d'aiMes. 

Les personnages; 

Au moment de la rencontre. les personnages ont ('initiative: ils 

combattent ou ils rusent. La ruse consiste a se faire des allies des 

mutants (2 maximum), ce qui est utile lors des combats car ils meu- 

rent avant vous. Vous pouvez mourir de deux facons differentes: 

lors dun combat ou quand vous n'avez plus d'energie. 

RANGER: Force: 8. Ruse: 6. Armes: Laser lourd. 

SAVANT: Force: 6. Ruse: 8. Armes: Paralysant. 

Lors de la premiere rencontre reussie. vous prenez connaissance 

de votre but: (a salle des documents. 

Baremes: 

Vous avec 40 unites d'energie par etage. Un deplacement vaut 1 

unite, une rencontre 1 unite, immobility 0,5 unite. 

Arrivee aux documents: Bonus de 10 points et 10 unites d'energie. 

Sortie: Bonus de 500 points. 

Combat: Ranger: 10 points. Savant: 5 points. Perdu: La force de 

I'adversaire est soustraite a la vfitre. 

Ruse: La force de i'adversaire est additionnee a la votre de 10 a 40 

points et diminuee de une unite de votre ruse. Perdu: de meme que 

la force. 



Total general des points: (force + ruse + points) * 25 + bonus de 

sortie. 

Deplacements: 

B: indique la presence d'une possibilite de descente. ou de montee. 

M: vous pouvez monter en appuyant sur + . 

D: vous pouvez descendre en appuyant sur - . 

C: represente I'energie qui vous reste. 

Le reste de I'affichage represente en perspective les 3 portes que 

Ion decouvre quand on rentre dans une nouvelle salle. Les points 

d'exclamation representent la separation entre les murs. Les dieses 

representent les murs et les blancs. les portes. Si les portes sont 

representees par un espace, elles sont ouvertes, si c'est par un 

diese elles sont fermees. La porte de droite est la porte Est, celle du 

milieu la porte Nord, celle de gauche la porte Ouest. Pour obtenir la 

porte Sud, il (aut appuyer sur 5 qui permel de vous retourner. 

Pour vous deplacer vers le nord. vous appuyez sur 8. vers le sud 

sur 2, vers Test sur 4 et vers I'ouest sur 6. 

P.S.: N'oubliez pas par ou vous etes rentre c'est par la que vous 

devez sortir. Pour le nombre d'etage: 0: rez-de chaussee. 1: premier 

etage. 2: 2° etage, etc... 



LIST 

! <?.C i|»IT38iP8 
T CSS 7;"fl!0STR 

mr 

: [Iff "BffiEfM i 

S=o:IF E=2;F=S: 

6=8 
19 W "HERE D.ETB 

6P.H:J=1lfT (Rfl 

Ht*188<(Ktl); 
28 K-IHT tHK8*l« 

:£OT0 INT (RDM 

38 L=K:G0T0 K 

48 1*18*9:5018 7 

8 
58 L=K«S6i60T0 78 



£8 1*18 

73 V=l:i7=4M*46:6 

SB 766 
168 K=T-.5:IF K*8 7 

HEH II SB 
!85 HMI BiPRI U'! 

PiMi'liPiMi 

WiBi*l>*;B 

JUKI K 
118 WIT 38HHHT ! 

L/1B8W88 
115 IF IM;IFL=iiP 

RT "VOUS 1 ETES 

':U=I:K=K+18:T= 

T+ie 

128 IF U=l;IFL=V;P 
67 "3RfW0:6B6HE 
!"iZ=588:60T6 1 



125 !F W=" K*;IF t 

Ei=Vl6SB 288 
138 IF 18=* D*i IF I 

EY="-";G38 258 

135 If UY="5*;PRI 

CSR Sl'IFiCti" 

l!fiMi"l!l*iR 

J;'t!":S0TO 185 
148 IF XEY="2";6SE 

Tag 

145 IF KEY="4*i6SB 

488 
158 IF KEV=T;SS8 

155 IF KEY="t"SffiB 

686 
168 IF IB! (RBtWl 



=3s6SI 

: : !H»188;RE1 
96:6810 N 

8 

::: : : ^--v 
m L=L-1S 

8 
368 if v-T;m 
318 LHMismt ":: 
188 : : b="I";hi 

(18 L=L-liS0T[ 788 
58! : : 88=V:8EI 

:i8 ^i-\<!>r: m 
m •:■ ei=-i»!rei 

SI! L=L>! 

7 85 B='8"!8J=f«:C1 

fii : ;; m n ;■>-- 

INT (RRNM2)i60 
TO ?19«t;e 

728 IF P=liM=" " 

725 ie T 

738 IF P=a:3t=" " 

735 NEXT 

748 IF Mitt- 1 " 

745 NEXT 

758 IF P=9:D*=" * 

755 NEXT 0:P=IHT (P 
ftNf<4>:IFP=3;l 
F L<H«18S;M= r 
B" 

768 IF p=2; IF L>99i 
*=" D' 

see if u85*N;t>s="t 



ill : : . 

528 If Ffft (l/I8)= 

.?:Ei="»" 
J3I If ■■■- 

8;S!= _ r 
548 If fli=T-;' 2! 

=Miif «=n»!iF 

M=fl«:|F m=" 
THE" 788 

:;: K=r-iiK! 

588 K=M:SSB I HI ! 

R8HH8)»!8tlE3: 

PET »;" (";R;S; 

" -';f;S:' )" 
583 INP "LlfTTE, 1 RU 

SE,2",°:!f 8=2! 

if U2 mm ;: ; 

918 V=18/E:i=-'fORCE 

W *«:p=F:(H! 

S15 IF 9=2;S="P(KE 

D0"rtIK?):P=«: 

0=$:Y=X 
?28 0=0*I!fi <RRHt*« 

)*!:PRT «I0 
925 P=P»!NT (FBNt'S 

M:PR! "VOIRE 

*:H!MI,5);P 
938 IF 0=P;PRT 'E8fl 

LITE!" 
535 IF 0>P;F=F-P:6= 

6*l:I=l-liIF F» 

6 THEN 1188 
948 IF 0(P THEN 968 



. .... . 

: ,: = r - : 
=1*1 

MU. # !«=T:i 

=5:;'=28:PET 

-■■: 

:= ; :'=:7: : 3 T 

:875 ;= _ : : " 

BE»:j=4:S=5! =1 

':■■■-■: 
w. t= -:'" ; :. -. - 

• : 5-2'"-: "."■ 

iB*:8=l 
:;■::■ 
I:ii J^F.ISCKFiCy 

;■-.:- 

■- ; ; ; ;. ,- , S 



CASIO FX 702-P 



^ Patois basic 



Suite de la page 24 



HP 41, ZX 81, SPECTRUM: DOMMAGE! 

D6sole pour les "fans" de HP 41, ZX 81. SPECTRUM: aucune table 
de conversion ne peut etre mise en oeuvre. Le langage (on ne peut 
meme plus parler de Basic. pratiquement et surtout pour HP 41!) 
utilise par ces ordinateurs est Irop specifique pour se preler a un 
resume des caracteristiques essentielles. L'ensemble du BASIC du 
ZX 81 est une particularity II vous faudrait le manuel de program- 
mation complet de chacune de ces machines. 



TO 7 



ORGANISATION DU GRAPH1SME 
ETDUTEXTE 

Lecran est divise en 200 lignes de 
40 segments de 8 points. Un seg- 
ment ne peut avoir que deux cou- 
leurs . 1 couleur pour le fond et une 
-ouleur pour les points. Les cou- 
ieurs sont au nombre de 8. nume- 
rotees de a 7 pour les points et 
de -1 a -Spourle fond. 
Le point supeneur gauche est le 
point de coordonnees (0.0). 

Le T07 fonctionne en permanen- 
ce en mode graphique. Les carac- 
teres sont des dessins codes sur 
une matrice 8x8. Les coordon- 
nees d'un point sur I'ecran peu- 
vent etre specifiees en mode gra- 
phique ou en mode texte (carac- 
teres) 

En mode graphique. la resolution 
est de 200 lignes sur 320 colon- 
nes (64 000 points). 
En mode caracteres, I'ecran est 
divise en 25 rangees de 40 carac- 



In structions o/aphiq ues : 

BOX(X1.Y1)-(X2. Y2) 

Trace un rectangle (X1. Y1) et (X2. 
Y2) sont les coordonnees des 
sommets opposes. 
BOXF 

Trace un rectangle plein. 
LINE (Xt, Y1) - (X2. Y2) 
Trace un segment de droite entre 
les deux points (XI. Y1) et (X2. Y2). 
PSET (X. Y) 

Trace un point (ou un caractere) 
de coordonnees (X, Y). 
La forme generale d'une instruc- 
tion graphique est ; 
PSET (X, Y) "CH" ATTRIBUT. 
ou CH represente une chaine de 
caracteres devant etre affichee 
(optionnelle) au point (X, Y) et at- 
tribut une expression numerique 
specifiant la couleur, etc. 
Si (X, Y) est absent, les coordon- 
nees utilisees sont celles du der- 
nier point detini dans la derniere 
instruction graphique. 
COLOR X. Y Z 
Changement de couleur. 
X — couleur des caracteres. 
Y — couleur du fond. 
Z— Oou 1. Z — 1 provoque la per- 
mutation des couleurs X et Y 



DEFGRS(I) 

Permet de definir des graphis- 
mes. Ces graphismes sont dessi- 
nes sur une grille 8 x 8 (comme les 
caracteres) et sont utilisees grace 
aCHRS(l)ouGR$(l). 
Le dessin est represente par une 
suite d'entiers decimaux repre- 
sentant la valeur binaire de cha- 
que rangee. 
POINT (X, Y) 

Renvoi la couleur du point situe 
en (X, Y). 

SCREEN A, 8. C. J 
Changement de la couleur de la 
fenetre d'ecran. 
A — couleur des caracteres, 
B — couleur du fond, 
C — couleur du cadre. 
J indique une inversion de cou- 
leur (J - ou 1). 
SON 

Le T07 possede un generateur de 
son incorpore. II est possible de 
gerer le tempo, la duree, I'attaque 
et les alterations (diese et bemol). 
Le generateur de son, couvre une 
plage de cinq octaves. 
II est egalement possible de lire la 
piste sur des lecteurs de casset- 
tes. Le son est restitue par lehaut- 
parleurdu televiseur. 



PLAYCH 

Joue le morceau contenu dans 
CH. 

Exemple : 
PLAY "05 DO RE" 
Le reglagedes differents parame- 
tres {tempo, octave, etc.) s'effec- 
tue grace a des constantes inte- 
grees dans la chaine de caractere 
CH. 

Fonctions particulieres : 
ATTRB L. H. M 

Permet de definir la taille des ca- 
racteres affiches sur I'ecran. 
LO — largeur normale. 
L — 1 largeur double, 
H — hauteur normale, 
H — 1 hauteur double, 
M - Omode normal, 
M — 1 mode masque en mode 
"masque", les caracteres sont af- 
fiches en noir sur fond noir. 
BEEP 

Cette instruction produil un son 
court. 

CLEAR I, J. K 

Permet de recuperer de la place 
memoireetdereserver des zones 
de travail. I permet de reserver de 
la place pour les chaines de ca- 
racteres. J fixe I'adresse maxi- 
mum utilisable par le basic et K in- 



dique le nombre maximum de ca- 
racteres graphiques (DEFGRS). 
CLS 

Efface I'ecran. 
CONSOLE A. B 

Permet de definir une fenntfp 
d'ecran. 

A — ligne superieure, 
B — derniere ligne. 
DEFINT. DEFSNG 
DEFDBL. DEFSTR 
Permet de declarer des types de 
variables INT- entrer, SNG - sim- 
ple precision, DBL — double pre- 
cision, STR — chaine. 
DEFUSR et USR 
EXEC. 

Definition et utilisation de sous- 
programmes en langage machi- 
ne. 

INPEN, INPUTEN. X, Y 
Lecture de la position du crayon 
optique. 
PEN 

Definition d'une zone pour le 
crayon optique (utilisable avec 
ONPEN). 

CDBL, CINT, CSNG 
Conversion de type pour les varia- 
bles numeriques 
CSRLIN 
Renvoi la position du curseur (nu- 



mero de ligne). 
HEXS 

Conversion d'une valeur decima- 
le en une cha!ne de caracteres 
hexadecimale. 
INSTR (XS. YS) 

Recherche la position de YS dans 
X$. 
OCTS 

Conversion d'une valeur decima- 
le en son equivalent octal (chaine 
de caractferes). 
PTRIG 

Teste le contact du crayon opti- 
que {vrai -- t. faux ■ 0). 
SCREEN (X. Y) 

Renvoiele code ASCII du caracte- 
re situe en x, Y. 
STICK (I) 

(I ■ Oou 1)renvoielapositiondelo 
manette de jcu de numero I. 
STRIG(I) 

Renvoie -1 ou suivant que le 
bouton de la manette de jeu nu- 
mero I est enfoncec ou non. 



CANON X07 



Dote d'une capacite importante pour un micro de cette taille. il pos- 
sede egalement un Basic Microsoft tres complet. 
L'ecran du CANON est divise en 32 X 120 points, le point (0.0) 
etant en haut a gauche. 

Chaque point est adressable individuellement, en coordonnees ab- 
solues. Construction pour allumer un point est PSET(X.Y) et pour 
I'eteindre: PRESET(X.Y). L'instruction POINT(X.Y) serf a tester si un 
point est allume (-1) ou eteint (0). Les droites sont disponibles en 
faisant LINE(W,X)-(Y,Z) qui trace une ligne entre les coordonnees 
W,X et Y.Z. 

On peut egalement tracer des cercles en utilisant CIRCLE(X.Y),Z ou 
X et Y representent les coordonnees du centre et Z le rayon (127 
max.). 
MUSIQUE. 

Une seule instruction, interessante cependant: BEEP X,Y ou X re- 
presente la hauteur chromatique d'une note (entre 1 et 48) et Y sa 
duree en pas de 50 ms. 
BASSE RESOLUTION ecran de (20 x 4). 
FONTS (X): 

Sert a redefinir des caracteres, avec X entre 128 et 159 ou entre 
224 et 255. L'expression est suivie de 8 arguments. 
LOCATE X.Y: 

Place le curseur aux coordonnees X et Y. 
CONSOLE: 

Contr6le le roulement des lignes, le bip sonore des touches, 
I'aiarme. lejeu de caracteres et le mode du clavier. 
GESTION SYSTEME. 
STRIG(O): 

Produit I'etat de la barre d'espace (booleen). 
STRIG(1): 

Produit I'etat de la touche de fonction 6. (booleen). 
STICK(O): 

Produit i'etat des touches du curseur. 1 si la touche "haut" est en- 
fonoee, 2 pour "haut-droite", 3 pour "Droite" 



TKEY{X): 

Donne letat de la touche X. 

CSRLIN: 

Donne la position verticale du curseur. 

POS: 

Donne la position horizontal du curseur. 

DEFINT A- C, E: 

Definit que toutes les variables commencant par les tettres A B C et 

E, sont des variabtes entires. 

DEF SNG: 

Delinil les variables a simple precision. 

DEF DBL: 

Definit fes variables a double precision. 

DEFSTR: 

Definit les variables atphanumeriques. 

FSETX: 

Reserve X octets en RAM pour des fichers ou des programmes, 

CLEARX: 

R6serve X octets pour des variables. 

KEY(X) (avec X entre 1 et 12): 

Sert & red6tinir des touches de fonctions. 

INKEYS : 

Produit le code de la touche enfoncde. 

INSTR: 

Recherche une chaine. 

EXEC: 

Appel d'un sous-programme en langage machine. 

HORLOGE. 

La variable TIMES contient I'heure. les minutes et les secondes (en 

temps r6el). DATESS contient I'annee. le mois. le quantiemo et le 

jour. 

ALMS : 

Contient les donnees pour I'aiarme. 

STARTS : 

Etablit un programme do depart, executable a la mise sous tension 

de I'apparell. 



Copyright Hebdogiciel 




TRS80 



Le TRS 80 est muni d'un Basic MICROSOFT qui ne so distingue 
que peu des autres. 

Pour la plupart des instructions, on pout utilemont so reporter a la 
table de conversion du CANON X 07. Cela comprend RESUME, 
POS, ON ERROR. ERR. ERL, CLEARX, POINT(X.Y). INKEYS , 
TIMES . pour les autres, quelquos explications: 
SWAPX.Y: 

Echange le contenu des variables X et Y. 
STRINGS (32,A): 

Imprimera & I'ecran 32 fols le caractere A a la suite. 
SET(X.Y): 

Place un point aux coordonnees X et Y. 
RESET(X.Y): 

Eteint un point aux coordonnGes X ot Y. 
OPEN: 

Ouvre un fichiar, 
CLOSE: 

Forme un (ichier. 
VARPTR: 

Renvoie I'adrosse oil est memorise lo nom et la valeur d'une varia- 
ble. 

PRINT* X: 

Envoio los sorties sur le perlphdrique X, 
INPUT* X: 
Regoit les entrees sur lo poriph6rique X. 

FIXPC): 

Ronvoio la parlio entioro de X. 

Des differences existent entre les differontos versions du Basic TRS 
80. C'est pourquol on no peut pretondro rdsumor t'onsomblo des 
instructions spociales, mals ce glossalro pout d6jA pcrmotiro do 
comprendre le dfiroulement dun programme. ^ 



PETITES ANNONCES GRATUITES 



VENOS TI99 4A * Bas-c etendu 
f 32 K RAM v joystick • mo- 
dule |eu Parsec I 4 livres de 
programmes el 2 sur I'utilisalion 
du TI99 + 1 K7 jeux divers 
3000 F, VENDS egaleent un 
editeur assembleur pour TI99 
500 F Olivier BRUNESSEAUX 
33 rue Charles de Gaulle 89600 
SAINT FLORENTIN Tel: {86) 
35 23 16 (le soir) ou (86) 35 09 
04 (heures bureau). 

VENDS Ordmateur de jeux VI- 
DEOPAC - 12 K7 (lisle sur de- 
mande conlre un timbre a 2 F.) 
Prix mieressant a debattre. Hu- 
bert PHILIPPON Tel: (43) 81 95 
70. 

VENDS VIS Pal : 1300 F. + 
carle couleur (PS 2000): 750 F. 
<- GP 100 VC (1283): 2000 F. 

* magneto ; 300 F. i cartou- 
ches. K7 - autoformation Basic: 
250 F. bon etat . L. LARSON- 
NEUR 28 bid E.Genevoix 93230 
ROMAINVILLE. 

VENDS TI994A (1983) + prise 
Pentel + magnelo K7 + jeux et 
programmes sur K7 + 5 modu- 
les jeux (Parsec. Munchman...) 
-t- livres dive.i sur TI99. ma- 
dame CAMARA. 3 rue des Mar- 
chands 09000 FOIX. Tel: (61) 
65 04 75. 

VENDS PC 1500 + CE 150 
(etat neuf) + magneto (Conti- 
nental Edison MC 8031 conecla- 
ble sur ("ensemble), (valeur 4400 
F.) vendu 3500 F. Gilbert GUE- 
NARD. Tel: (6) 494 46 55. 

VENDS ORIC 1 48K + alimen- 
tation + prise peritel + manuel 
d'utilisation (sous garantie) + 20 
K7 de jeu. Le tout 2500 F. 
Christophe HERBAUT 70 rue 
Victor Hugo 62800 LIEVEN. Tel: 
(21) 70 16 42 (le midi ou apres 
18 H). 

VENDS pour TI99/4A Manuel 
Edrteur/Assembleur origine : 200 
F. Alain PERRY Tel: 526 60 17. 

VENDS VIC 20 SECAM 
(28/7/83) + Ext. 8K + Auto 
Form. + cart, jeu (Omega Race) 
+ Quizmaster + K7 jeux (Blitz, 
Flipper, etc.). Le tout 1800 F. 
VENDS moniteur PHILIPS 
Ambre (01/84) tres peu servi. 
I Valeur 1802 F.) vendu 1300 F. 
Monsieur BORDENAVE Cam- 
ping Pont Rean 35580 GUI- 
CHEN. 

VENDS ZX 81 + Extension 16K 
+ clavier ABS . le tout sous ga- 
rantie (3/84): 850 F. Gregoire 
GROSJEAN 13 rue du Coteau 
31130 BALMA. Tel: (61) 24 34 
67. (Entre 19Het20H). 

CHERCHE possesseur d'un 
CANON X07 connaissant Ian- 
gage machine et localisation 
memoire ecran pour echange 
programme. Sadresser a C. 
ARCHAMBAULT 5K avenue 
du Gal de Gaulle 69300 CAL- 
VIRE. Tel: (7) 808 60 03. 

VENDS TI99/4A bon etat + cor- 
don K7 + K7 basic par soi- 
meme + Foot + Parsec + 
livres: 1400 F. Christian AUBRY 
27 rue Charles Nodier 25000 
BESANCON. 

VENDS CANON X07 16K + 3 
livres programmalion + pro- 
grammes garantie jusqu'a 85: 
2550 F, Cedric BURDET Tel: 
763 35 07. 

VENDS TI99/4A + Basic Etendu 
+ Magneto + K7 TEXAS + 
Cable + Peritel + cartouches 
jeux : Parsec. Carwars. Connect 
4, Black Jack et Poker + tres 
nombreux programmes sur K7 
+ 4 revues 99 magasine + 
nombreux livres sur TEXAS et 
programmes + Initiation au Ian- 
gage Assembleur. le tout 3500 
F. J.Paul GRANGER 23 rue de 
Libernon 77580 CRECY LA 
CHAPELLE Tel: 266 28 30 
poste 3740 (heures bureau). 

VENDS pour ORIC 1 : ORION 
50 F_ Manoir du Dr Genius 70 
F.. Oric-Base 80 F., Livres 
"ORIC pour tous". "30 program- 
mes pour ORIC 1". Tout savoir 
sur Oric": 40 F. chaque. revue 
"Mlcrorlc" trois numeros; 15 F. 
piece. J.Pierre CHERRIER Tel: 
(3) 074 11 53 (apres 19 H}. 

VENDS ORIC 1 48K (1/84) + 
peritel * alim. + manuel + livre 
ORIC pour tous + K7 demo. 
Vendu 2200 F. Georges HUE 
Tel: 883 93 73 (apres 18 H). 



VENDS manuel langage ma- 
chine PC 1500 : 100 F. Decou- 
vrez le Sharp PC 1500 ( 2 
tomes) : 100 F. Assembleur^ De- 
sassembleur PC 1500 ; 150 F., 
Jeux et programmes CANON 
X07 : 70 F. Monsieur GARRIC 
Tel: (56) 97 19 42. 

CENDS Sharp PC 1500 : 1200 
F. CE 159 (module 8 Ko RAM 
prolegeable): 700 F. + papier 
CE 150 + Livres (4) + malette: 
Le lout 2300 F, VENDS inter- 
face pour DOT Matrix APPLE. 
permet la copie d'ecran graphi- 
que directement au clavier: 700 
F. Cherche cotact APPLE II. 
Monsieur LEMOINRE Joel 2 rue 
Albert Leyge bat. 28 esc. 2 
95340 PERSAN. 

VENDS Sinclair ZX 81 sous ga- 
rantie avec alimentation et cor- 
dons + 7 livres "initiation pro- 
grammes et jeux" (valeurs 980 
F.) Vendu 600 F. Monsieur AU- 
RIOL Tel: 763 76 14 (bureau) 
ou 534 85 27 (dom.). 

VENDS Tl 99/4A : Console 
(02/83) + ext. 32K externe + 

synth. Parole + Magneto 
TEXAS + poignees jeu + Basic 
etendu + mini m6m. + gestion 
Privee + Gest. Fich. + statistics 
+ munchman + parsec + Tl In- 
vaders + Mash + Othello + 
Echecs + Wumpus + Speech 
Editor + music Maker + module 
Adeventure ( 3 K7) ■+ return to 
Pirate's Isle + programmes 
divers (listings et K7) + livres + 
revues diverses (Valeur 8700 F) 
Vendu 5000 F. a debattre. Mon- 
sieur MELISSON 1 allee Mozart 
95100 ARGENTEUIL. 

VENDS TI99/4A + magneto et 
cable Ext. Basic + 3 modules + 
manettes + Basic par soi-meme 
+ 5 livres pour Tl (programmes) 
: 2800 F. Francois STAVAST 17 
Colombier Lanore 63200 RIOM 
Tel: (73) 38 17 93. 

VENDS Tl 99/4A sous garantie 
bon etat + Cable K7 : 1 100 F. a 
debattre /. manettes et nom- 
breux programmes (infogram- 
mes. Softi) disponibles separe- 
ment. Tel: (67) 76 40 68. 

VENDS COM. VIC 20 (juillet 83) 
+ lecteur K7 (VIC 1530) + 
Super Extender + Cartouche 
jeux + 1 manuel "La conduite 
du VIC 20" Le tout 2500 F. An- 
toine ADAM 5 rue St Michel 
67000 STRASBOURG. 

VENDS VIC 20 (11/83) sous ga- 
rantie. SECAM + Magneto + 
module + joystick + K7 jeux et 
autoformation Basic + K7 Super 
Expander (graphic et 3K) et 
Forth + 4 livres. le tout etat neuf 
: 2700 F. (a debattre). Sebastien 
PITROU 35 rue du Champs de 
Mars 75007 PARIS Tel: 555 07 
03. 

VENDS Tl 99/4A + interface 
N/B + basic Etendu + Synth. 
Vocal + manettes + iner. Cas. 
+ parsec + Munch + Wumpt + 
Invader + aventure (2 cas) + 
retour pirate (neuf) + Lunar 
Lander (neuf) + Tombe du Sor- 
cier + 40 programmes + livres 
+ revues, (valeur 6200 F.) 
vendu: 4200 F. Michel SPTE- 
PHANE Tel: 368 24 49 (19 H). 

VENDS HP 41 C # Module Hor- 
loge + imprimante HP 821 43A 
f 5 rouleaux + maneuls + pro- 
grammer HP 41 du PSl. le tout 
4000 F. Etienne RICHARD Mar- 
nand 71460 JONCY. Tel: (85) 
96 20 65 (apers 20 H). 

Tl 99 VENDS Ludotheque : Mini 
Mem + manuel FRancais + 4 
programmes: 1000 F. + Synth. 
Vocal + Speech Edit. : 800 F. + 
16 modules Texas, Romox, Fun- 
ware : 150 a 250 F. Yves LA- 
BORDE 29 rue de Macon 93160 
NOISY LE GRAND. Tel: 304 39 
06. 

VENDS T07 + K7 Basic avec 
manuel + K7 Trap + K7 Pictor 
+ 2 manettes de jeu + magnelo 
K7 THOMSON + programme 
Basic : 3000 F. (garantie 6 
mois). Yves DURAND Tel: (3) 
955 77 80. (le soir) 

VENDS "La pratique du ZX 81" 
tome 1 et 2 : 100 F. J.C. FAIL- 
LAT 21 rue de Rebais 77160 
PROVINS. 

VENDS ORIC 1 48K (Janv.84) 
de base + livres: 200 F. Michel 
RAGOU1LLEAUX Tel: 523 05 41 
(journee) ou 836 70 57 (le soir). 



VENDS ORIC 48K etat neuf + 
250 programmes. Prix a debat- 
tre. R. COSTELLO 70 avenue 
Picasso Dame de Calas 13480 
CALAS. 

VENDS T07 + K7 Basic + 2 

livres + Pictor + Trap, (valeurs 
4120 F) vendu 3300 F. sous ga- 
rantie 5 mois. Bertrand LEISER 
2 rue Franklin 66000 PERPI- 
GNAN. Tel: (68) 34 72 14. 

VENDS console Coleoovision 
avec Venture, Zaxxon. Donkey 
kong et Looping. Garantie jus- 
qu'a decembre 84: 2500 F. Syl- 
vain BIHAN 56 rue Louise Mi- 
chel 78200 MANTES LA VILLE. 
Tel: (3) 092 72 99. 

VENDS Intellivision mattel + 5 
cartouches (Frog Bog, triple ac- 
tion, carnival, donkey kong, rou- 
lette): 1700 F. Eric DESPLAN- 
CHES 67 rue de la Fougeraie. 
LEVIS ST NOM 78320 LE MES- 
NIL ST DENIS. Tel: 461 01 21. 

CHERCHE pour PC 1500A 
connexion magneto K7 fiable ou 
CE 150 tres bas prix. Benoit LE- 
PRETTE 67 rue Bonnelais 
92140 CLAMART. 

VENDS CANON X07 + ext. 8K 
XR100 + cordon magneto + 
adapt, secteur + ext. video Peri- 
tel X 720 + adapt. secteur + 
nombreuses K7 (jeux et utilitai- 
res). (Valeur totale + 5600 F.). 
Vendu 4000 F. Jean Philippe, 
tot: 254 07 12. 

VENDS ZX 81 (janv.84) + 32 
Ko (mars 84) + 30 logicieis sur 
K7. le tout 1500 F. Remi TOU- 
RON 32490 MONFERRAN- 
SAVES (GERS). Tel: (62) 69 83 
95 (avant le 10/08 a 13H) ou le 
(62) 07 86 15 (apres le 10/08). 

VENDS TI99/4A etat neuf en- 
core 6 mois garantie + K7 + 
manettes jeux + 2 modules + 2 
livres programmes + le tout 
2000 F. Henri SCHAJOR rue de 
I'Eglise LOBSANN 67250 
SOULTZ SOUS FORETS. Tel: 
(88) 60 62 97. 

VENDS TI99/4A bon etat. Prix a 
debattre. + 60 programmes + 
interface SECAM/UHF. Pascal 
LE CONTE 11 rue Micolon 
94140 ALFORTVILLE. Tel: 378 
68 67. 

VENDS module pour TI99/4A. 
BLASTO et MUNCH MAN. le 
tout 350 F. En bon etat. THierry 
VACHEZ. Tel: (93) 43 20 99. 

VENDS console TI99/4A + K7 
+ prise PERITEL + transfo + 
manettes TEXAS + manettes 
ATARI + adaptateur + modula- 
teur de voix + logiclets : Exten- 
ded Basic. Gestion de fichier. 
Music maker + Tl Invaders. 
Parsec, Rabbit trail, MUnchman. 
MASH. Bugertime, Hunt the 
wumps, The attack, Car wars, 
Football, Poker, Chisholm trail, 
Zcrozap, Adventure + Beginning 
Grammer, Addtion and Subs- 
traction 1 et 2, Early Reading, 
Alien Addition + K7: King Kong, 
Autoroute. Tractor's folies. La 
tombe du sorcier + 3 K7 Tl + 3 
livres "programmes et jeux pour 
TI99/4A". Prix 5.500 F. Giu- 
seppe RONCA 31 rue des Ab- 
besses 75018 PARIS. Tel: 291 
32 41. 



VENDS T07 sous garantie + 
basic + magneto K7 + manet- 
tes et controleur de jeu + Dingo 
+ Chasseur omega + K7 de 
jeux divers + 2 livres (valeur 4 
875 F.) Vendu 3.000 F. Fred 
DALLO 40 rue Foch 54190 VIL- 
LERUPT. 

VENDS ZX 81 + Clavier PRO 
+ 32K + imprimante SINCLAIR 
+ Alim. + 110 programmes/K7 
+ 5 K7 SINCLAIR + Invaders + 
Etudes pour ZX (2 tomes) + 70 
programmes ZX 81 + langage 
machino + 7 numeros de 
ORDIS t offre 26 numeros de 
L'OI et MICRO SYSTEMES. Le 
tout 2 000 F. Jacques Tel: 836 
23 82 (apres 18H). 

VENDS TI99/4A Dec. 83 garantie 
f cable magnelo + Blasto, 
Othello, Invaders. COnnocl 
Four, Jou video 2 t- manuel As- 
sembleur 4- Manuel Mini-mo- 
moire + livres "50 programmes 
TI99", "Jeux et programmes 
pour TI99" tomme 1, 2 et 3. "les 
classiques du jeu sur voire 
Texas". Tel: 525 34 18 Deman- 
der Alain. 



VENDS TI58 C (programmable) 
+ alim. + 5000 programmes 
(modules bibliotheque) t Nom- 
breux programmes en tous 
genres, Le tout 530 F, Anlome 
RODOLPHE 11 rue de la Rive 
69120 VAULX EN VELIN. 

VENDS TO 7 (fin dec. 83) + 

memo 7 Basic ~ Pictor + Trap 
+ Atonium * lecteur enregrs- 
treur K7 ■*■ extension 16K * ma- 
nettes jeux A son + 6 livres + 
30 programmes divers, le tout 
sous garantie : 5.500 F. Joelle 
CATY 81330 YERRES. Tel: 948 
22 08. 

VENDS ZX 81 IK avec repeal 
reglable. louches sonores. ali- 
mentation plus puissante. le tout 
dans un colfret alu dimensions 
400 X 350 X 110-35 mm, muni 
d'un clavier de 43 touches type 
caiculatnce. Avec cordon sec- 
teur. fil K7, fil TV. manuel d'utili- 
sation et 50 prgrammes. le tout 
d'une valeur de 995 F.. vendu 
630 F. VENDS Ordi 5 n° 1 a 4: 
16 F. piece, Echo Sinclair n" 1: 
15 F., Ordinateur de poche n" 1, 
2. 5 et 7: 7F. piece. Servais 
MAUSS 13 rue de Trieux 54150 
AVRIL. Tel: 246 30 90. 

VENDS TRS 80 mod 1 nrv.2. 

16K + moniteur + magneto + 
livres + 3000 F. de programmes 
+ connecteur Joystick. Le tout 
3500 F. Yves BURGALIERES 
28 rue Dupont de I'Eure 27400 
LOUVIERS Tel: (32) 40 45 26. 

VENDS ORIC 1 48K + Alim. + 

cordon + manuel de program- 
mation : 1800 F. environ, jean 
Pierre BORDES tout BY Appt 91 
14 rue M. Proust 28200 CHA- 
TEAUDUN. Tel: (37) 45 95 05. 

VENDS console TI99/4A + mo- 
dulateur PERITEL + modulateur 
Secam + cable magneto + ma- 
gneto + manettes de jeu + 6 
modules dont echecs et basic 
etendu + revues. Le tout 3200 
F. AJain SPERANZA Tel: (42) 52 
02 16. 

VENDS pour Oric 1 Manoir du 
Dr Genius: 90 F + Galaxion 50 
F. Thierry REDUREAU 10 rue 
du Touquet 72190 COULAINES. 

VENDS T07 + Memo 7 basic + 
lecteur K7 + Pictor + Budget 
familial + 4 livres programmes 
+ programmes sur K7: 3200 F. 
B.DESCHAMPS 21 rue des 
Guerres 45600 SULLI SIL. Tel: 
(38) 36 54 49 (apres 18h). 

VENDS pour ATARI 2600 2 cas- 
settes KANGAROO : 250 F. 
YAR'S REVENGE: 150 F. De- 
mander Stephane au 16 (80} 21 
48 74 (apres 17H). 

VENDS TI99 + mini memoire + 
manettes de jeux + magneto + 
nombreux livres + K7 de jeux : 
2800 F le tout sous emballage 
et garantie. Daniel BLIN 16 rue 
du Sergent Mabillot 93140 
BONDY 

VENDS ORIC 1 (48 Ko) + 
Cable Peritel + alim. Pertiel + 
manuel + Oric pour tous + 15 
programmes de jeux. Le tout en 
bon elat. Prix a debattre. Bruno 
ALEXANDRIAN tel: (42) 70 04 




VENDS T07 (11/83) + basic + 
enregistreur + manettes + ex- 
tension 16K + module Loglcod 
+ 2 livres + 8 logicieis de jeux 
+ nombreux programmes: 3800 
F. Tel: (35) 86 91 71. 

ACHETE pour TI99/4A unite in- 
tegree de diskette et carte 
controleur de diskette. Ph. 
STUM Residence de I'Ara ave- 
nue Emile Hugues 06140 
VENCE. 

VENDS ZX 81 16 Ko + clavier 
+ Reset + K7 programmes + 
logicieis + livres + divers: 800 
F. Pour ZX 81 16 Ko RAM 
CMOS Sauvegardee: 450 F. 
Pour VIC 20 modulateur couleur 
PAL/SECAM PS 2000: 400 F. 
Monsieur ROUDIER Tel: 016 21 
33. 

VENDS Tl 99/4A + poignees de 
jeu + minlmem + Tl CALC + 
cable K7 f magneto + livres -t- 
K7: 4500 F. Michel CONRAUD 
MOntmant Roye - DOGNEVILLE 
88000 EPINAL. 

CREATION CLUB MICRO "Par 
les Flls du Dragon" 27 rue de 
Montlgnies 6060 GILLY BELGI- 
QUE. Tel: 071 41 13 17. 

VENDS pour TI99/4A Extension 
32 K (boitior peripherique Inu- 
tile): 1800 F. a debatlre (achate 



2250 F. fev. 84) VENDS moni- 
tuer B-Video N/B (avec prise 
Peritel) THOMSON T07: 900 F. 
a debattre. Patrice GIAMI Tel: 
725 21 84. 

VENDS ORIC 1 48K (01/84) 
complet + K7 jeux + guide de 
i'Oric: 1900 F. SyMe GUILBERT 
11b rue Efysee Reclus 93 AU- 
BERVILLIERS Tel: 839 95 04 
(apres 19 H). 

VENDS T07 bon etat ) + Ex- 
tension mem, 16K + magneto + 
ext. Synthetiseur de son.' jeu + 
2 manettes + memo 7: Basic- 
Trap + 2 manuels Basic T07 + 
K7 Chasseur Omega (valeurs 
7500 F.) Vendu 5000 F. Mon- 
sieur LATIL 9 av. G. Cavaignac 
94100 SAINT MAUR . Tel:886 
79 82. 

ACHETE pour TI99/4A Boitier 

d'extension (PHP 1200) seul en 
bon etat 750 F. environ. 
ACHETE manuel d'utilisation du 
Basic Etendu. ACHETE n" 4 5 
6... de "99 magasine". Bas pix. 
VENDS carte d'entesion me- 
moire 32K neuve. emballage 
d'origine pour TI99: 800 F. envi- 
ron. Guy OYELLO 2t rue A. 
France 81400 CARMAUX. Tel: 
(63) 36 49 53. 

VENDS T07 complet bon etat 
comprenant UC + basic + dis- 
kette (sous garantie) + K7 + 
poignees de jeu + extension 
16K + Secam + livres + logi- 
cieis (valeurs 12000 F.) vendu 
9500 F. Tel: (80) 43 19 41. 

RECHERCHE COM.64 + livres. 
Denis AUPLAT Allee des Pin- 
sons La COIIine Batiment D 
appt 122 49300 CHOLET. 

VENDS livres TI99/4A "50 pro- 
grammes TI99": 50 F. "Jeux et 
programmes pour Tl, tome II": 
110 F. Pour COM.64 et S/DX 
64: 'Pratique du Commodore 
64": 80 F. et "initiation Basic": 75 
F. Ou le tout pour 300 F. Chris- 
tophe SCHUO 192 avenue de 
Strabourg 54000 NANCY. Tel: 
332 01 69(17H). 

VENDS K7 ATARI Kangaroo 
neuve, encore sous emballage: 
350 F. Olivier LEVAN 16 rue 
Schweitzer 71000 MACON. Tel: 
(85) 38 29 32. 

VENDS imprimante MCP 40 etat 

neuf. 4 couleurs. graphqiue + 2 
manuels + crayons. Bruno 
BOUCHAUD 24 rue de Vouneuil 
86000 POITIERS prix a debat- 
tre. 

RECHERCHE pour TI99/4A mo- 
dule "Beginning Grammar' et 
autres apprentissage anglais + 
K7 test de maths et phisyque. 
Tel: (75) 51 04 45. 

VENDS AQUARIUS + mini ex- 
pander + manettes + cartouche 
de jeux (valeurs 1750) Vendu 
1250 F. Pascal MERCIER 237 
38 13. 

VENDS TI99/4A + 5 jeux + ma- 
nettes jeux 1500 F. le tout. Ste- 
phane ROUSSANGE. Tel: 237 
54 99. 

VENDS T199/4A (dec.83) sous 
garantie cable Magneto + ma- 
nettes jeu + terminal Emulator II 
+ Football + Blasto + jeux 
video 2 (- connect Four + inva- 
ders + Othello + manuel as- 
sembleur + Manuel mini-me- 
moire + 50 programmes 
TI99/4A + Jeux et programmes 
Tomes I, 2. 3 4 "les grands 
classiques du jeu pour votro 
TI99" + 99 magazine 1 a 4 et 
K7 2, 3. 4, A, B . C . D de 99 
magazine. Alain DUPUY Tel; 
525 34 18. 

VENDS TI99/4A (12/83) Peritel 
+ cable K7 + manettes + mods 
JAWBREKER • BASIC par soi- 
meme -l- Introduction TI99 (1 ot 
2) + manuel TI99 + assmbleur : 
1900 F. Monsieur DECARPEN- 
TRIE 15 rue Prad Er Logodonn 
56300 PONTIVY. 



VENDS T07 (bon etat annee 
63) * Pictor Basic * magneto 
+ 7 Irvres (valeurs 6216 F.) 
Vendu 3500 F Monsieur GRI- 
MAL 39 bid Gambetta 72200 LA 
FLECHE.Tel:(43)94 02 31. 

VENDS TI99 (Dec.83) sous ga- 
rantie, prise Peritel. manettes de 
jeu, Basic Etendu. Jeux: Parsec. 
The Attack, Carwars. Olivw 
FOUCHER Tel: 772 06 51. 
poste 292 (heures bureau). 

VENDS impnmante Sinclair pour 
ZX 81 et Spectrum + 3 rouleaux 
de papier - 2 Irvres neufs sur le 
ZX 81 + nombreux programmes 
+ Assembler: 650 F. Yan SOU- 
FLET Tel: (94) 87 15 50. 

VENDS ORIC 1 48K avec mo- 
dulateur N'B et AJim. Peritel in- 
corpore + Alimentation + cable 
Peritel + cable K7 + Manuel en 
francais + programmes + Cor- 
don TV UHF. le tout 2000 F. Di- 
dier GILLES 5 rue Lavoisier 
91350 GRIGNY. 

VENDS Micro ordinateur porta- 
ble autonome CANON X07 8 Ko 
parfart etat. Sous garantie + 3 
manuels + cordon magneto + 
adaptateur secteur + livre "Jeux 
et programmes". (Valeur 2500 
F.) Vendu 2000 F. Monsieur M1- 
MEUR 18 rue D.Casanova 
78210 SAINT CYR L'ECOLE. 
Tel: 045 45 60 ( apres 18 H 30). 

ACHETE pour TI99/4A Boit'er 
d'extension peripherique : 750 I 
F. + carte d'extension memoire 
32 Ko : 750 F. J.Maxime DEL- 
MESSIERI Tel: (76) 31 85 90. 

VENDS TI99/4A (1983) bon etat 
avec B.Etendu + mini memoire 
+ module Tl Invader, Football. 
Othello + Joystick + Cordon K7 J 
+ boite extension et extension 
32K + nombreux livres dont "Ini- J 
tiatk>n a I'Assembeur dyj 
TI99/4A. Le tout 4000 F. Possl-/] 
bilile vente au detail. Eric HE- 
NAUDIN 20 allee d'Eck 33140 
CADAUJAC. Tel: (56) 30 72 33. 

VENDS Oric 1 64K entre 1800 
F. et 2200 F. avec ou sans K7. 
A. LE BER Tel.: 955 35 76 (a 
partir de 20 H). 

VENDS SHARP PC 1500: t200 
F. + CE 159 (8 Ko RAM prote- 
gee): 700 F. + 4 livres + papier 
CE 150 + Stylos CE 150 + ma- 
lette. Le tout 2470 F. VENDS 
carte Interface II pour APPLE II 
et APPLE DMP, permet la copie 
d'ecran graphique au clavier: 
700 F. Joel LEMOINE 2 rue Al- 
bert Leyre Bat. 28 Esc. 2 95340 
PERSAN. 

VENDS console TI99/4A (nov. I 
83) + cordon magneto + ma- ] 
nettes + module Tl Invaders: 
1500 F. Magneto K7 Thomson 
compatible: 500 F. MOduies 
jeux 100 F a 150 F. a debattre. 
J.Claude SHUSZLER 42 route 
de Parentlgnat 63500 ISSOIRE. 
Tel: (73) 89 35 60. 

VENDS T 199/4 A + extented 
basic f joysticks + manuels + 
calbles, tres peu servi: 2000 F. i 
Bernard MAJCHER. Tel: (20) 47 
15 93 (apres 19 H). 

VENDS SHARP PC 1500 + Im- J 
primante 4 couleurs + memoire 
8 K + chargeur + housso: 3200 
F. Monsieur ROSSI. Tel: 758 13 
13 poste 4267 (heuros buroau). 

VENDS CANON X 07 neuf + 

documentations + livres do pro- 
grammes: 1800 F. Monsieur 
MILLET. Tol:806 63 01. 

CHERCHE lectour de Disk + 
Dos el joystick pour MPF II. 
Falre offre a J.Paul CHAMOU- 
LEAU 12 Lot. Simon 40270 
GRENADE SUR L'ADOUR. Tel: 
(58)45 18 78. 
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233 IFX.1-119THEN400 1010 CLSlPRINT' B * A V O -fl'IPRINT- Vou> *v. 4032 DATAIO, 1 2, lO, 3 , 8, lO, 1 0, 1 3 , 1 2. 8, 1 2, 10, B, 8 , 10 3O10 PR INT • 1 -D-bu 1 an t * : PRI NT -9-Ch«-p mn conlirH 

740 1FC( 10THCN3OO I rauaal - : PRINT • A vou. *ch.p P *r r!!'i ilO.IZ -| 

2SO A>STICKI1>:IFA(>1AHCAC>3T»4EN210 1012 PRINT- v OUI , t „ | ibr* •>-( 4033 DAT AS, 12, 10,8,8,10.10,13, 12,8.12,10,8,8. lO. 3O20 »..!skffi:«-'.'4u>t»i:iiKiieioH)9T«cwo:rt 

260 IFA-lT«NBEEP2OO,i:Y-r-l:OOT0210 1013 IEMC3TMENEND 10,12,8 303O VI-ll-H 

270 BEEPlOO.l: Y-Y»l:GOTO210 1013 FO«II-lT060O:NEXT 4034 DATA4 , 4 , 8, 8, 8 , 8, 1 6, 8 , 4 , 4 , 8, 8, 8, 8 3040 IFH >7THENT I -2EI.SET I -1 

30O FORI-lT03:SEEP(20O0'I*lOI,l:CIRCLeiX,Yl,I:NE 102O TI-2:F0RAA-9TO3STEP-l:IFAA<)3TMEN9ELSEM-O:0 4C33 DATA16.e.4,4,8.e,e,e,16,e,4,4,a,B,8,e 3030 IFN>4TMENtA-2El,SETA-3 

OTOIO 4036 DATA 16, 12, 4, 8, 8, 8, 4, 4, 8, 8, 12, 4, 8. B, 8, 4, 4 3060 IFH J6TKENHI -30ELSEMI -33- (NtSI : IFM-3TMENH I -N 

304 FOR 1-1TQ6O0: NEXT 2000 BEEP30O, 3 : BEFP600. 5: BEEP360 , 5: BEEP300 , 3: BEE 4037 DATA 16, 1 2 , 4 , 8 , 8. 8. 4 . 4, 8, 8 , 12, 4 , 6 , B, B , 4 , 4, 16 1*3 

310 FOOI-IT0100:NCXT:VI-VI-l:AA-AA.l P730,3 403O F0RI-1T063 3070 RETURN 

320 IFUK1THCN2000 2010 CLSIPRINT- PERDU "■'IPRINT- C« v. I 4O60 READA ( I 1 : IfEXT 6O0O IF INKEY6- • - T HE N6000CL SERE TURN ■ 

326 CLS;lOCATEO,O:PRINTSTRIn0«i20, ■*•! U1.0CATEO, ..•■u-:PPINT' contvnalt' 4070 FORI-1T063 

3:PRINTSTRIMGt>(17,'»>->| 202O V-INT I RND II J 43001 • 1 : PRINT' 'U , qaiit»ri "I 4090 READBIIIINEXT 

CANON X-07 

.O A I ^1 0^-1^2 +3 + 4 +5 + ^+: 

Ce programme un peu long est destine a un X 07 avec indiquer a la demande la puissance, ou sinon RETURN). Donner le comme apres celui-ci et enlrer les tranches a la de'mande. Attendre 

extension memoire de 8 Ko mais on peut aussi le divi- nombre de groupes de chacun et les entrer en debutant par la gau- que la machine vous indique la place du point decimal el noler les 

ser et ['adapter a la version standard. II transforme che de chaque nombre. groupes de 6 chiffres. Donne les facteurs premiers dun nombre 

ut-ktni _,.L'n. __ _ -Q.--JI- i t > tZ Donne tous les chiflres de la tactonelte d un nombre. ayanl jusqu a 14 chiHres. 

Voire macnine en SUpercaiCUiairice Comme VOUS le Divise deux nombres. Donner le nombre de chiffres du diviseur el Bases: 3 programmes differenls: sans decimales. avec decimales. 

montrera le menu que nous allons detailler. Jes entrer par groupes de 6 comme pour le 1. puis, le nombre de avec calculs. les deux premiers fonl les changements de bases, le 

chiffres du dividende qu'il faut entrer a la suite sans RETURN, dire troisieme dans une base donnee fail successivement les operations 

Elip MADFUF co 1710 '^ de chiffres sont desires au quotient; on vous indique apres qui lui sont indiquees avec les nombres qui lui ont ete fournis. 

quel chiflre devra elre !e decimal et la reponse arrive en groupe de Recherche les nombres premiers, jumeaux (2 nombres premiers 

6 elle aussi. dont la difference est 2 ou non}. 
II permet de multiplier entre eux deux nombres ayant chacun p!u- Trouve la racine carree d'un nombre donne: Indiquer point le deci- 
sieurs dizaines de chiffres divises en groupes de 6 en debutant par mal et apres, le nombre de decimales que vous voulez au quotien!; 
les unites, ou d'elever un nombre a la puissance voulue (pour cela diviser le nombre en tranches de 2 a parlir du point decimal, avant 




cLMMaoat asi canSQLS ■ 



4:0IMA(2OO),B12OOI.C" 



2 




















05UB213 






LS:0NKG0T07,29 


33,74,118,133, 197 




NPUT'P<lla-l.aqu#l Is' i Y.%: P-UAL 1 V* > 


S 
* 
lO 


FP-1 THENX«»'1» 


■ELSE^-Vo.r. • 


FOPI-1 lOAlPPIH 


3TR.UM-. ', 




INPU7'G'P»"1A( 


] :IFPHTHENAII*Ai-A( 


12 








INPUT'2> NDr^-ttrouDM'tB 




fobi-itob:printstr«i i i t •» 'i 


13 


INPUT'Grpo-IAl 


•ai:ncxt:cls 




F-A-B:C-F«1 rO-CIFOPJ-FTOA.lSTEP-l 




FOPI-AT01STEP- 


:D-AUi tAI J»/E 




AlCI-AIC) HD-I 


'T(DI)f E :H-AICt/ E 




AICI-IM-IHTIM1 


•E:C-C>1:a<Ci-A1C)'I 




NEXT 




2C 


0-0*1 too: NEXT 


i-f»2:f-f*i 


21 


IFP>2TMCN«— P-t 






E-0;SEEP40,3:OOT0110 




IFAIIl-OTHENI- 


-i 


29 


y-f:b-i-yhi2- 


NTi»y2--3) 


76 


F0RJ-1T0I-Z6TEP-i:x-Aiyi:«(vi-A(»I 


27 


A(3i-x:Y-rai:»»cxT:z-A«i:F0R]-FToi 


Til 


aizi-ai jt :z-2> 






INPUT'H«>tf>r>>*tG:AIAI-.|:FORB-lTOG 




fopo-otqa:c-In 


1 iBflAfDi 'filiZbi 




A(DI-B»A(DI >F- 


<i E 6:f>c:mext 


37 


IFF' ,0'HENA-A. 


:aia>-f:f-o 


33 


■cep4o 1 s:ootoi 


Aimmrai-f-, 


33 


IMPUT-Dlvl»*ur 




M 




IFA/*>CTHCNC-C*t 


37 


fCOI-CTOI'i'EP- 


: j-Jm:printstr»i jm 



33 AIOI-A(01»3:GOSUB67 

36 FORX-1TOC*2:BIXI-IBIXI-DIXI )>I0:NEX 

37 E -E>I:IF E <-B-ATH E NBI1)-BI11 *A(E) 

3B aiei-o:gosub7o:h E xt:seep4o,3 

39 I-INT 12/61 -IZ/6> INT (Z/61 1 :L-F:F-0 
60 CLG:PRINT-. 'josinal apr** 1* *( 

6? IFINKEY«.-*"TM E Nh7 

63 e-o:m-o:Gotoho 

64 F0RX-1T0C*2: IFABSIDIXI M IE6THEN73 
63 Vlr. 



i>IE6:goi 
67 FO»X-0T0I/6:IFABSIi 



39 INPUT'Dlt 



41 A«-IHKEY«:IFAa- 



THEN4IELBCAU 



1E6TMEN73 



72 B(X*1)-BIX>11 .vrBixi-BiXl- 

73 NEXtlBETURN 

73 INPUT*D»CIMle>« d«Mlr*««*l 

76 IFP-INTIBI >OTNENR-INT (PI -I 

77 B-B/2: IFB-INTIB) >OTN€NB- H 
79 FOPI-t TOP'BiPRINTSTRai It I 



ho'iBMi : 

10THENBO 



■n; >l< 



80 ifbandbir-bk 

82 fobx-itoy:dixi-ioo*idixi-bcx-i. 
93 ipu<-r*bthendii1-0(i>*biw>:b'u 

84 GOSU8IO0 

83 FORx-1 IOY:BIX-i l-A(Xf»70»S:NEX 

86 BIO'-B'O) <S*S:K-v 

87 003UB10S 

88 IFIIH-iDtlHHHIH?« 
99 IFBIHlXOlNlTHENVl 

»0 N-N-i: iFnrwcxae 

91 FQRX-1T0I-: A I* I -10IAIXI :nixt 



93 NCX^ 



IB 1 03 



I ncxt:clS:fori-itoc:fo<>j-oto3 

I BI1I>P(II>AID)*10-J:IFDTHIIND-D-1 

i NexTj, i:F-a-Ati : ifbicxc icithcnf-f-i:b-i 
i fori-itos:aiii-aiam>:mext 

. PB|flI-N6r. cnil.'l : INPOT"Ouotle.r.fl2:IFSTMEN2 

' F0RI-lT0Z:M>Cf2:Bi0)-BiCi •BiC>I)*IE4aB(C*2)*l 

I IFB(OKCIC) TMENS-OIGOTOSO 

' B-INTIB(OI/C(C)l 

) FOttJ-lTOH:D<J>-C<JI4S:NCXT:a0SUB64:IFS-0THEN3 



S-B-1IOOT0B3 
} FORX-I TOY- IFA19IDI) 



106 FORX-01 
108 null- 



if '.Ir'fmnv 



I1E4THCN104 



Foaj-iTOFeiEP-i 



. S*-PiaHT«IB«,LENI>«) -II 

! IFM-IAMDUENIBaKATNENB*-' ••B9100T01I 

I IFLeNiB«i<6TMt2NB«-"0"'Ba:OOTO113 

I PSINTB4I: IFE»tOD3<^0TMENPRINT• *| 



X-3!OOSUB124:X 



[20 


fori-ito4b:readaii 


1 rrr •; 1 










fo«1-ito4b:a(ii-ac 


1*210 








122 


GOGUB 174: NEXT; GOTO; 


21 








123 




z-z/x 


0OSUB124:R 




124 


IFX>S8RI2I TK E NPRIN' 




1 •"0-1 :0OSU87 


3: en 


123 


u-z-int(z/X)4x:ifu- 


>IMEN0OSUB123 






12* 


RETURN 










127 


DATA -199, -197. -193, 


-191, 






-173 


-169, -167, -163,- 137, -I! 












DATA-143, -139,-137, 


-131, 


127,-121,- 


13 




-»o 




-B3,- 








131 
-31 


DATA -73, -71 , -67,-61 


i-39, 


33,-47,-43 


-« 


,-37 


DATA-29,-23,-19, -17 


.-15. 


11,-1,1 






133 


PRINT'l. ..••»• dfci 














105UB2I3 






133 


CLs:0NxaaT0i36, 133, 


leo 








136 


INPOT'l. 8>»,2« B> 




br»'l J.A.E 






137 






STMIEI 












ai-11 i-i" 






















-arm 


j-7i : i-len 




-111 


io- 












141 


e-e/d:c-che-intiei 




E -ihtie):b 


»# 


11*1 


HEN 












142 


Cls:e-c: ifaccthcni44 










IFAOCTKCNI4S 










144 


b-intic/a>:f--«»a.e 


IFF40THENF-0 







148 f-e:o-i:ootoi43 

149 PRINTRt0Klais«,LENisai-li,C*l:O0SUB213:END 
130 IFO( >lANDLCNIB«MLeNfN4) - I THCNB4--0 " • •• : OOTO 



137 e-intin) :D-N-E:ea-BTR«<ei : ifotheny-i 

I3B E-LCNIE4I -i:E4-RI0HT«[E«,CI 

139 l'l -1 I 'J 1 -.ti-.' 11 - I I ) -l:B7-E/Bi: IFB2HNT 1871 THEN 



161 IFLENIE*l<B14B2THEHE4--0'aC«:O0TOI6l 
1*3 FORI-ITOEBTEPBllC-a'A:X-VALIHID»l E », 1 



. IFO-OANOIO INT IKITHENK-INT IKI • I !U-I 
' Y-l:PRINTK| -HOI -:OOT0170 

> F0RI-1TDE:E«-HID»(D»,I. II *£%:nfxl;v 

J INPUT'8»«»-IB:A»-STRal8i IVLtNIJWl 
3: OOTO I 72 

1 input-niioi-ik:ifk-iniikitheni.-i 

} p-io:o-io:iff»>btiohi .-.! 
J R-P/2:0-0-v 
I R-l/0:S-tNT' 



7 a-D*TtlNTIKIJK-K-INflK) :P-P- I I 1FPTHENI76 

1 IFLANBO>INT 101 THENO-INK0I »l 

> PR1NTOI *<*ltft *I*:END 

> IMPUT'B««.'|I: in<llTH E NJ-10:K-IO:GOtOI89 

1 K-3: ifkioitheni-ioo:gotoi89 

? IFK I001THENJ-1E3ELSEJ-IE4I00IO1B9 

s input*- , - , i , '*iu»:ootoib9 

I eu'ijr -n-in: ]»-■, tkiiim :K-AiE-1 :0-J 

\ IPS*-- Mni:n'.i-ri:t'i-ruuii(i.M-,«-';»ii.H'ii:nniii' 

> c-o:o-o 

* F-A!A-IMT([/D):r-r-AfD:r.-F-C»F'0 
I C-C'l : 1FC< IKTHCNlO^ELStRCTUPN 

> OOGUBin4:00ri<l0IO6 

) 1FU4-' ••OBU«-* ■ nil hb-Ii.,: 

I lFU*-"-*THEN8-I>-0 

■ IFU6-'»'TMENB-BK1 

1 IFO«-* '■TKEHl'B'O 

I a-»:d-I:E-J:GOSu»Ib*: IFua--*THCNia3 

S [NPuT*Eicoi---->a-iV4: IFva-'O'THtNiea 

' PRINT-to-bLr. da Mi-H.aii. D.Out - I t I NPUT * , J- 



204 0OSUB213:X-0i 



Fll >S-2THENC-'1:OOT0200 

RINTElIt */*l :«-l:x-x«l 

FXi lO'YOBII HE4ANDXI4I t» 



CANON X-07 



61 






GRAND PRIX 




En cette saison du championnat du monde 84 de lor- 
mule 1, vous pourrez revivre les grands moments de 
cette competition en imitant sans prendre aucun risque, 
la maniere de conduire des plus grands pilotes. L'au- 
teur de ce programme decline toutes responsabilites, si 
la conduite enseignee sur ce jeu etait retranscrite sur 
la route. 

Bruno POIGNANT 



Au volant de voire bolide, vous devez parcourir un maximum de 
kilometres, en evitant de telescoper les vehicules attardes. Pour 
cela, il taut utiliser les touches de deplacement du cufseur, gauche 
et droite (STICK{0)= 3 ou 7). La probability de rencontrer des voitu- 
res Ires lentes augmente lineairement avec les kilometres {modulo 
50 kms) tandis que !e temps de reflexe diminue. 
La particularity de ce jeu provienl du graphisme et surtout de la 
conservation du record. Si vous le detenez. le nombre de kilometres 
parcourus est tnscrit automatiquement sur la ligne de programme n" 
5. Ensuite I'ordinateur demande !es deux initiates du recordman. 
pour ceta deux series de lettres defilent 1'une apres I'autre devant 



vous. Vous les arreterez en appuyant sur la barre d'espacemern au 
moment opportun. 

Modifications: Voici la liste des modifications a apporter au pro- 
gramme si celui-ci ne comporle pas dans son listing les lignes 1. 2 
et 3; ou si vous ne desirez pas les mscrire: 

Ligne 7000 PEEK(1462-I): PEEK(1391-I) Ligne 7060 POKE(1459- 
I): POKE(1388- I) Ugne 7110 POKE{1456 + L): POKE(1385+ L). 
Attention: excepte ce changement. il faut respecter scrupuieusement 
I'ecriture des lignes 1 a 5 ou 4 et 5 suivant que la modification a ete 
effectuee ou non. 
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BOMBARDIER 
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Le but du jeu est simple, votre bombardier descend 
inexorablement, sous lui une foule de grattes-ctel qu'il 
doit detruire au moyen de bombes afin d'eviter qu'il ne 
s'ecrase. 

Guiilaume FOREST 

Le Bombardier est represents par quatre points, il descend de 2 
points a ta fin de chaque traversee de la moitie de 1'ecran (I'autre 
moitie sen a I'affichage du score). 



La place et la hauteur des grattes-ciel est tiree au son mais la hau- quatre missions vous . aurez la Joie . et le privilege de voir se former 

talr -est ditferente suivant le niveau de jeu suivi. En effet. la hauteur sur votre ecran le celebre bombardier X. _ u _ 

maximale de I'oplion 1 est inferieure a celle de I'option 2. 

Le ieu se deroule sur quatre tableaux. Au debut de chacun deux un 

•rmUanP indinuA nuel est le numero de votre mission et quel est le 



messaqe indique quel est le numero de votre i 
numero de mission (jour et nuit). La mission de jour se deroule sur 
fond blanc, les immeubles sont un ensemble de points allumGs. 
alors que pour la mission de nuit le fond est noir, les immeubles 
cette fois-ci sont blancs. u«*„ 

Le fait de lacher une bombe narrete pas m ne ralentit le bombar- 
dier Si vous n'etes pas arrive a passer les quatre tableaux vous 
aurez le plaisir de vous voir exploser. Si vous arnvez a remplir tes 



Ah! j'oubliais, le lache des bombes se fait en pressant la touche 
d'espace, vous pouvez tirer meme si une bombe a deja ete lachee 
mais la, la premiere sera inefficace. 
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4 LOGICIELS DE LA SEMAINE! 



Archon 



... sur COMMODORE 64 



Une nouvelle brillante realisation 
d'EOA, exclusivement pour 
Commodore. 
Miche: *Moi j'aima bien... 
-Et pourlan! lu perds! dit Micha. 
-Oui. mais j'aime bien quand 
meme! 

-Expliquez-vous, mon cher 
Miche! 

-C'est simple Micha: c'est a la 
fois un jeu d'aclion et de re- 
flexion. 

-Facile! Tout le monde est capa- 
ble de concevoir un tel jeu: rien 
d'original a cela.. 
-Arrete. t'es pas cap'! 
-C'est sur. la musique me fait 
rever, 1'animation est superbe. 
mais quand meme, i! exisfe un 
trop grand d6sequilibre entre, 
les pieces de contact et les 
pieces de distance: les unes 
n'ont aucune chance (ace aux 
autres... 

-"Tas du feu? Merci. Tu m'as 
pourtant prix un Archer, un 
Djinni et une Valkyrie avec tes 
deux Banshees. 

-Et toi. avec ton Unicorn, tu 
mas flingue trois Goblins. Alors 
moi. je dis: gbel6-gbele (dur-dur 
en congolais* }. 

-C'est normal, ils sont rippous 
tes Goblins. 

-En plus, fas vu la taille de 
I'echiquier? Un vrai mouchoir 
de poche pour une bataille 
entre le Bien (les blancs) et le 
Ma! (les noirs). 

-Ben quoi? Neuf cases sur neuf, 
plus les combats dans les 
arenes. c'est baleze. non? 
-Ouais. faut dire que 1'idee du 




Zoom sur la case ou se deroule 
la bataille, c'est carrement 
geant!!! 

■Sans compter que le mago 
(magicien pour les intimes) et la 
sorciere jettent des sorts muy 
subtils. Et le Sbroto aussil 
■La, tu m'epates Miche. N'ou- 
blions pas que les blancs, diri- 
ges par le mago peuvent in- 
fluencer le cours du temps: 
ainsi. si !e monde est trop noir, 
its peuvent le rendre meilleur. 
■Oui. mais les noirs, en revan- 
che, peuvent influencer le cours 
du temps: ainsi, si le monde est 
trop blanc, ils peuvent le rendre 
pire. 

■En bref. seuls les noms chan- 
gent, c'est le meilleur qui 
gagne, n'est-ce pas Miche? 
-Non, barre cette phrase. 
■Pas question, I'autocensure 



c'est pour ailleurs (suivez mon 

regard). 
-On peut pas donner de noms? 

Je sais pas moi.. .Par exempfe... 
-Arrete sinon je te balance mon 

Dragon sur ton Golem. 
-Bon, laisse tomber, faut que 

nous montions a bord de notre 

vaisseau spatial, on doit se 

descendre ZAXXON... 
-O.K. On se fait un petit Archon, 

ou tu preferes E'entrainer centre 

I'ordinateur pour avoir une 

chance contre moi? 
-Tu rigoles, il est trop fort...Au 

moins toi t'es lent a r6agir!". 
Miche et Micha prennent leur 
casque et se dirigent vers le 
spatiodrome. 



Miche et Micha 



•AUTHENTJQUE! 



Atic Atac 



-"Ois done, Micha. c'est normal 
que la destruction de Zaxxon 
nous art transport© ici? 
-Tu rigoles, y'a qu'a nous que 
ca peut arriver! On est les seuls 
au monde a avoir un vaisseau 
spatial compatible Apple, 
Commodore et Spectrum. 
-Oil pourrait pas se faire des 
ronds, avec ca? 

-T'es vraiment pas un poete, 
Miche! 

-A propos de poete, j'ai faim. On 
se fait une bouffe? 

-J'ai bien peur que notre saut 
dans I'hyper-espace n'ait desin- 
tegre nos pilules alimentaires! 

-Mais que va-t-il nous arriver? 

-Speede, mon pote. on a trois 
pac-mans, deux fantfimes. une 
sorciere et quelqucs chauves- 
souris aux trousses qui ne pen- 
sent qu'a nous bouffer notre 
dernier poulet roti! 

-Fas trouve la cle rouge? 

-Mais comment sais-tu qu'il y a 
une cle rouge? 

-Alimentaire, mon cher Micha: y 
a des portes rouges, bleues et 
vertes. D'ou je deduis (subtile- 
ment) qu'il existe des cles zas- 
sorties aux portes. 

-Impressionnant! Balancons 

quelques 6p6es, histoire de de- 
gager le terrain. Eh, attrape la 
bouteille de lart, j'ai soif!. 

-Tu crois que nos elucubrations 
vont aider le lecteur a compren- 
dre que le but du jeu est de ne 
pas mourir de (aim? 

-Et de trouver la sortie, dusch- 
moll! 



.sur SPECTRUM 




Zaxxon ...sur COMMODORE 64 et APPLE 



Rien de tel que de passer du 
combat medieval a I'espace le 
plus lointain et le plus profond. 
En direct du front, nous retrou- 
vons nos deux envoyGs spe- 
ciaux: Miche et Micha. aux 
commandes de leur spatiojet, 
prets a defaire le terrible ZAX- 
XON. 

-'Alio cannonier Miche, me 

recois-tu cinq sur cinq? 
-Sans problemes, timonnier 

Micha. 
-O.K. Alors partons a I'assaut de 

la premiere cite-robot de I'in- 

nommabte! 
-De quoi? j'ai pas entendu le 

dernier mot. j'ai le bruit des 

lasers (et une banane) dans les 

oreilles. 
-De toutes les (aeons, tais-toi et 

tirel Surtout, oublie pas de viser 

ies reservoirs de fuel, on est en 

manque... 

-Pais gaffe, y' a un mur! 
-P6tard, t'aurais pu me dire qu'y 

avait une barriere ELECTRO- 

MAGNETIQUE au-dessus du 

mur... 
-Mais POURquOi On PARrLE 

Avec dES MajUSCuLES? 
-Ch'AiS pas, une DisturBance 

due aU ChaMP maGNeti- 

QUe...Ah, on en sort! Mais 

nous sommes en plein espace? 
-C'est quoi cette glace a la va- 

nille? 
-Un reservoir de fuel satellise 

par les Sbrouts en 7002. Tes 

pr&t? J'vois des tonnes de 

chasseurs intersid6raux debar- 

quer dans mon radar... 




-Je suis myope, ou ils sont pas 
de la meme taille? 
-Ben mon vieux! Dix ans de jeux 
sur ton micro, et c'est la pre- 
miere (ois que tu vois une 3-D 
aussi impressionnante? 
-Tu rigoles, la derniere (ois 
e'etait un master-mind. Ca y 
est, j'viens d'avoir le dernier. 
Eh, c'est quoi ca? 
-Ca, e'es! le repaire de Zaxxon: 
si on arrive a (ranchir tous les 
pieges, on pourra lui serrer la 
pince (celle qui tient le missile). 
Alors colle ton oeil au viseur, et 
ne Sucre pas les (raises... 



-Attention le dernier mur! On le 
voit quand. Zaxxon? 
-Maintenant, abrutL.Et assure, 
la pension vieiltesse n'existe 
pas, dans I'espace profond!" 
S'ils vainquirent Zaxxon, la des- 
truction du missile provoqua une 
rupture du continuum spatio- 
temporel qui projeta nos deux 
heros, Miche et Micha, dans un 
authentique chateau maudit (au 
fin fond de I'Ecosse), ce qui leur 
permit d'assurer I'habile transi- 
tion avec le troisieme logiciel du 

mote. 

Miche et Micha 



-En tout cas. maintenant, c'est 
fait! 

-Passe par le tonneau, c'est un 
passage secret. 

-Dis done, Micha, pendant qu'on 
est en train de tomber dans ce 
puit, dis-moi franchement: lu ar- 
rives vraiement a distinguer la 
realite de la fiction? 

-M'en parie pas, monte plutot 
I'escalier! 

-C'est qui, aui parie, la? 

-Moi, cest Micha. Fonce, y'a un 
escalier qui va nous sortir des 
limbes. 

-Ah bon. je commencais a per- 
dre le til du dialogue. Ouelles 
limbes? 

-Celles ou les champignons et 
les robots sont veneneux. Tu 
connaissais le cinquieme etage, 
toi? 

-Non. et toi? 



-Ben oui, c'est celui qui donne 

acces aux vacances. 
-Les vacances pendant lesquel- 

les les lecteurs vont nous ren- 

voyer le questionnaire? 
-Ouais, et mSme que nous on 

se dorera la pilule en haut du 

donjon pendant ce temps-la. 
-On a les trois cles? 
-Sen, je sais pas, regarde 

I'ecran. tout est inscrit dessus. 
-Mais je sais pas lire! 
-C'est pas grave, c'est des des- 

sins. Bon allez, on se tire, 

i'avion decolle." 

Exit Miche et Micha. les deux 
petits cochons qui disent au re- 
voir de la main aux vacanciers 
(pourquoi les deux petits co- 
chons? Parce que les pores sa- 
luent. Bon.). 

Miche et Micha. 



Jungle Hunt 



C'est lore d'un voyage d'etude 
en Amazonie que IneTicoptere 
qui devait vous deposer, vous et 
votre compagne sur le lieu de 
votre camp de baso, s'esl 
ecrase dans la jungle. 
Vous vous reveillez. apres une 
inconsciance d'une dur6e inde- 
termin6e, pour constater que 
votre compagne a disparu. Vous 
entendez encore ses cris ampli- 
fies par les echos. N'ecoutant 
que votre courage, vous partez 
a sa recherche afin de fa deli- 
vrer des sinistres cannibales a 
I'appetit fGroce. Vous devez ap- 
prendre, tel un Tarzan du 20" 
siecle, k vous deplacer dans les 
lianes, a traverser la riviere ou 
pullulent des caimans affames 
(avec comme seule arme, un ri- 
dicule canif), a escalader la face 
abrupte de la montagne sacree 
oil se sont refugies les sauva- 
ges, en evitant les blocs de 
pierre lances par ies gardes, 
pour enfin, extenue mais heu- 
reux. dfilivrer, apres un rude 
combat, votre compagne a bout 
d'impatience, (c'est normal, elle 
est dans une marmite et desti- 
ned a assurer la (ringale des 
cannibales!). Tout ca avec une 
seule manette de jeu, ou a de- 
faut, les touches du clavier et en 
musique. Afin de multiplier vos . 
chances, vous pouvez jouer a 
deux et pour les diminuer, vous 
pouvez s6lectionner un niveau 
de jeu plus fort. Pour les ama- 
teurs de combat silencieux. le 
son peut dtre supprim6. Pour les 
sportifs occasionnels, la louche 



sur APPLE 




ESC d6clenche une pause-cafe. 
Si la peur est trop forte, vous 
pouvez quitter le jeu ou revenir 
a un niveau plus faible en lais- 
sant votre compagne sinon, 
dans de bonnes mains, du 
moins entre de bonnes machoi- 
resl 

Vous pouvez rater une liane, ou 
vous faire devorer par petits 
morceaux cinq fois de suite 
avant de baisser les bras. Un 
petit conseil: 6vilez da rester 
trop longtemps en plongee, lors 
de la traversee de la riviere, car 



sans entrainement et sans oxy- 
gene vous risquez fort de boire 
une lasse mortelle! Vous dispo- 
sez d'un temps limile, avant que 
votre compagne ne soil cuite {3 
minutes pour un oeuf a la 
coque, faltes vos comptesl). 
La lutte sera chaude: pour les 
cannibales. la (aim justlfie les 
moyens. Un jeu rfiserve aux 
durs a cuire qui ont du coeur au 
venire!. 

Pierric 
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PETITES ANNONCES 
GRATUITES 

Suite de la 

page 60 



VENDS PC 1500 + CE 150 (im- 
primante) + CE 155 (RAM 8 
Ko) + CE 151 (RAM 4 Ko) + 
nombreux programmes (assom- 
bleurs, traltement de texte, 
calc...). le tout en bon etat 
(10/82) Vendu 3100 F. Michel 
GIRARD PICHOUD Secteur 
postal 69037. 

VENDS APPLE 11+ , Drive + 
moniteur vert + paddles (01/83) 
+ manuels + logiciels Jeux et 
utilitaires. Le lout 10.000 F. 
Monsieur DENECHEAU 92700 
COLOMBES. Tel: 238 66 50. 
(heures bureau). 



VENDS T07 + Extension 16 K 
+ extension jeux + lecteur K7 
+ cartouche basic + transfor- 
mateur Peritel + 2 manuels 
d'ulllisations + Un manuel jeu + 
2 logiciels (yaleurs 6000 F.) 
Vendu 4000 F. Vincent BRAULT 
7 rue Saint Anlolno 60200 
COMPIEGNE. 

VENDS ORIC 1 48K + Cables 
+ Alim, pour TV Peritel + 30 
programmes + Documonlations 
+ Magneto spocial. (valeur 4000 
F.) Vendu 2500 F. Tel: (90) 50 
90 82. 

VENOS ORIC 1 48K0 + lecteur 
de K7 + 50 pages + Doc + 
manuel + alim, + Cables + TV 
Couleur . Le tout en bon otat : 
30.000 F bolge. Luc BOLLY 15 
ruo Fays 5260 VILLERS LE 
BOUILET - BELGIQUE. 



VENDS LASER 200 4Ko + 16 
Ko (Valeurs 2080 F.) Vendu 
1600 F. Lauronl BRUSTOLIN 
835 avenue de la lere DFL 
13160 CHATEAUDRENARD. 
Tel: (90) 94 63 05. 

VENDS pour T07 3 volumes 
doubles d'inillation au Basic 
T07 (vol.1. 2 et 3): 500 F. (au- 
lieu de 585 F.) ou t volume seul 
170 F. (au lieu de 195 F.). 
Contactor en Aout Emmanuel 
D1NH 15 allee de St Hubert 
78610 AUFFARGIS. Tel: 484 99 
17. 

RECHERCHE manette Oflc 1 
avec interlace i VENDS a 350 
F. syntheliseur vocal pour ORIC. 
Gregolro DELEPLANQUE 23 bis 
avenue do Normandlo 78000 
VERSAILLES. Toi: 954 71 39. 

Suite page 64 
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PETITES ANNONCES GRATUITES 



St/rfe de la page &3 




VENDS AQUARIUS (1/84) + 
modu'ateur SECAM + 1 Module 
Bruger Time + nombreux pro- 
grammes: 1000 F. ou echanqe 
centre Tl 99/4A. Stephane SER- 
PAGGI 60 Chemin Vallon Barla 
Val d'Azur Bloc C 06200 NICE. 
Tel: (93) 71 61 22 (apres 19 H). 

VENDS TRS 80 mod.3 + 32 Ko 
MEV + K7 demonstrations + 
programmes + cordon pour lec- 
teur de K7 (valeurs 6500 F.) 
Vendu 5950 F. J.Francois GATl- 
MEL 43 rue Blaise Pascal 
81100 Castres TARN. Tel: (63) 

59 33 27 (heures bureau). 

CHERCHE pour TI99/4A et 
paye prix du neuf si bon etat : 1 
carte controleur diskette Ret. 
PHP 1240. Jean OBSER 5 rue 
Francois Villon 54630 RICHAR- 
MEMZ. 

VENDS ZX 81 + 32 Ku + K7 + 

livres : 1300 F. Possibility achat 
separe. Pour avoir prix au detail 
ecraire a X. CHAMARD 35 rue 
des Saelonnieres 77670 SAINT 
MAMMES. Tel: (6) 423 50 27. 

ACHETE pour Tl 99/4A contro- 
leur de diskette + unite de dis- 
kette. Patrice JEAN 8 place che- 
min de ronde. Appt 200. RDC. 
78340 LES CLAYES SOUS 
BOIS. Tel: (3) 055 28 65. (apres 
18 H). 

VENDS T07 + Extension me- 
moirs 16K (fevrier 84) Vendu 
2800 F. (Valeurs 3300 F.). 
Michrl VENHARD Tel.: 739 32 

60 (avec 18 H) ou 270 46 14 
(apres 18 H). 



VENDS CANON X 07 (16K) + 
Imprimante X710 \ cades me- 
moire (4 Ko et 8 Ko) + carte 
memoire Graphes el adaptateur 
+ livre "Jeux et programmes" 
Le tout en parfait etat (01/84) 
4600 F. Monsieur YEMBOU Tel 
846 74 25. 

VENDS VIC 20 (04/84) peu 
servi + adaptateur + Joystick + 
cartouche de jeu + manual 
divers. Svaleur 3200 F.) Vendu 
2700 F. John JEPHSON 10 rue 
Remusat 75016 PARIS. Tel.: 
527 94 13. 

VENDS ORIC (Mai 1983) + Pe- 
ritel N/B + manettes de jeu + 
11 jeux + manuel OPric et as- 
sembler 6502. le tout 2800 F. 
(a debattre). VENDS PC 1251 + 
interface K7 et Imprimante + 
manuel + K7 et papier + pro- 
grammes: 2000 F. P. SCHMITT 
S allee du Japon 91300 MASSY. 
Tel: 920 23 29. 

VENDS micro ordinateur PC 
1500 + table tracante + nom- 
breux programmes + module 16 
Ko (sous garantie). Le tout en 
excellent etat, prix a debattre. 
Stephane MERLE 37 rue Dinat 
03100 MONTLUCON. Tel.: (70) 
05 18 18. 

VENDS Tl 99/4A (09/83) + Peri- 
tel ■*■ cordon K7 + manuel: 800 
F. Stephane CHAMALY 147 
Grand'rue 62810 AVESNES LE 
COMTE. Tel.: (21) 48 41 06. 

VENDS VIC 20 Pal (12/82) sous 
garantie + lecteur K7 (VIC 
1530) + Autoformation basic 
manuel et 2 K7 + K7 jeux. Le 
tout 1700 F, Monsieur VUYES- 
TEKE 10 rue Moliere 95220 
HERBLAY. Tel.: 997 20 56. 

VENDS Ordinateur SPECTRA 
VIDEO SV 318 (01/84) + lec- 
teur K7 + logiciels + poignees 
de jeux. Prix interessant. Didier 
MALATRAIT Tel.: (26) 36 23 56. 



VENDS APPLE II (01/84) + 
Disk II + Controleur + monileur 
II vert inclinable + carte 80 co- 
kxines + Joystick luxe avec 
prise exterieure + cordon Peritel 
pour poste PAL couleur + 20 
diskettes. Le tout 12.000 F. 
Marc SEGALA Tel.: 543 10 28. 

ACHETE pour TI99/4A traite- 
ment de texte Tl Writer + docu- 
mentation. Faire offre a Michel 
TEYSSOU Arbus 64230 LES- 
CAR. Tel: (59) 62 75 40. 

VENDS pour TI99/4A Systeme 
d'extension peripherique + carte 
d'extension memoire 32K. Ber- 
trand Tel: (49) 41 37 20 (tous 
les jours). 

VENDS pour TI99/4A Boitier + 
RS 232C + controleur + drive 
+ 32K : 5000 F. Basic etendu: 
300 F, MUltiplan 450 F. Assem- 
bler 300 F. Divers programmes 
entre 80 et 150 F. suivant mo- 
dule. Claude GLASSMANN Tel.: 
636 13 11 (apres 17 H). 

VENDS ZX 81 + clavier meca- 
nique et boitier + Auto repeat + 
inversion video + Reset + alim. 
integree + 16K RAM + ZX 
Load Interface + carte graphi- 
que + carle son + imprimante 
+ nombreux programmes + 
livres et revues. Prix a debattre. 
C. LATTES 32 avenue de fOb- 
servatoire 75014 PARIS. Tel.: 
335 46 80. 

VENDS pour ordinateur clavier 
ASCII 104 touches de marque 
TEXAS INSTRUMENT: 700 F. 
Robert PONS Les ftoralies B. 
rue du Malpey 83600 FREJUS. 
Tel: (94) 51 43 16. 

VENDS CANON X07 (8 Ko) Ga- 
rantie 1 an depuis le 27/03/84 + 
cordon magneto + K7 de pro- 
grammes + garantie et (actures. 
le tout 2000 F. Frederic DAL- 
SACE 23 rue F.Lechanteur 
50230 AGON. 



VENDS T07 + Memo 7 Basic 
+ lecteur enregistreur de pro- 
grammes + ext. 16K + livres + 
2 K7. Prix 4000 F. VENDS jeux 
video Philips Videopac avec 21 
K7 de jeu : 1500 F. Tel: (20) 24 
97 35. 

VENDS console de jeu CBS + 
K7 Turbo et Adaptateur Multi K7 
+ 6 aulres K7 de jeu. Prix 2500 
F.Tel: 261 11 26. 

VENDS SHARP PC 1500 sans 
extension + manuels achetes 
en Juillet 83. Prix 1200 F. Mon- 
sieur GUYOT 9 allee des ane- 
mones 95460 AZANVILLE. Tel: 
935 00 94. 

VENDS VIC 20 (11/83) + exten- 
sions memoire (3. 8 et 32 Ko) + 
Autoformation Basic + magneto 
+ imprimante (05/84) + cartou- 
ches jeu + livres + carte mere 
pour 5500 F.le tout uniquement. 
Monsieur CEARD 57 rue Albert 
Camus 68093 MULHOUSE. 

VENDS pour TRS 80 ou V - G, 
4 programmes Big Five Soft- 
ware: Cosmic Fighter, Galaxy 
Invasion, Defense Command, 
Attack Force (programmes non 
pirates). Prix 60 F. ou 110 F les 
2 ou 150 F. les 3, ou 180 F. les 
4. Denis HANOTIN 35 Bid du 
Gal Leclerc 92110 CLICHY. 

RECHERCHE materiel ZX 81 
(clavier mecanique. program- 
mes, manettes de jeu) occasion, 
bon etat et prix raisonnable. De- 
mander Ludovic au (3) 950 32 
06. 

VENDS Basic Etendu + manuel 
+ module Tombstone City + 
Wumpus +■ 4 livres de program- 
mation pour TI99/4A. prix total 
800 F. Monsieur NOTHIAS 
Louis, 11 rue de Tille 60000 
BEAUVAIS. 

VENDS TI99/4A (12/83) et ma- 
gneto etat neuf sous garantie + 
manettes de jeux + mod. 
Echecs, Parsec + 5 livres et 5 
K7 de programmes (valeurs 
3595 F.) Vendu 2900 F. J.M. 
BARBERA Tel: (91) 79 78 18. 



HEBDOGICIEL RECRUTE 

Nous avons besoin de deux informaticiens pour ren- 
forcer notre equipe. L'un devra connaftre APPLE et 
le 6502 comme sa poche et lautre connaftre encore 
mieux THOMSON et le 6809. Les diplomes et ['ex- 
perience professionnelle ne sont pas indispensabfes. 
seule la connaissance du materiel et la laculte de 
bien rediger sont necessaires. L'equipe actuelle est 
jeune (moins de 25 ans), le lieu de travail a Paris et 
le salaire attractif. Ecrire avec photo a Gerard CEC- 
CALDI, SHIFT EDITIONS, 27 rue du General Foy 
75008 PARIS. 



VENDS TO 7 + cartouche Basic 
+ modulateur Secam + ma- 
gneto t l K7 de jeu Basic + 7 
livres. le tout 3000 F. Ou 
ECHANGE centre ZX Spectrum 
48 Ko. Philippe LE NEVANEN 
10 quai des Indes 56100 LO- 
RIENT. Tel: (97) 64 31 32. 

VENDS Sinclair Spectrum 48K 
(6 mois garantie) + peritel + 
modul. N/B + interface poignees 
+ 10 K7 + livres utilisation. 
Cede 2900 F. J.C. BEAU Tel: 
843 60 16 (apres 19 H). 

ACHETE a bas prix (morns de 
300 F.) Extension 16K pour ZX 
81. Philippe MOUGIN Tel: (81) 
86 96 12. 

VENDS T07 + magneto + Lie- 
tor + Basic / gestion familiale + 
Memoire 16K + imprimante 
P290 080 + 800 feuilles pour 
imprimante + cordon pour impri- 
mante + communication + logi- 
ciel traitement de texte . Materiel 
tres bon etat Vendu 9000 F. Jac- 
ques HAMAN 252 avenue Marx 
Dormay 92120 MONTROUGE. 

CHERCHE unite disquette ex- 
teme (systeme) maximum 2000 
F. Pour TI99/4A Olivier MAURY 
Tel: 012 31 77 (apres 17 H dans 
la semaine). 

VENDS ORIC 1 48 Ko complet 
(manuel francais) + alimentation 
+ tous cable + K7 Demo + Pe- 



ritel compact + N/B mtegre UHE 
+ jeux Space Invaders * Xen- 
non : 2150 F.Tel: 205 41 35. 

VENDS ZX 81 + 16 Ko + te*e- 

viseur + imprimante * papter * 
magneto + ires nombreux pro- 
grammes (dont SCRAMBLE. IN- 
VADERS. PAT. DE L'ESPACE 
etc..) Le tout 2000 F. Olivier 
PIKE ANNEPONT 17350 ST 
SAVINIEN. Tel: (46) 91 75 93. 
(le samedi de 14 H a 14 H 30). 
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LA REGLE A CALCUL 

sort une extension memoire 32 K exterieure pour fa console Tl 99/4. 

Avec 48 K ram, vous allez r^allser des programmes plus performants, 

utlllser le logo II (en francais]. 





Promotion yacanccs : 
h'our I 'achat dun module edlte 
par Texas, II est offert un 
programme Collins au cholx 
Introduction au Tl 99/4 (J J 
Introduction au Tl 99/4 (2) 
Les techniques des 
programmes de Jeux (If 
Les techniques des 
programmes de Jeux (2) 
le basic par sol-meme. 
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